将用户添加到本地管理员组的脚本

Option Explicit<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Dim WshNetwork

Dim LocalGroup

Dim LocalComputer

Set WshNetwork = WScript.CreateObject("WScript.Network")

LocalComputer = WshNetwork.ComputerName

Set LocalGroup = GetObject("WinNT://" + LocalComputer + "/Administrators,Group")

If LocalGroup.IsMember("WinNT://domain name/domain admins") Then

WScript.Quit

Else

LocalGroup.Add "WinNT://domain name/domain admins"

End If

 

转载于:https://blog.51cto.com/zhangzzs/28172