For $i = 1 To 6
Local $var = RegEnumKey("HKEY_USERS\", $i)
If @error <> 0 Then ExitLoop
If StringRegExp($var,"S-1-5-21-\d{2,}-\d{2,}-\d{2,}-\d{2,}$") Then
MsgBox(4096, $i, $var)
EndIf
Next
$wshNetwork = ObjCreate("WScript.Network")
$objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Account")
For $objItem In $colItems
If $objItem.Name = $wshNetwork.UserName Then
$SID = $objItem.SID
EndIf
Next