Const ADS_UF_ACCOUNTDISABLE = &H0002 
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")

For Each objUser In colAccounts
	strUsername   = objUser.Name 
	flag = objUser.Get("UserFlags")

	If flag AND ADS_UF_ACCOUNTDISABLE Then
		strMsg = objUser.Name +  " : Account is disabled."
		Wscript.Echo strMsg
	Else
		strMsg = objUser.Name +  " : Account is not disabled."
		Wscript.Echo strMsg
	End If
Next