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