Updating Windows Login Domains

options metaserver="meta.demo.sas.com" metaport=8561 metauser="sasadm @saspw" metapass="password" metarepository=Foundation metaprotocol=BRIDGE;

data _null_; /* Define the old and replacement domains. */ %let old_domain = domain; %let new_domain = newdomain; /* End edit. */ /* Define and initialize variables. */ length type id login_uri user stripped_user new_user $ 60; call missing(type,id,login_uri,user); /* This is the query to local the Logins with the old domain. */ obj="omsobj:Login? @code_sas_json/list_defaultauth_userids.json contains '&old_domain\'"; /* Count the number of logins found by the query above. */ count=metadata_resolve(obj,type,id); /* If logins were found, proceed. */ if count > 0 then do n = 1 to count; /* Get the Metadata URI for the nth login. */ login_rc=metadata_getnobj(obj,n,login_uri); /* Pull the full user ID for the login. */ rc=metadata_getattr(login_uri,"UserID",user); /* Strip the domain from the user ID. */ stripped_user=trim(scan(user,2,'\')); /* Define a new variable with the new domain and the user ID. */ new_user=cats("&new_domain\",stripped_user); /* Set this new variable as the UserID attribute. */ rc=metadata_setattr(login_uri,"UserID",new_user); end; /* If no logins are found with that domain, write that to the SAS log. */ else put "No users match query"; run;

data work.users; /* Create work.users library to house data. */ /* declare variables */ length ad_uri $ 256 ad_id $ 256 login_uri $ 256 user_id $ 256; /* initialize variables. */ call missing(ad_uri,ad_id,login_uri,user_id); keep user_id; /* only keep the user ids in the table. */ n=1; /* Get the URI for the DefaultAuth Authentication Domain. */ adrc=metadata_getnobj("omsobj:AuthenticationDomain? @name = 'DefaultAuth'",1,ad_uri); rc=metadata_getattr(ad_uri,"Id",ad_id); /* Get number of login objects that have the DefaultAuth authentication */ /* domain associated with them, as well as the URI of the first login. */ loginrc=metadata_getnobj("omsobj:Login?Login[Domain/AuthenticationDomain[ @Id='"||ad_id||"']",n,login_uri); do while(loginrc>0); /* extract the user ID from login */ rc=metadata_getattr(login_uri,"UserID",user_id); output; n+1; /* Get the URI of the next login. */ loginrc=metadata_getnobj("omsobj:Login?Login[Domain/AuthenticationDomain[ @Id='"||ad_id||"']",n,login_uri); end; run;