strComputer="."
Set objDomain = GetObject("WinNT://" & strComputer)
objDomain.Filter = Array("User")
For Each objUser in objDomain
strUser = objUser.Name
If strUser <> "Administrator" Then
Set objUser = GetObject("WinNT://" & strComputer & "/" & struser)
objUser.AccountDisabled = True
objUser.SetInfo
End If
Next