这个是用启动脚本实现的。
我放在计算机策略下了。
另存为VBS格式即可
修改第三行“123qwe!@#”,引号中的就是你的新密码。
一:禁用非administrator帐户
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "123qwe!@#"
objUser.SetInfo
Set objDomain = GetObject("WinNT://" & strComputer)
objDomain.Filter = Array("User")
For Each objUser in objDomain
strUser = objUser.Name
If strUser = "Administrator" Then
objUser.AccountDisabled = False
objUser.SetInfo
Else
objUser.AccountDisabled = True
objUser.SetInfo
End If
Next
二:删除非administrator帐户
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "123qwe!@#"
objUser.SetInfo
Set objDomain = GetObject("WinNT://" & strComputer)
objDomain.Filter = Array("User")
For Each objUser in objDomain
strUser = objUser.Name
If strUser = "Administrator" Then
objUser.AccountDisabled = False
objUser.SetInfo
Else
objGroup.Remove(objUser.AdsPath)
objUser.SetInfo
End If
Next
三:问题
是否会遇到本地修改过administrator帐号的呢?
是否要再写一个判断,如果没有administrator帐号,就创建一个。