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

时间:2022-12-18 08:02:32

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

我放在计算机策略下了。

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