Get Local User Accounts Report (VBScript)

' ============================================================
' GetUserAccountReport.vbs
'
' Reports Local User Accounts via WMI (Win32_UserAccount).
'
' Usage: cscript GetUserAccountReport.vbs
' ============================================================

Option Explicit

Dim objWMIService, colItems, objItem, strOutput

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT Name, FullName, Disabled, Lockout, LocalAccount FROM Win32_UserAccount")

strOutput = ""
For Each objItem In colItems
    strOutput = strOutput & "Name: " & objItem.Name & vbCrLf
    strOutput = strOutput & "FullName: " & objItem.FullName & vbCrLf
    strOutput = strOutput & "Disabled: " & objItem.Disabled & vbCrLf
    strOutput = strOutput & "Lockout: " & objItem.Lockout & vbCrLf
    strOutput = strOutput & "LocalAccount: " & objItem.LocalAccount & vbCrLf
    strOutput = strOutput & String(40, "-") & vbCrLf
Next

If strOutput = "" Then
    WScript.Echo "No Local User Accounts found."
Else
    WScript.Echo strOutput
End If