Тема: VBS: Информация о пользователе
Всем добрый день!
Требуется получить список учетных записей пользователей Windows с детальной информацией (1) + дату последнего входа и дату смены пароля (2).
По (2) информация не выводится, хотя, если запускать отдельным скриптом для какой-нибудь учетной записи, всё работает.
Скрипт из консоли запускаю следующей командой: cscript.exe users.vbs
Подскажите, в каком месте я допустил ошибку?
Dim objExecObject
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_UserAccount Where LocalAccount = True")
Set objShell = Wscript.CreateObject("Wscript.Shell")
For Each objItem in colItems
strCommand1 = "cmd /c (net user " & objItem.Name & " | findstr ""Last logon"") || (net user " & objItem.Name & " | findstr ""Последний"")"
Set lastLogon = objShell.Exec(strCommand1)
strCommand2 = "cmd /c net user " & objItem.Name & " | findstr ""Password"" "
Set getPasswordInfo = objShell.Exec(strCommand2)
strText1 = lastLogon.StdOut.ReadAll()
strText2 = getPasswordInfo.StdOut.ReadAll()
Wscript.Echo "Account Type: " & objItem.AccountType
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Disabled: " & objItem.Disabled
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "Full Name: " & objItem.FullName
Wscript.Echo "Lockout: " & objItem.Lockout
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Password Changeable: " & objItem.PasswordChangeable
Wscript.Echo "Password Expires: " & objItem.PasswordExpires
Wscript.Echo "Password Required: " & objItem.PasswordRequired
Wscript.Echo "SID: " & objItem.SID
Wscript.Echo "SID Type: " & objItem.SIDType
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo strText1
Wscript.Echo strText2
Next
