Отображение списка локальных пользователей, с указанием SID. VBS, WMI

getUserSID.vbs

'#command line: @cscript getUserSID.vbs //NoLogo
WScript.Echo "****************************************************************"
WScript.Echo "* Отображение списка локальных пользователей, с указанием SID  *"
WScript.Echo "* При написании использовалась информация с сайта:             *"
WScript.Echo "* http://www.alexr.me/index.php/articles/2-wondows/111-sid-sid *"
WScript.Echo "****************************************************************"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Report=FSO.CreateTextFile("getUserSID.txt")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
echoStr =   "AccountType" & vbTab & _
            "Caption" & vbTab & _
            "Description" & vbTab & _
            "Disabled" & vbTab & _
            "Domain" & vbTab & _
            "FullName" & vbTab & _
            "InstallDate" & vbTab & _
            "LocalAccount" & vbTab & _
            "Lockout" & vbTab & _
            "Name" & vbTab & _
            "PasswordChangeable" & vbTab & _
            "PasswordExpires" & vbTab & _
            "PasswordRequired" & vbTab & _
            "SID" & vbTab & _
            "SIDType" & vbTab & _
            "Status"
Wscript.Echo "FullName"
Report.WriteLine(echoStr)
For Each objAccount in objWMIService.InstancesOf("Win32_UserAccount")
    echoStr =   objAccount.AccountType & vbTab & _
            objAccount.Caption & vbTab & _
            objAccount.Description & vbTab & _
            objAccount.Disabled & vbTab & _
            objAccount.Domain & vbTab & _
            objAccount.FullName & vbTab & _
            objAccount.InstallDate & vbTab & _
            objAccount.LocalAccount & vbTab & _
            objAccount.Lockout & vbTab & _
            objAccount.Name & vbTab & _
            objAccount.PasswordChangeable & vbTab & _
            objAccount.PasswordExpires & vbTab & _
            objAccount.PasswordRequired & vbTab & _
            objAccount.SID & vbTab & _
            objAccount.SIDType & vbTab & _
            objAccount.Status
    Wscript.Echo objAccount.FullName
    Report.WriteLine(echoStr)
Next