Windows user account or string matching

[pieterisme]

Hi All,

Basically I need to know the best way/s to accomplish this;

I need to find a specific user/user name (under windows management/users and groups) then put it into a variable for use to store files and data from a machine onto a folder with the users name.

Okay, so far the only way with autoit to find the username I desire is this;

RunWait(@ComSpec & " /c " & 'net user > "' & @ScriptDir & 'netusers.txt"', @WorkingDir, @SW_HIDE)

which outputs;

User accounts for \\lptp0001
-------------------------------------------------------------------------------
    Administrator       Guest      u0081    a0001                                                       
The command completed successfully.

My guess would be to load @ScriptDir & 'netusers.txt" then somehow match the text with a mask for u#### or a#### but I dunno really how to open a file read it or match the string part. Please help, thanks in advance.

[Jos]

What about something like this:

Dim $UserSID, $oWshNetwork, $oUserAccount
$objWMIService = objGet( "winmgmts:{impersonationLevel=impersonate}!//"  & @ComputerName & "/root/cimv2")
$oUserAccounts = $objWMIService.ExecQuery("Select Name, SID from Win32_UserAccount")
For $oUserAccount In $oUserAccounts
    If StringLeft($oUserAccount.Name,1) = "u" or StringLeft($oUserAccount.Name,1) = "a" Then
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oUserAccount.Name = ' & $oUserAccount.Name & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    EndIf
Next

Edited October 24, 2010 by Jos

[Legacy99]

Seconded, You beat me to it

WMI is your friend.

For more examples look up Scriptomatic.

[GEOSoft]

He may also have to check that the WMI service is not disabled.

[pieterisme]

What about something like this:

Dim $UserSID, $oWshNetwork, $oUserAccount
$objWMIService = objGet( "winmgmts:{impersonationLevel=impersonate}!//"  & @ComputerName & "/root/cimv2")
$oUserAccounts = $objWMIService.ExecQuery("Select Name, SID from Win32_UserAccount")
For $oUserAccount In $oUserAccounts
    If StringLeft($oUserAccount.Name,1) = "u" or StringLeft($oUserAccount.Name,1) = "a" Then
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oUserAccount.Name = ' & $oUserAccount.Name & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    EndIf
Next

Sweet guys fasts replies, also thanks Legacy99 for the WMI site I will look it up when I get more time always willing to learn

However I am getting a variable empty issue when trying to assign to a string and remove the a or u prefix from the user account number

Dim $UserSID, $oWshNetwork, $oUserAccount
$objWMIService = objGet( "winmgmts:{impersonationLevel=impersonate}!//"  & @ComputerName & "/root/cimv2")
$oUserAccounts = $objWMIService.ExecQuery("Select Name, SID from Win32_UserAccount")
For $oUserAccount In $oUserAccounts
    If StringLeft($oUserAccount.Name,1) = "u" or StringLeft($oUserAccount.Name,1) = "a" And $oUserAccount.Name <> "Administrator" Then
        $ua_num = ($oUserAccount.Name)
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oUserAccount.Name = ' & $oUserAccount.Name & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
        $pc_number = StringTrimLeft($ua_num, 1)
        MsgBox(16, "mydebug", $pc_number)
    EndIf
Next

[GEOSoft]

Try it this way.

Dim $UserSID, $oWshNetwork, $oUserAccount
$objWMIService = objGet( "winmgmts:{impersonationLevel=impersonate}!//"  & @ComputerName & "/root/cimv2")
$oUserAccounts = $objWMIService.ExecQuery("Select Name, SID from Win32_UserAccount")
For $oUserAccount In $oUserAccounts
    If (StringLeft($oUserAccount.Name,1) = "u" or StringLeft($oUserAccount.Name,1) = "a") And $oUserAccount.Name <> "Administrator" Then
        $ua_num = ($oUserAccount.Name)
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oUserAccount.Name = ' & $oUserAccount.Name & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
        $pc_number = StringTrimLeft($ua_num, 1)
        MsgBox(16, "mydebug", $pc_number)
    EndIf
Next