Тема: VBScript: определить локальные учётные записи с пустым паролем
Option Explicit
Dim strComputer
Dim objIADsContainer
Dim objIADsUser
strComputer = "bla-bla-bla" ' Для локального: «WScript.CreateObject("WScript.Network").ComputerName» или просто «.»
Set objIADsContainer = GetObject("WinNT://" & strComputer & ",computer")
objIADsContainer.Filter = Array("user")
For Each objIADsUser In objIADsContainer
On Error Resume Next
objIADsUser.ChangePassword "", ""
If Err = 0 or Err = -2147023569 Then
Wscript.Echo "User [" & objIADsUser.Name & "] on [" & objIADsContainer.Name & "] is using a blank password."
End If
On Error Goto 0
Next
Set objIADsUser = Nothing
Set objIADsContainer = Nothing
WScript.Quit 0