Option Explicit Dim oWshNetwork Set oWshNetwork = WScript.CreateObject("WScript.Network") Dim sLogonComputerName '得到当前登录计算机名 sLogonComputerName = oWshNetwork.ComputerName 'WScript.Echo sLogonComputerName

Dim oLocalGroup '得到本地 Power Users Group 对象 Set oLocalGroup = GetObject("WinNT://" + sLogonComputerName + "/Power Users,Group") 'WScript.Echo oLocalGroup.Name

'注意下一句中的 HENU-SOFTLAB 它必须与域的NETBIOS名大小写相一致，否则会出错 If oLocalGroup.IsMember("WinNT://HENU-SOFTLAB/Domain Users") Then WScript.Quit Else oLocalGroup.Add "WinNT://HENU-SOFTLAB/Domain Users" End If