Vbscript 将域用户和组添加到本地管理员

我有一段经过修改的VBS代码，它基本上将指定的域用户和组添加到PCs本地管理员组。它在Windows7上运行良好，但在Windows8上根本不起作用

Call AddUserToGroup("./Administrators", "myDomain.net/NetworkAdminis")
Call AddUserToGroup("./Administrators", "myDomain.net/Domain Admins")
Call addDomainUser("myDomain", "myUserGroup")

Sub AddUserToGroup(local, domain)
    On Error Resume Next

    Dim objLocalGroup
    Dim objDomainGroup
    Dim server

    For Each server in servers
        Set objLocalGroup = GetObject("WinNT://" & local & ",group")
        Set objDomainGroup = GetObject("WinNT://" & domain & ",group")
        With objLocalGroup
            .Add(objDomainGroup.AdsPath)
            .SetInfo
        End With            
    Next

    Set objLocalGroup = Nothing
    Set objDomainGroup = Nothing
End Sub

Sub addDomainUser(strDomain, strUser)
    Dim strComputer
    Dim objWshNet
    Dim objGroup
    Dim objUser

    Set objWshNet = CreateObject("WScript.Network")
    strComputer = objWshNet.ComputerName
    Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",user")
    If Not objGroup.IsMember(objUser.ADsPath) Then
        objGroup.Add (objUser.ADsPath)
    End If

    Set objWshNet = Nothing
    Set objGroup = Nothing
    Set objUser = Nothing
End Sub

---

我已经使用VBA的IDE逐行调试了代码，似乎没有出现错误情况。它执行所有行，但并不像在Windows7及以下版本中那样添加用户和组。脚本正在以本地管理员身份运行。

not works代表什么？“错误时更改”恢复到“错误时转到0”旁边以查看错误；然后，请回答您的问题并添加更多信息。上面的代码不会产生错误。即使您删除了错误上的行，是否继续下一步？您是否以管理员身份运行脚本？还有，为什么要使用脚本而不是一开始就使用的脚本？在出错时删除“继续下一步”没有任何效果。正如我所说，我使用VBA IDE运行代码，它不会进入错误状态。我使用VBS在组策略中运行，因为它将添加一组特定的用户和组，这取决于它是否是服务器。该脚本正在以本地管理员身份运行。