Dim strComputerName
Dim strPassword

strComputerName = WScript.CreateObject("WScript.Network").ComputerName
strPassword = ""

Set LocalAccounts = GetObject("WinNT://" & strComputerName)
LocalAccounts.Filter = Array("user")

For Each objUser In LocalAccounts
   if objUser.AccountDisabled = TRUE then
    WScript.Echo "Account for " & objUser.Get("cn") & " currently Enalbed"
    end if
Next