|
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 |
本文转自 MicroMeng 51CTO博客，原文链接：http://blog.51cto.com/MicroMeng/39581，如需转载请自行联系原作者
