Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VBS von der Domain in Workgroup ändern
Autor: GuruG2
Datum: 24.07.08 08:27
Ich konnte bis jetzt ein VBScript erstellen : Const JOIN_Workgroup = 1 Const ACCT_CREATE = 2 Const ACCT_DELETE = 4 Const WIN9X_UPGRADE = 16 Const Workgroup_JOIN_IF_JOINED = 32 Const JOIN_UNSECURE = 64 Const MACHINE_PASSWORD_PASSED = 128 Const DEFERRED_SPN_SET = 256 Const INSTALL_INVOCATION = 262144 Dim intOk Dim strDomain, strPassword, strUser strDomain = Inputbox("Geben Sie die Domäne ein:", "Computer in Domäne aufnehmen") strUser = Inputbox("Geben Sie einen Benutzer ein:", "Computer in Domäne aufnehmen","Administrator") strPassword = Inputbox("Geben Sie das Passwort ein:", "Computer in Domäne aufnehmen") If((strDomain <> "") or (strUser <> "") or (strPassword <> "")) Then Set ws = WScript.CreateObject("WScript.Shell") Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _ strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _ strComputer & "'") intOk = objComputer.UnjoinDomainOrWorkgroup(strDomain, _ strPassword, _ strDomain & "\" & strUser, _ NULL, _JOIN_Workgroup + ACCT_CREATE) If intOk = 0 then wscript.echo SUCCESS, "Join Domain erfolgreich mit: " & strDomain Else wscript.echo ERROR, "Join Domain fehlgeschlagen mit: " & strDomain End If ws.Run "shutdown.exe -r -f -t 0 -c ""Windows XP wird neu gestartet""", 1, False End If Leider habe ich in der Linie 31 (siehe oben Fett) im Car 8 Error Meldung : Ungültiges Zeichen. Diesen VBScribt sollte mir von der Domäne ins Workgroup zu ändern mit einem Username und dem Password. Kann mir jemanden helfen ? Weiss nicht mehr weiter.

VBS von der Domain in Workgroup ändern	3.361	GuruG2	24.07.08 08:27
Re: VBS von der Domain in Workgroup ändern	2.462	Elwood	24.07.08 08:45
Re: VBS von der Domain in Workgroup ändern	2.246	GuruG2	24.07.08 09:15
Re: VBS von der Domain in Workgroup ändern	2.152	Elwood	24.07.08 10:00
Re: VBS von der Domain in Workgroup ändern	2.289	GuruG2	24.07.08 10:47
Re: VBS von der Domain in Workgroup ändern	2.634	Elwood	24.07.08 12:29
Re: VBS von der Domain in Workgroup ändern	2.247	GuruG2	24.07.08 14:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen