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
为了安全起见,你可以将administrator密码改为指定的,因为这们,下次因为域丢失不会太麻烦.
若你的电脑名建立比较有规律,比如abc01;abc02.......
还可以将电脑的administrator密码改为不同的,但是你知道其密码...