PC wird nicht in Domain aufgenommen (Script funktioniert nicht)

  • VBScript

    PC wird nicht in Domain aufgenommen (Script funktioniert nicht)

    Hallo,
    Ich möchte ein kleiner Script schreiben welches Remote-PCs in eine Domäne aufnimmt.
    Ich versteh nicht warum e snicht funktioniert, er sagt mir das der Remote-PC erfolgreich in die Domäne aufgenommen wurde. Aber das simmt nicht, es hat sich nichts verändert.

    Ich hoffe jemand sieht den Fehler, bin ein wenig am verzeweifeln:

    Visual Basic-Quellcode

    1. Const JOIN_DOMAIN = 1
    2. Const ACCT_CREATE = 2
    3. Const ACCT_DELETE = 4
    4. Const WIN9X_UPGRADE = 16
    5. Const DOMAIN_JOIN_IF_JOINED = 32
    6. Const JOIN_UNSECURE = 64
    7. Const MACHINE_PASSWORD_PASSED = 128
    8. Const DEFERRED_SPN_SET = 256
    9. Const INSTALL_INVOCATION = 262144
    12. Dim intOk
    13. Dim strDomain, strPassword, strUser
    15. strDomain = "Domäne"
    16. strUser = "User"
    17. strPassword = "Password"
    19. If Right(WScript.FullName, Len(WScript.Fullname) - Len(WScript.Path) -1) = "WScript.exe" Then
    20. WScript.CreateObject("WScript.Shell").Run "cmd /t:1F /k cscript //NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34)
    21. WScript.Quit
    22. End If
    23. WScript.StdOut.WriteLine String(80, "=")
    24. WScript.StdOut.WriteLine "(R)ename(R)emote(C)omputer" & vbCrLf
    25. WScript.StdOut.WriteLine String(80, "=")
    26. WScript.StdOut.WriteLine "Das Skript wurde am " & now & " gestartet."
    27. WScript.StdOut.WriteLine
    28. WScript.StdOut.Write "Computer oder IP-Adresse -> "
    29. Computer = WScript.StdIn.ReadLine()
    30. WScript.StdOut.Write "Lokaler Administrator -> "
    31. PC_Adm = WScript.StdIn.ReadLine()
    32. WScript.StdOut.Write "Kennwort -> "
    33. PC_PSW = WScript.StdIn.ReadLine()
    34. On Error Resume Next
    35. Set WMILocator =CreateObject("WbemScripting.SWbemLocator")
    36. WMILocator.Security_.AuthenticationLevel = 6
    37. Set WMI = WMILocator.ConnectServer(Computer, "root\cimv2" , PC_Adm, PC_PSW)
    38. If Err.Number = 0 Then
    39. If((strDomain <> "") or (strUser <> "") or (strPassword <> "")) Then
    40. Set ws = WScript.CreateObject("WScript.Shell")
    41. Set objNetwork = CreateObject("WScript.Network")
    42. strComputer = Computer
    43. WScript.StdOut.Write strComputer
    44. Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
    45. strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
    46. strComputer & "'")
    48. intOk = objComputer.JoinDomainOrWorkGroup(strDomain, _
    49. strPassword, _
    50. strDomain & "\" & strUser, _
    51. NULL, _
    52. JOIN_DOMAIN + ACCT_CREATE)
    54. If intOk = 0 then
    55. wscript.echo SUCCESS, "Join Domain erfolgreich mit: " & strDomain
    56. Else
    57. wscript.echo ERROR, "Join Domain fehlgeschlagen mit: " & strDomain
    58. End If
    59. End If
    60. End If



    EDIT by Mad Andy:
    VB-Tag eingefügt und bitte unterlasse solche Meldungen im Titel, es ist uns klar, dass du Hilfe brauchst - sonst wärst du ja nicht hier ;)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mad Andy“ ()