[VBS] VBS von Domäne in Workgroup

[Gabriel08]

Ich habe einen VBS gefunden dessen mich erlaubt von Workgroup ins Domäne einzufügen. Hier den VBS Code :

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

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.JoinDomainOrWorkGroup(strDomain, _
                                                strPassword, _
                                                strDomain & "\" & strUser, _
                                                NULL, _
                                                JOIN_DOMAIN + 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

Was ich möchte das vom Domäne ins Workgroup einzuschreiben. Kann mich jemand helfen ?

 

[froeschli]

Ich habe es weder ausprobiert noch im Detail studiert, aber versuche doch mal einfach anstatt des Domain Names den Namen der Workgroup einzugeben.

Könnte IMO funktionieren.

Gruss froeschli

 

[Michel.Eichelberger]

könnte jemand diesen Thread noch ins Programmieren Forum stecken?
Dann könnte ich noch schnell ein CODE-Att. setzen und schon schaut das ganze ein bissl aufgeräumter aus :)

 

[froeschli]

könnte jemand diesen Thread noch ins Programmieren Forum stecken?
Dann könnte ich noch schnell ein CODE-Att. setzen und schon schaut das ganze ein bissl aufgeräumter aus :)

Wird gemacht ;)

Gruss froeschli