Grüezi VB-Community
Leider fand ich im Board kein Thema um mein Problem, deshalb halt ein neuer Post...
Ich versuche für die anstehende Systemumstellung die Eröffnung eines lokalen Benutzers auf Win7 zu automatisieren. Der User sollte notebook heissen (Passwort=notebook) und in der Gruppe Administratoren sein (lokal). Aktiviert wird der Script über unsere Softwareverteilung und wird jeweils auf Notebooks angewandt.
Ich habe schon etwas recherchiert und nachfolgenden Script gefunden und ein wenig angepasst:
strComputer = "IT002841"
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "notebook")
objUser.SetPassword "notebook"
objUser.SetInfo
Was ich nun verzweifelt versuche, aber einfach nicht auf einen grünen Zweig komme ist
1. strComputer = "%Computername%"
2. den User in die lokale Administratoren-Gruppe anzuschliessen
Habe mir gedacht, ich kopier mal schnell ein paar Zeilen eines anderen Scipts rein und löse das Problem:
set group = getObject ("WinNT://" & local &"/Administrators")
Aber durch meine fehlenden VB-Kenntnisse habe ich es nur bis zu ganz haarsträubenden Fehlermeldungen geschafft und bin der Lösung keinen Schritt näher gekommen. Aber wenigstens wird der User angelegt... zwar ohne Gruppe aber immerhin
Kann mir einer helfen?
Leider fand ich im Board kein Thema um mein Problem, deshalb halt ein neuer Post...
Ich versuche für die anstehende Systemumstellung die Eröffnung eines lokalen Benutzers auf Win7 zu automatisieren. Der User sollte notebook heissen (Passwort=notebook) und in der Gruppe Administratoren sein (lokal). Aktiviert wird der Script über unsere Softwareverteilung und wird jeweils auf Notebooks angewandt.
Ich habe schon etwas recherchiert und nachfolgenden Script gefunden und ein wenig angepasst:
strComputer = "IT002841"
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "notebook")
objUser.SetPassword "notebook"
objUser.SetInfo
Was ich nun verzweifelt versuche, aber einfach nicht auf einen grünen Zweig komme ist
1. strComputer = "%Computername%"
2. den User in die lokale Administratoren-Gruppe anzuschliessen
Habe mir gedacht, ich kopier mal schnell ein paar Zeilen eines anderen Scipts rein und löse das Problem:
set group = getObject ("WinNT://" & local &"/Administrators")
Aber durch meine fehlenden VB-Kenntnisse habe ich es nur bis zu ganz haarsträubenden Fehlermeldungen geschafft und bin der Lösung keinen Schritt näher gekommen. Aber wenigstens wird der User angelegt... zwar ohne Gruppe aber immerhin
Kann mir einer helfen?