benutzer und gruppen anlegen

1. offizieller Beitrag

    Ich hab in der schule zzt n projekt und dazu muss ich mehrere benutzer und gruppen anlegen. ist es möglich dies einfach in nem autoit script zu machen. auf mehrere rechner sollen die selben user und gruppen rauf und ich möchte damit ich schnell fertig bin einfach das script ausführen auf jedem pc.
    alles unter w2k
    danke schonma ;)

    Einmal editiert, zuletzt von ey-jo86 (21. November 2006 um 21:44)

    • Offizieller Beitrag

    Hallo!

    Das bezfeifle ich... Höchstens in dem du "Benutzerkonten" in den Systemeig öffnest und dann mit mausklick/send.. Warum das warscheinlich nich möglich ist: weil man da zimlich weit ins windows innenleben rein muss! Villeicht geht es mit Dlls.. kannst dich ja mal bei google schlau machen ;)

    Mfg Spider

    • Offizieller Beitrag

    Hi,

    versuch doch mal :

    [autoit]

    ; Init objects
    $UserName = 'Test'
    $Password = 'Password'
    $oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler
    $strComputer = @ComputerName
    $colAccounts = ObjGet("WinNT://" & $strComputer & "")
    $objUser = $colAccounts.Create("user", $UserName)
    $objUser.SetPassword ($Password)
    $objUser.Put ("Fullname", "Test User")
    $objUser.Put ("Description", "Test User description")
    $objUser.SetInfo
    ;Add User to group
    $objGroup = ObjGet("WinNT://" & $strComputer & "/Administrator,group")
    $objGroup.Add($objUser.ADsPath)
    ;
    ;
    ; This is my custom error handler
    Func MyErrFunc()
    $HexNumber=hex($oMyError.number,8)
    Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
    "Number is: " & $HexNumber & @CRLF & _
    "Linenbr is: " & $oMyError.scriptline & @CRLF & _
    "Description is: " & $oMyError.description & @CRLF & _
    "Windescription is: " & $oMyError.windescription )

    [/autoit][autoit][/autoit][autoit]

    SetError(1); something to check for when this function returns
    Endfunc

    [/autoit]

    So long,

    Mega

    hallo
    hätte da auch noch was :

    Spoiler anzeigen
    [autoit]


    ; legt ein neuen User an
    ; von MHz
    ; UNGETET
    _NetUser('Jack', 'pw_abc')
    _NetUser('Jill', 'pw_def')

    Func _NetUser($name, $password = , $groupname = 'Administrators', $autologon = 0)
    ; Creates user accounts. Only 1 user can have autologon, if set.
    Local $key
    If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $name) Then
    RunWait(@ComSpec & ' /c ' & _
    'Net User ' & $name & ' ' & $password & ' /add &&' & _
    'Net LocalGroup ' & $groupname & ' ' & $name & ' /add &' & _
    'Net Accounts /MaxPwAge:UnLimited', , @SW_HIDE)
    If $autologon Then
    $key = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'
    RegWrite($key, 'DefaultUserName', 'Reg_sz', $name)
    RegWrite($key, 'DefaultPassword', 'Reg_sz', $password)
    RegWrite($key, 'AutoAdminLogon', 'Reg_sz', 1)
    EndIf
    EndIf
    EndFunc ;==>_NetUser

    [/autoit]