VBS para obtener las propiedades de cuentas anonimas locales desde multiples computadoras

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("UserProperties.txt", True)
Set objServerlist = objFSO.OpenTextFile("c:\Servers.txt", 1)

On Error Resume Next
Dim Counter, Counter2

Do Until objServerList.AtEndOfStream
strComputer = objServerList.ReadLine
objFile.WriteLine "Server: " & strComputer
objFile.WriteLine ""
Counter = 0
Counter2 = 0

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_UserAccount Where LocalAccount = True ")
For Each objItem in colItems

If InStr(objItem.Name, "Anon") Then
        Counter = Counter +1
if objItem.PasswordExpires = True Then
Counter2 = Counter2 +1
  objFile.WriteLine "Caption: " & objItem.Caption
    objFile.WriteLine "Disabled: " & objItem.Disabled
    objFile.WriteLine "Lockout: " & objItem.Lockout
    objFile.WriteLine "Password Changeable: " & objItem.PasswordChangeable
    objFile.WriteLine "Password Required: " & objItem.PasswordRequired
    objFile.WriteLine ""
End If
End If
Next
objFile.WriteLine "Anonymous users found:" & Counter
objFile.WriteLine "Anonymous users found with password to expire:" & Counter2
objFile.WriteLine ""
objFile.WriteLine "----------------------------------------"
Loop
wscript.echo "Local account query properties complete"