域加入本地管理

str1 = InputBox ("请输入域帐户", "添加管理员")
        If str1=Empty Then
        MsgBox "取消操作" , "16" , "失败"
Wscript.Quit
        End If
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName
strDomain = WshNetwork.UserDomain
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
Set objUser = getobject ("WinNT://" & strDomain & "/" & str1 & ",user")
For Each objListUser in objGroup.Members
        If objListUser.name =str1 then
        MsgBox "没有添加管理员！" , "64" , "谢谢"
WScript.Quit
       End If
Next
objGroup.Add(objUser.ADsPath)
MsgBox "恭喜您！管理员添加成功！" , "64" , "谢谢"
Wscript.Quit