9
per VBS und GPO Nutzer in Admingruppe eintragen
ich nutze die Lösung von hier:
Domain-Benutzergruppe per Script in lokale Admingruppe packen
das funktioniert auch sehr gut, aber leider nur auf deutschen Clients
nun soll das ganze aber auch auf englischen und französischen Win-Clients (2000 & XP) laufen
gibt es dazu eine Möglichkeit, die Sprachversion von Windows per VBS erst abzufragen um dann die immer gleichlautende Gruppe in die lokale Admingruppe eintragen zu lassen?
die lokale Admingruppe heissen ja dann Administratoren, Administrators und Administrateurs oder gibt es eine andere Möglichkeit, um die lokale Admingruppe anzugeben?
also quasi etwas für die Variable "strLocalGroup"?
*nachtrag 19.04.*
Thema als gelöst markiert, Lösung siehe unten
Domain-Benutzergruppe per Script in lokale Admingruppe packen
das funktioniert auch sehr gut, aber leider nur auf deutschen Clients
nun soll das ganze aber auch auf englischen und französischen Win-Clients (2000 & XP) laufen
gibt es dazu eine Möglichkeit, die Sprachversion von Windows per VBS erst abzufragen um dann die immer gleichlautende Gruppe in die lokale Admingruppe eintragen zu lassen?
die lokale Admingruppe heissen ja dann Administratoren, Administrators und Administrateurs oder gibt es eine andere Möglichkeit, um die lokale Admingruppe anzugeben?
also quasi etwas für die Variable "strLocalGroup"?
*nachtrag 19.04.*
Thema als gelöst markiert, Lösung siehe unten
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 56736
Url: https://administrator.de/contentid/56736
Printed on: April 19, 2024 at 00:04 o'clock
9 Comments
Latest comment
super, danke, damit konnte ich was anfangen 
mein Skript dazu sieht nun so aus:
damit funktioniert es unter Win 2000 & XP
mein Skript dazu sieht nun so aus:
On Error Resume Next
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WSHNetwork.ComputerName
strDomain="WinNT://DOMÄNE/"
strUserAdd="DOMÄNGRUPPE"
Set net = CreateObject("Wscript.Network")
Set objComputer = strDomain
strAdd=strDomain & strUserAdd
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_Group Where SID = 'S-1-5-32-544'")
For Each objAccount in colAccounts
strAdminGrp = objAccount.Name
Set objLocalGroup = GetObject("WinNT://" & strComputer & "/" & strAdminGrp)
objLocalGroup.Add(strAdd)
strAdminGrp & chr(13) & "Domain group added: " & strUserAdd
Next
Prima, Iwan,
danke fürs Austüfteln, Testen und Posten.
THX
Biber
danke fürs Austüfteln, Testen und Posten.
THX
Biber
leider funktioniert das ganze per GPO als Startskript nicht so wirklich 
die Rechner hingen teilweise bis zu 30 Minuten im Startskript fest, so das wir das Skript erstmal wieder rausnehmen mussten
das ganze wäre so einfach, wenn es nur um WinXP gehen würde....
falls jemand noch Ideen hat, dann immer her damit
*nachtrag*
so funktioniert es unter WinXP in diversen Sprachen ohne Probleme:
leider kommt aber Win2000 mit der Abfrage bezügl. des Namen der lokalen Admingruppe nicht zurecht:
For Each objAccount in colAccounts
strAdminGrp = objAccount.Name
Next
Fehler 0x80041017 für die Zeile mit For Each
die Rechner hingen teilweise bis zu 30 Minuten im Startskript fest, so das wir das Skript erstmal wieder rausnehmen mussten
das ganze wäre so einfach, wenn es nur um WinXP gehen würde....
falls jemand noch Ideen hat, dann immer her damit
*nachtrag*
so funktioniert es unter WinXP in diversen Sprachen ohne Probleme:
On Error Resume Next
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WSHNetwork.ComputerName
strUserAdd="DOMAIN-USER-GRUPPE"
strDomain="WinNT://DOMÄNE/"
strAdd=strDomain & strUserAdd
Set net = CreateObject("Wscript.Network")
objComputer = strDomain
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_Group Where LocalAccount = TRUE And SID = 'S-1-5-32-544'")
For Each objAccount in colAccounts
strAdminGrp = objAccount.Name
Next
Set objLocalGroup = GetObject("WinNT://" & strComputer & "/" & strAdminGrp)
objLocalGroup.Add(strAdd)For Each objAccount in colAccounts
strAdminGrp = objAccount.Name
Next
Fehler 0x80041017 für die Zeile mit For Each
ok, jetzt hab ich es.... das For Each lief vor die Wand, weil er keine Werte bekam
nachdem das dann aber korrigiert war, lief diese Abfrage immer weiter und weiter und weiter...
ich hab das ganze dadurch abgefangen, das ich eine Abfrage auf "Admin" gemacht habe:
damit sollte das Script nun nicht mehr ewig laufen
falls jemand eine bessere Filtermöglichkeit auf Lager hat, dann immer her damit
das Ergebnis muss sein, das die lokale Administratorgruppe unter Win 2000 und XP, jeweils in der Systemsprache (deutsch, englisch, französisch, etc.) in die Variable strAdmin geschrieben wird
nachdem das dann aber korrigiert war, lief diese Abfrage immer weiter und weiter und weiter...
ich hab das ganze dadurch abgefangen, das ich eine Abfrage auf "Admin" gemacht habe:
On Error Resume Next
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WSHNetwork.ComputerName
strUserAdd="USERGRUPPE"
strDomain="WinNT://DOMÄNE/"
strAdd=strDomain & strUserAdd
Set net = CreateObject("Wscript.Network")
objComputer = strDomain
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_Group Where SID = 'S-1-5-32-544'")
For Each objItem in colAccounts
strAdminGrp = objItem.Name
Test = Left(strAdminGrp,5)
If Test = "Admin" Then Exit For
Next
Set objLocalGroup = GetObject("WinNT://" & strComputer & "/" & strAdminGrp)
objLocalGroup.Add(strAdd)falls jemand eine bessere Filtermöglichkeit auf Lager hat, dann immer her damit
das Ergebnis muss sein, das die lokale Administratorgruppe unter Win 2000 und XP, jeweils in der Systemsprache (deutsch, englisch, französisch, etc.) in die Variable strAdmin geschrieben wird
Na, Iwan,
dann denke ich, ich kann Dir eine kleine Performanceverbesserung bieten...*gg
Probier bitte diese Variante Deines Schnipsels:
Damit solltest Du den Namen Deiner lokalen Admingruppe in 5 sec haben.
Gruss
Biber
dann denke ich, ich kann Dir eine kleine Performanceverbesserung bieten...*gg
Probier bitte diese Variante Deines Schnipsels:
' On Error Resume Next 'bei mir gibt es keinen Error..
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WSHNetwork.ComputerName
'ab hier anpassen
strUserAdd="USERGRUPPE"
strDomain="WinNT://DOMÄNE/"
'bis hier anpassen
strAdd=strDomain & strUserAdd
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
' Aufpassen, dass das Leerzeichen nach dem "_" in der nächsten Zeile da ist !!!
Set colAccounts = objWMIService.ExecQuery _
("Select * From Win32_Group Where Domain ='" & strComputer & "' and SID = 'S-1-5-32-544'")
For Each objItem in colAccounts
strAdminGrp = objItem.Name
' die nächsten Zeilen nur zum Testen
Wscript.echo "Name.......:" & objItem.Name
Wscript.echo "Caption....:" & objItem.Caption
Wscript.echo "Description:" & objItem.Description
' Wscript.echo "Domain.....:" & objItem.Domain ' ist der COMPUTERNAME, wissen wir
' Wscript.echo "InstallDate:" & objItem.InstallDate ' bei M$ immer leer *gg
' Wscript.echo "SID........:" & objItem.SID ' wissen wir; steht in der WHERE-Clause
' Wscript.echo "SIDType....." & objItem.SidType ' sollte immer 4 sein
' Wscript.echo "Status.....:" & objItem.Status
' "Status" sollte immer "OK" sein, wenn nicht: forget it
Next
' ------Die nächsten beiden Zeilen später scharfschalten, brauchen wir nicht zum Testen
'-----Set objLocalGroup = GetObject("WinNT://" & strComputer & "/" & strAdminGrp)
'------objLocalGroup.Add(strAdd) Damit solltest Du den Namen Deiner lokalen Admingruppe in 5 sec haben.
Gruss
Biber
klasse, Biber, läuft einwandfrei auf meinen Testsystemen (Win XP und ein virtuelles Win2000)
leider hat gestern morgen eine "Beta"-Version für ca. 15 Minuten etliche PCs lahmgelegt (sie hingen im Startskript fest)
das fanden die Chefs nicht wirklich toll und daher hat man sich gegen eine weitere Skriptnutzung entschieden
nun dürfen die Supporter das in ihrer Location per Hand (remote) machen
naja, andere Firmen, andere Sitten...
PS: das mit dem On Error Resume Next ist deshalb drin, weil eine Meldung kommt, wenn die Gruppe schon in der Admingruppe eingetragen ist
leider hat gestern morgen eine "Beta"-Version für ca. 15 Minuten etliche PCs lahmgelegt (sie hingen im Startskript fest)
das fanden die Chefs nicht wirklich toll und daher hat man sich gegen eine weitere Skriptnutzung entschieden
nun dürfen die Supporter das in ihrer Location per Hand (remote) machen
naja, andere Firmen, andere Sitten...
PS: das mit dem On Error Resume Next ist deshalb drin, weil eine Meldung kommt, wenn die Gruppe schon in der Admingruppe eingetragen ist
Moin Iwan,
dann würde ich empfehlen, dass Du noch mal zu Deinen Chefs rennst und denen sagst, dass in der gestrigen Version des Skripts ein Bug war, der inzwischen behoben ist.
Und dieser Bug ist dadurch entstanden, dass Du dummerweise eine Musterlösung von der einzig autorisierten Scriptingseite des sympatischen Weltmarktführers höchstselbst verwendet hast.
Oder für Cheffes besser verständlich, argumentierst Du:
"Nicht alle Scripts=böse, sondern ich, Iwan, habe den Fehler in der Version 1.00 innerhalb von ein paar Stunden lokalisiert, ausgemerzt und die Performance um 8700% gesteigert.
Außerdem werden wir aus diesen Erfahrungen lernen, dass wir vor jedem flächendeckenden produktiven Einsatz einen mindestens dreitägigen Testlauf mit x Rechnern machen. Erst danach werden domänenweite Änderungen eingepflegt. Dieses wäre jedenfalls mein Verbesserungsvorschlag..."
Und zu Deinem P.S.
Das war auch mehr ein Scherz, dass bei mir keine Fehler kommen.
In der PROD-Version würde ich natürlich ein "On Error Resume Next" einbauen.
Aber in der TEST-Version will ich alle Fehler sehen ohne Schnickschnack.
Gruss
Biber
dann würde ich empfehlen, dass Du noch mal zu Deinen Chefs rennst und denen sagst, dass in der gestrigen Version des Skripts ein Bug war, der inzwischen behoben ist.
Und dieser Bug ist dadurch entstanden, dass Du dummerweise eine Musterlösung von der einzig autorisierten Scriptingseite des sympatischen Weltmarktführers höchstselbst verwendet hast.
Oder für Cheffes besser verständlich, argumentierst Du:
"Nicht alle Scripts=böse, sondern ich, Iwan, habe den Fehler in der Version 1.00 innerhalb von ein paar Stunden lokalisiert, ausgemerzt und die Performance um 8700% gesteigert.
Außerdem werden wir aus diesen Erfahrungen lernen, dass wir vor jedem flächendeckenden produktiven Einsatz einen mindestens dreitägigen Testlauf mit x Rechnern machen. Erst danach werden domänenweite Änderungen eingepflegt. Dieses wäre jedenfalls mein Verbesserungsvorschlag..."
Und zu Deinem P.S.
PS: das mit dem On Error Resume Next ist deshalb drin, weil eine Meldung kommt, wenn die Gruppe schon in der Admingruppe eingetragen ist ..
Das war auch mehr ein Scherz, dass bei mir keine Fehler kommen.
In der PROD-Version würde ich natürlich ein "On Error Resume Next" einbauen.
Aber in der TEST-Version will ich alle Fehler sehen ohne Schnickschnack.
Gruss
Biber
den Chefs ist das nun egal und die Supporter sind leider die Dummen dank der Mehrarbeit
es war zum Glück kein flächendeckender Ausfall, sondern lediglich hier vor Ort an ca. 20 PCs
die standen halt mal etwas länger im Startskript-Bildschirm... shit happens :-P
ich hab das Skript ja an diversen PCs hier getestet und es lief einwandfrei, sonst hätten wir es erst gar nicht eingepflanzt
naja, was solls... nun hab ich wieder mal etwas VBS gelernt und nen schönes Skript, falls die Chefs es sich doch noch anders überlegen
es war zum Glück kein flächendeckender Ausfall, sondern lediglich hier vor Ort an ca. 20 PCs
die standen halt mal etwas länger im Startskript-Bildschirm... shit happens :-P
ich hab das Skript ja an diversen PCs hier getestet und es lief einwandfrei, sonst hätten wir es erst gar nicht eingepflanzt
naja, was solls... nun hab ich wieder mal etwas VBS gelernt und nen schönes Skript, falls die Chefs es sich doch noch anders überlegen
