iUser - Wenn du den Benutzer kontrollieren willst

  • Ist das Programm ein Bot oder Ähnliches? 15

    1. Ja (1) 7%
    2. Nein (9) 60%
    3. Unentschieden (1) 7%
    4. Kommt auf den Nutzen an (4) 27%

    [Blockierte Grafik: http://www.abload.de/img/iuser9div3.png]

    Hey,
    heute hab ich ein altes Programm von mir gefunden: iUser - If you wanna control the user
    Bitte verzeiht mir meinen "i" Hype :D
    Der Name ist NICHT gemeint als "Lassen wir Papas Account löschen" sondern wirklich wenn man ein Passwort vergessen hat oder Admin hinzufügen will. Da ich nicht viel über Win8 weiß, ist es noch Alpha. Die Features:Testet das Programm ruhig aus! Ich will den Code aber nur dann
    veröffentlichen, wenn die Admins einverstanden sind, da ich nicht weiß,
    ob es ein Bot ist.
    JETZT: Der Code! Erwartet nicht so viel, es ist wenig und simpel! Hoffentlich hab ich mit der Diskussion nicht zu viel nie Werbetrommel gerührt ;)

    • System Informationen
    • Passwort ändern
    • Benuter löschen
    • Benutzer hinzufügen
    • Benutzer zu einer Gruppe hinzufügen
    • Benutzer von einer Gruppe entfernen
    • Benutzer anzeigen: Noch nicht drinnen, da manche Fehler enthalten sind

    Script:

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=new.ico
    #AutoIt3Wrapper_Outfile=iUser.exe
    #AutoIt3Wrapper_Res_Comment=If you wanna control the user-
    #AutoIt3Wrapper_Res_Description=iUser
    #AutoIt3Wrapper_Res_Fileversion=1.0
    #AutoIt3Wrapper_Res_LegalCopyright=© LimeSoft Solutions 2012
    #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=C:\Users\Administrator\Documents\StevenX Media\iUser\GUI.kxf
    $Form1 = GUICreate("iUser - Alpha ", 603, 280, 192, 124)
    $Label1 = GUICtrlCreateLabel("iUser Alpha", 231, 32, 140, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "Myriad")
    $MenuItem1 = GUICtrlCreateMenu("Informations")
    $About = GUICtrlCreateMenuItem("About", $MenuItem1)
    $Website = GUICtrlCreateMenuItem("Visit Website", $MenuItem1)
    $SystemInfo = GUICtrlCreateButton("Show System Informations", 16, 135, 155, 25, $BS_ICON)
    $PassForgot = GUICtrlCreateButton("Forgot Password?", 16, 168, 155, 25, $BS_ICON)
    $Del_User = GUICtrlCreateButton("Delete User", 216, 135, 155, 25, $BS_ICON)
    $Add_User = GUICtrlCreateButton("Add User", 218, 168, 155, 25, $BS_ICON)
    $Add_Group = GUICtrlCreateButton("Add to Group", 410, 135, 155, 25, $BS_ICON)
    $Delete_Group = GUICtrlCreateButton("Delete from Group", 410, 168, 155, 25, $BS_ICON)
    $Label2 = GUICtrlCreateLabel("©LimeSoft Solutions 2012", 8, 240, 134, 17)
    $Label3 = GUICtrlCreateLabel("iUser Alpha", 256, 240, 58, 17)
    $Label4 = GUICtrlCreateLabel("Stefan Blagojevic", 504, 240, 87, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $About
    MsgBox( 0, "About", "iUser Alpha 1.0" & @CRLF & "Author: Stefan Blagojevic" & @CRLF & "Publisher: LimeSoft Solutions")
    Case $Website
    ShellExecute( "http://LimeSoft-Solutions.com")
    Case $SystemInfo
    MsgBox( 0, "Systeminfo", "Windows Version: " & @OSVersion & "Build" & @OSBuild & " " & @OSArch & " " & @OSServicePack & @CRLF & "System Language: " & @OSLang & @CRLF & "Display Dimensions: " & @DesktopWidth & "X" & @DesktopHeight & @CRLF & "Windows is installed on the partition: " & @HomeDrive & @CRLF & "The actual user is: " & @UserName & @CRLF & "Date (DAY/MONTH/YEAR): " & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & "Time:" & " " & @HOUR & ":" & @MIN & ":" & @MSEC)
    Case $PassForgot
    Local $Username = InputBox( "iUser", "Username:")
    Local $Password = InputBox( "iUser", "The new password:")
    Run(@ComSpec & " /c " & 'net user ' & $Username & ' ' & $Password, "", @SW_HIDE)
    MsgBox( 0, "iUser", "Password changed")
    Case $Del_User
    Local $Username = InputBox( "iUser", "Username:")
    Run(@ComSpec & " /c " & 'net user ' & $Username & ' /delete', "", @SW_HIDE)
    MsgBox(0, "iUser", "User deleted")
    Case $Add_User
    Local $Username = InputBox( "iUser", "Username:")
    Local $Password = InputBox( "iUser", "The new password:")
    Run(@ComSpec & " /c " & 'net user ' & $Username & ' ' & $Password & ' /add', "", @SW_HIDE)
    MsgBox( 0, "iUser", "User added")
    Case $Add_Group
    Local $Username = InputBox( "iUser", "Username:")
    Local $Group= InputBox( "iUser", "Groupname")
    Run(@ComSpec & " /c " & 'net localgroup ' & $Group & ' ' & $Username & ' /add', "", @SW_HIDE)
    MsgBox( 0, "iUser", "User added")
    Case $Delete_Group
    Local $Username = InputBox( "iUser", "Username:")
    Local $Group= InputBox( "iUser", "Groupname")
    Run(@ComSpec & " /c " & 'net localgroup ' & $Group & ' ' & $Username & ' /delete', "", @SW_HIDE)
    MsgBox( 0, "iUser", "User deleted")
    EndSwitch
    WEnd

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


    Also Admins, gibt einfach euer OK und ich werds online stellen! Oder ihr könnt mich um eine Vorabkopie bitten.

    MFG,

    StevenX

    P.S.: Natürlich muss man Admin sein, um das Programm zu starten

    [Blockierte Grafik: http://stefan.blagojevic.at/loading.gif]

    Design, Modellbau, CAD <3
    AutoCAD, ArchiCAD, REVIT (ist ein Scheiss, habe aber das Zertifikat)

    Cinema 4D, RuckZuck Statik Programm

    Michael Bay als Architekt


    Da eine Glasfassade! Booom Sichtbeton! Laminiertes Bild auf Mosaiksteinchen! Granit! Granit! Granit! Sichtbetonwand mit 50° Neigung!
    Holzverkleidung erscheint da! Boooooom!

    Einmal editiert, zuletzt von Stevenx (2. November 2012 um 00:07) aus folgendem Grund: Code

  • Chris:
    Ehrlich gesagt hab ich einfacher gedacht - CMD :D

    MFG

    [Blockierte Grafik: http://stefan.blagojevic.at/loading.gif]

    Design, Modellbau, CAD <3
    AutoCAD, ArchiCAD, REVIT (ist ein Scheiss, habe aber das Zertifikat)

    Cinema 4D, RuckZuck Statik Programm

    Michael Bay als Architekt


    Da eine Glasfassade! Booom Sichtbeton! Laminiertes Bild auf Mosaiksteinchen! Granit! Granit! Granit! Sichtbetonwand mit 50° Neigung!
    Holzverkleidung erscheint da! Boooooom!

  • Ups sorry, man kann jedes Mal was neues lernen :D

    MFG

    [Blockierte Grafik: http://stefan.blagojevic.at/loading.gif]

    Design, Modellbau, CAD <3
    AutoCAD, ArchiCAD, REVIT (ist ein Scheiss, habe aber das Zertifikat)

    Cinema 4D, RuckZuck Statik Programm

    Michael Bay als Architekt


    Da eine Glasfassade! Booom Sichtbeton! Laminiertes Bild auf Mosaiksteinchen! Granit! Granit! Granit! Sichtbetonwand mit 50° Neigung!
    Holzverkleidung erscheint da! Boooooom!

  • So, bitte korrigiert mich wenn ihr anderer Meinung seid. Laut Wikipedia:

    Zitat

    Unter einem Bot (von eng. robot „Roboter“) versteht man ein Computerprogramm,
    das weitgehend selbstständig sich wiederholende Aufgaben abarbeitet,
    ohne dabei auf eine Interaktion mit einem menschlichen Benutzer
    angewiesen zu sein.
    Quelle: http://de.wikipedia.org/wiki/Bot

    Da iUser nur auf Anfrage funktioniert, müsste es kein Bot sein. Ein 'Game Bot' ist zum Manipulieren, iUser nicht. Auch wenn man sagt, dass es Windows manipuliert, es basiert auf CMD und es hat ja nicht den Sinn zu hacken. Eine Game Bot wird ja ausdrücklich dazu verwendet. Aber, Admins entscheiden hier alles.
    Apropos: Bitte verzeiht mein Deutsch, es ist spät :D

    MFG

    [Blockierte Grafik: http://stefan.blagojevic.at/loading.gif]

    Design, Modellbau, CAD <3
    AutoCAD, ArchiCAD, REVIT (ist ein Scheiss, habe aber das Zertifikat)

    Cinema 4D, RuckZuck Statik Programm

    Michael Bay als Architekt


    Da eine Glasfassade! Booom Sichtbeton! Laminiertes Bild auf Mosaiksteinchen! Granit! Granit! Granit! Sichtbetonwand mit 50° Neigung!
    Holzverkleidung erscheint da! Boooooom!

  • Ist kein Bot. Das wärs ja noch, Verwaltungsprogramme als Bots einzustufen.

    Benutzen würde ich es trotzdem nicht, da es eher ein Zwischending zwischen Benutzeraccountverwaltung und CMD ist. Bei mir sind ebenfalls die NET Commands gesperrt, daher für mich nutzlos.

    Aber immer gut, wenn es wenigstens funktioniert :D

  • Geposted! Erwartet aber nicht zu viel ;)

    MFG

    [Blockierte Grafik: http://stefan.blagojevic.at/loading.gif]

    Design, Modellbau, CAD <3
    AutoCAD, ArchiCAD, REVIT (ist ein Scheiss, habe aber das Zertifikat)

    Cinema 4D, RuckZuck Statik Programm

    Michael Bay als Architekt


    Da eine Glasfassade! Booom Sichtbeton! Laminiertes Bild auf Mosaiksteinchen! Granit! Granit! Granit! Sichtbetonwand mit 50° Neigung!
    Holzverkleidung erscheint da! Boooooom!