Hallo Leute,
ich brauche eure hilfe
Wir haben 2 Domains 1.) NT4.0 und 2.) Windows 2003 AD.
Mit dem ADMT Tool habe ich schon alle Benutzer, Gruppen und Pc´s ins AD2003 kopiert.
Jetzt möchte ich die PC´s mit einem VBS.script in Neue Domain stellen
aber mein VBS.script meldet ein Fehler siehe unten.
VB Script:
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
strDomain = "AD2003Domain"
strPassword = "12345"
strUser = "ADMINISTARTOR"
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomain(strDomain, _
strPassword, strDomain & "\" & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
Fehler:
Skript: c:\vbs
Zeile: 22
Zeichen: 1
Fehler: das Objekt unterstützt diese Eigenschaften oder Methode
nicht.:´objComputer.JoinDomain´
Code: 800A01B6
Quelle: Laufzeitfehler in Microsoft VBScript
Kann mir jemand sagen was ich falsch mache?
Danke nivea:eek: