open(PROGRAM, '| runas /user:username  "net localgroup administrators %username%@%userdnsdomain% /ADD"');
print PROGRAM "password\n";