Lokales Benutzerkonto mit Admin-Rechten eröffnen

  • Allgemein

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von quen_to.

    Lokales Benutzerkonto mit Admin-Rechten eröffnen

    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: :whistling:

    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?

    du willst nen bestimmten user in die lokale admin gruppe aufnehmen richtig?
    ich hab letztens n kurzes script gebastelt dass überprüft ob ein bestimmter user in der admin gruppe ist
    und wenn nicht dann fügt es den user zu den lokalen admin hinzu.
    vielleicht hilfts dir ja

    VB.NET-Quellcode

    1. '========================================================================
    2. 'Add user to local admin Group
    3. '
    4. '!!!Define the following variables in the settings section!!!
    5. '
    6. 'Usertoadd = Which user should be added to local admin group
    7. 'localcomputer = localhost
    8. 'masteruser= user which already has local admin rights
    9. 'group= local group which the user should be added
    10. '
    11. '========================================================================
    12. dim oShell
    13. dim Usertoadd
    14. dim command
    15. dim check
    16. dim localComputer
    17. dim masteruser
    18. dim group
    20. Set oShell = WScript.CreateObject ("WScript.Shell")
    21. Set objNetwork = CreateObject("Wscript.Network")
    24. '===================================Settings================================
    25. Usertoadd = "userxyz"
    26. masteruser= "userxyz"
    27. localComputer= objNetwork.ComputerName
    28. group="Administratoren"
    29. '========================================================================
    31. command = "runas /User:" & masteruser & " /savecred ""net localgroup Administratoren domfgdvb\" & Usertoadd &" /add"""
    33. check="false"
    36. Set objGroup = GetObject("WinNT://" & localComputer & "/" & group)
    38. For Each objUser in objGroup.Members
    40. If objUser.Name = Usertoadd Then
    41. 'User is already admin
    42. check="true"
    43. else
    44. 'User is not admin
    45. End If
    46. Next
    49. if check="false" Then
    50. oShell.run command
    51. WScript.sleep 10000
    52. oshell.run "shutdown -l -t 5"
    53. else
    54. End if
    56. Set oShell = Nothing

Facebook
Telefonspende