Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Domäne in Workgroup ändern

Frage Entwicklung

Mitglied: GuruG2

GuruG2 (Level 1) - Jetzt verbinden

23.07.2008, aktualisiert 25.07.2008, 6973 Aufrufe, 6 Kommentare

Wer kann mir helfen will denn VBS behalten aber er soll nur in Workgroup ändern. Wer kann mir helfen ?

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
Mitglied: Logan000
23.07.2008 um 16:39 Uhr
Moin moin

Wenn ich diesen Artikel richtig verstanden habe geht das so:
01.
... 
02.
ntOk = objComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strDomain & "\" & strUser, NULL,NULL) 
03.
...
Ist aber ungetestet.

Gruß L.
Bitte warten ..
Mitglied: GuruG2
24.07.2008 um 07:29 Uhr
Konnte denn VBScript so schreiben :

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

Er gibt mir eine Fehler Meldung in der Lin 31 Char : 8 Error : Ungültiges Zeichen mit dem code : 800A04808 Source : Komplierungsfehler in Microsoft VBScript.
Bitte warten ..
Mitglied: Biber
24.07.2008 um 08:32 Uhr
Moin GuruG2,

willkommen im Forum.

1) Beim Posten von Code-Schnipseln bitte auch <code>-Tags benutzen
2) Methoden wie UnjoinDomainOrworkgroup() sollten mit den Parametern aufgerufen werden, die diese Methode hat und nicht mit irgendwas, was grad auf dem Schreibtisch liegt. Siehe beim sympathischen Weltmarktführer.
3) Hast Du mal VBSkript gefragt, welchen Wert NULL in diesem Dialekt hat?
4) Bist Du Dir halbwegs sicher, was Du dort tust? Ist der Rechner in einer Domäne und hast Du die Rechte, dort rein/raus zu "wechseln", wie Du es spielerisch formuliert hast?
5) Magst Du eventuell preisgeben, ob der Rechner ein W2k/Vi$ta/WTF-Rechner ist und in was für einer Domänenstruktur er hängt und ob Du mit Administrator- oder Praktikantenrechten ausgestattet bist?

Danke
Biber
Bitte warten ..
Mitglied: GuruG2
24.07.2008 um 14:48 Uhr
Es ist glaub nicht zu schaffen danke trotzdem für eure hilfe
Bitte warten ..
Mitglied: Biber
24.07.2008 um 22:30 Uhr
Es ist glaub nicht zu schaffen danke trotzdem für eure hilfe
Lässt Du uns an Deinem Erkenntnisprozess teilhaben oder schreibst Du das nur, weil gleich GZSZ anfängt oder ähnliches?
Nochmal:
  • was bitte ist die Ausgangssitation?
  • Rechner ist jetzt in Domäne?
  • Soll endgültig raus? Oder rein/raus zum Kuckuck sagen?
  • Win-Version?
  • Admin- oder DAU-Rechte?
  • wieso ist es nicht zu schaffen? Zu feiner Sand? Bodennebel? Mehrzeilige Hilfezeilen im TechNet?

Grüße
Biber
Bitte warten ..
Mitglied: GuruG2
25.07.2008 um 07:40 Uhr
Die Station ist mit Win XP Konfiguriert. Sie ist schon in der Domain und möchte Hand vom VBS in die Workgroup einpflanzen.

Auf der maschine hab ich Admin Rechte. Der Script kann auch anders aussehen, es muss die funktion drinn sein das es mir mein Username fragt und das Passwort.
Bitte warten ..
Ähnliche Inhalte
Windows Server
Fileserver Migration von Workgroup in Domäne
Frage von rookieWindows Server9 Kommentare

Hallo, ich habe eine Arbeitsgruppe mit ca. 50 Clients und einem Fileserver. Alle Benutzer arbeiten mit dem selben lokalen ...

Outlook & Mail
Outlook ist getrennt bei Verbindung über VPN von Workgroup in Domäne
Frage von sk7519Outlook & Mail2 Kommentare

Hallo zusammen, ich möchte einen Desktop-Rechner (lokale Arbeitsgruppe) per VPN mit einer Firmen-Domäne verbinden. VPN wird über einen Lancom-Client ...

Windows 7
Laufwerkfreigabe in einer Workgroup
Frage von teddychWindows 71 Kommentar

Bisherige Ausgangslage, die noch funktioniert hatte: Workgroup mit drei PCs, zwei davon Windows XP und einer Windows 7. Auf ...

Windows 7
Benutzerpasswort ändern aus einer anderen Domäne heraus
Frage von MachelloWindows 73 Kommentare

Hallo zusammen im Forum, ich möchte eine kleine einfache GUI schreiben mit der ein Benutzer sein Passwort ändern kann. ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 9 StundenWindows 101 Kommentar

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 11 StundenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 1 TagInternet3 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 1 TagDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte16 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...

Windows Server
GPO nur für bestimmte Computer
Frage von Leo-leWindows Server12 Kommentare

Hallo Forum, gern würde ich ein Robocopy script per Bat an eine GPO hängen. Wichtig wäre aber dort der ...

Windows Server
KMS Facts for Client configuration
Frage von winlinWindows Server12 Kommentare

Hey Leute, wir haben in unserem Netz nun einen neuen KMS Server. Haben Bestands-VMs die noch nicht aktiviert sind. ...

Netzwerkgrundlagen
Laufwerkszuordnung mit zwei IPs
Frage von Alex29Netzwerkgrundlagen11 Kommentare

Hallo in die Runde, Ich als Hobbyadmin hätte mal wieder eine Frage an die Profis. Ich habe ein Netzwerk ...