Ist das Programm ein Bot oder Ähnliches? 15
-
Ja (1) 7%
-
Nein (9) 60%
-
Unentschieden (1) 7%
-
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
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 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
veröffentlichen, wenn die Admins einverstanden sind, da ich nicht weiß,
ob es ein Bot ist.
- 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
#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 ###
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
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