diverse PCs per Skript in W2k8 AD Domain aufnehmen
ich habe ca. 30 PCs, die automatisch in ein anderes AD (neue Domain) aufgenommen werden sollen.
Die PCs (XP) befinden sich momentan noch in der alten Domain.
Ich möchte am Freitag abend (nachdem alle PCs ausgeschaltet sind) auf dem neuen AD-SERVER ein Skript anwerfen, dass alle
PCs in die neue Domain aufnimmt. Das Skript soll nur auf dem Server laufen.
net computer \\PC-Name /add
habe ich schon getestet. Der PC wird zwar im AD eingetragen, bei der Anmeldung am PC erscheint die Domain aber nicht.
Gru? Thomas
Die PCs (XP) befinden sich momentan noch in der alten Domain.
Ich möchte am Freitag abend (nachdem alle PCs ausgeschaltet sind) auf dem neuen AD-SERVER ein Skript anwerfen, dass alle
PCs in die neue Domain aufnimmt. Das Skript soll nur auf dem Server laufen.
net computer \\PC-Name /add
habe ich schon getestet. Der PC wird zwar im AD eingetragen, bei der Anmeldung am PC erscheint die Domain aber nicht.
Gru? Thomas
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 114723
Url: https://administrator.de/forum/diverse-pcs-per-skript-in-w2k8-ad-domain-aufnehmen-114723.html
Ausgedruckt am: 24.12.2024 um 17:12 Uhr
1 Kommentar
Hallo Thomas,
spontan fällt mir folgendes ein:
wenn du auf deinem alten AD-Server, sofern er noch existiert, eine Gruppenrichtlinie anlegst die eine BAT-Datei beim Starten des PCs ausführt und diese BAT dann folgende vbs.Datei startet, müsste es mit der aufnahme eigentlich klappen.
Einzigster Nachteil du müsstest halt die 30 manuell von Hand aus starten...
VBS-Datei die wir für die automatische aufnahme in die Domäne verwenden:
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 = ""
strPassword = ""
strUser = ""
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
Set WshShell = WScript.CreateObject("WScript.Shell")
CMDString = "shutdown -r -t 2"
WshShell.Run CMDString,,True
musst nur noch die Variablen mit Werten Füllen und dann müsste es klappen!!
Gruß
Alex
spontan fällt mir folgendes ein:
wenn du auf deinem alten AD-Server, sofern er noch existiert, eine Gruppenrichtlinie anlegst die eine BAT-Datei beim Starten des PCs ausführt und diese BAT dann folgende vbs.Datei startet, müsste es mit der aufnahme eigentlich klappen.
Einzigster Nachteil du müsstest halt die 30 manuell von Hand aus starten...
VBS-Datei die wir für die automatische aufnahme in die Domäne verwenden:
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 = ""
strPassword = ""
strUser = ""
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
Set WshShell = WScript.CreateObject("WScript.Shell")
CMDString = "shutdown -r -t 2"
WshShell.Run CMDString,,True
musst nur noch die Variablen mit Werten Füllen und dann müsste es klappen!!
Gruß
Alex