将域使用者加入本地power user組的腳本

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，如需轉載請自行聯系原作者