Jump to content

per Batchfile Clients in die Domain hängen!?


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

hi,

ich habe mir einst diese beiden Skripte gebastelt

 

--hinzufüge Skript

'Das Skript nimmt einen Workgrouprechner in die Domäne auf. Je nach eingestellter Option

' wird dabei ein Computerkonto erstellt.

 

strcomputer="member1"

strOption=3

'3 - computerkonto wird neu angelegt

'1 - joindomain bei vorhandenem Computerkonto

strDomain="domain1"

strPassword="password"

strUsername="administrator"

 

 

Set objswbemservices=getobject("winmgmts:{authenticationlevel=pktprivacy}!\\"&strcomputer)

Set colInstances = objSWbemServices.ExecQuery _

("SELECT caption FROM win32_computersystem")

For Each objInstance In colInstances

WScript.Echo "Caption " & objInstance.Caption

rv=objInstance.joindomainorworkgroup(strDomain,strPassword,strUsername,NULL,strOption)

If rv=0 Then

WScript.Echo strcomputer & " wurde erfolgeich in die Domain "&strDomain& "

 

aufgenommen"

Else

WScript.echo strcomputer & " konnte nicht in die Domain "&strDomain& " aufgenommen

 

werden. Fehlercode: "&rv

End If

Next

 

---

 

--entfernen Skript

'Skript entfernt remote Rechner aus der Domaene

'Achtung: Der Rechner wird einer Workgroup mit dem Namen der EX-Domain hinzugefügt.

'Dies kann zu fehlerhaften Browsingverhalten führen. Daher den entfernten Rechner

'möglichst abschalten bzw. rejoinen

'Das Computerkonto bleibt bleibt je nach eingestellter Option aktiviert oder deaktiviert erhalten

 

' blub@mcseboard.de

 

strcomputer="member1"

strOption=4

'0 - computerkonto bleibt erhalten

'4 - computerkonto wird in der domäne gesperrt

strDomain="domain1"

strPassword="methusalix"

strUsername="administrator"

 

set objswbemservices=getobject("winmgmts:{authenticationlevel=pktprivacy}!\\"&strcomputer)

 

Set colInstances = objSWbemServices.ExecQuery _

("SELECT caption FROM win32_computersystem")

For Each objInstance In colInstances

Wscript.Echo "Caption " & objInstance.Caption

rv=objInstance.unjoindomainorworkgroup(strPassword,strUsername,strOption)

If rv=0 Then

WScript.Echo strcomputer & " wurde erfolgeich aus der Domain "&strDomain& " entfernt"

Else

wscript.echo strcomputer & " konnte nicht aus der Domain "&strDomain& " entfernt werden. Fehlercode: "&rv

End If

Next

 

 

---

PS: bevor wieder Einwände kommen: natürlich braucht man auch hier die entsprechenden Rechte am Client und in der Domäne. Ein einfacher User kann das Skript nicht ausführen, zumindest nicht erfolgreich

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...