AD 常用策略-修改本地管理员密码，禁用非administrator帐户，删除非administrator帐户

这个是用启动脚本实现的。

我放在计算机策略下了。

另存为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帐号，就创建一个。