Select Code to Download

Win32_Account.Domain="ADDomain",Name="aduser1"
Win32_Account.Domain="ADDomain",Name="aduser2"
Win32_Account.Domain="ADDomain",Name="aduser3"
Win32_Account.Domain="ADDomain",Name="aduser4"

ADDomain\aduser1
ADDomain\aduser2
ADDomain\aduser3
ADDomain\aduser4

#!/usr/bin/perl -w

...
my $user = ( $uname eq "" ? "Account Deleted" : $domain . "\\" . $unam
+e );
print $user;