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

Источник: How Can I Verify that None of My Local User Accounts have a Blank Password? - Hey, Scripting Guy! Blog - Site Home - TechNet Blogs.