Vbscript Win 7上的VBS加入域问题

我有下面的vbs加入到域中的Win 7 PC。在运行时，它不会出错，但不会给出输出，也不会加入域

有谁能看到这个问题，并建议我如何添加错误捕获

    'On Error Resume Next

strDomain = "domain.local" 
strPassword = "password" 
strUser = "user" 
strOU = "OU=OU1,OU=OU2,OU=OU3,OU=OU with spaces in name,DC=domain,DC=local"


Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

' Join Domain
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, strOU, _
JOIN_DOMAIN + ACCT_CREATE + DOMAIN_JOIN_IF_JOINED)

Select Case ReturnValue

Case 0 Status = "Success"

Case 2 Status = "Missing OU"

Case 5 Status = "Access denied"

Case 53 Status = "Network path not found"

Case 87 Status = "Parameter incorrect"

Case 1326 Status = "Logon failure, user or pass"

Case 1355 Status = "Domain can not be contacted"

Case 1909 Status = "User account locked out"

Case 2224 Status = "Computer Account already exists"

Case 2691 Status = "PC already on domain"

Case Else Status = "UNKNOWN ERROR " & ReturnValue

' Show Status
WScript.Echo "Join domain status: " & Status

End Select

---

您正在案例中设置变量

Status

，但通过

WScript.Echo输出变量的行将仅显示在
案例Else
上。要修复此问题，请在
结束后移动该行，选择
，以便您可以查看
案例的所有实例的
状态的值

Select Case ReturnValue
Case 0 
    Status = "Success"
Case 2 
    Status = "Missing OU"
Case 5 
    Status = "Access denied"
Case 53 
    Status = "Network path not found"
Case 87 
    Status = "Parameter incorrect"
Case 1326 
    Status = "Logon failure, user or pass"
Case 1355 
    Status = "Domain can not be contacted"
Case 1909 
    Status = "User account locked out"
Case 2224 
    Status = "Computer Account already exists"
Case 2691 
    Status = "PC already on domain"
Case Else 
    Status = "UNKNOWN ERROR " & ReturnValue
End Select

' Show Status
WScript.Echo "Join domain status: " & Status

您正在案例中设置变量
Status
，但通过
WScript.Echo输出变量的行将仅显示在
案例Else
上。要修复此问题，请在
结束后移动该行，选择
，以便您可以查看
案例的所有实例的
状态的值

Select Case ReturnValue
Case 0 
    Status = "Success"
Case 2 
    Status = "Missing OU"
Case 5 
    Status = "Access denied"
Case 53 
    Status = "Network path not found"
Case 87 
    Status = "Parameter incorrect"
Case 1326 
    Status = "Logon failure, user or pass"
Case 1355 
    Status = "Domain can not be contacted"
Case 1909 
    Status = "User account locked out"
Case 2224 
    Status = "Computer Account already exists"
Case 2691 
    Status = "PC already on domain"
Case Else 
    Status = "UNKNOWN ERROR " & ReturnValue
End Select

' Show Status
WScript.Echo "Join domain status: " & Status

将最后一个
WScript.Echo
调用移到
select case
语句之外，以便查看返回值。应该在选择之后。我不敢相信我没有停止！谢谢现在问题已经解决了！将最后一个
WScript.Echo
调用移到
select case
语句之外，以便查看返回值。应该在选择之后。我不敢相信我没有停止！谢谢现在问题已经解决了！