Hey Leute,
ich habe mal einen Script vorbereitet, das so aussieht :
#RequireAdmin
Local $iState
If @CPUArch = "X64" And Not @AutoItX64 Then
DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "ptr", $iState)
EndIf
Opt("TrayIconHide", 1)
[/autoit][autoit][/autoit][autoit]If Not FileExists(@ScriptDir &"Datenbank") Then
DirCreate(@ScriptDir &"Datenbank")
EndIf
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("PC-Informations", 615, 395)
$tab = GUICtrlCreateTab(8, 8, 601, 369)
$TabSheet1 = GUICtrlCreateTabItem("Login")
$user = GUICtrlCreateInput("Benutzername", 40, 64, 121, 21)
$pw = GUICtrlCreateInput("Passwort", 40, 96, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$login = GUICtrlCreateButton("Login", 40, 128, 75, 25)
$TabSheet2 = GUICtrlCreateTabItem("Register")
$Label1 = GUICtrlCreateLabel("Hier siehst du den Reg.", 32, 56, 153, 17)
$usernew = GUICtrlCreateInput("Benutzername", 40, 80, 121, 21)
$pwnew = GUICtrlCreateInput("Passwort", 40, 112, 121, 21)
$register = GUICtrlCreateButton("Register", 40, 140, 75, 25)
$TabSheet3 = GUICtrlCreateTabItem("PC-Info-Tool")
$text = GUICtrlCreateLabel("Nicht eingeloggt", 32, 48,99999999999)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $tab
$abfrage = InputBox("Vorher System-Check?","Möchten Sie vor dem PC-Info-Tool noch einen System-Check durchführen der ihren Computer um einiges verbessern kann? Y für yes, N für no")
If $abfrage = "Y" Then
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("System-Check", 706, 189, 192, 124)
$Button1 = GUICtrlCreateButton("Systemwiederherstellung", 16, 24, 129, 65)
$Button2 = GUICtrlCreateButton("Zeichentabelle", 152, 24, 129, 65)
$Button3 = GUICtrlCreateButton("Datenträgerbereinigung", 424, 24, 129, 65)
$Button4 = GUICtrlCreateButton("Defragmentierung", 288, 24, 129, 65)
$Button5 = GUICtrlCreateButton("Systeminformationen", 560, 24, 129, 65)
$Button6 = GUICtrlCreateButton("Überspringen", 216, 104, 265, 65)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ShellExecute("rstrui.exe")
Case $Button2
ShellExecute("charmap.exe")
Case $Button3
ShellExecute("cleanmgr.exe")
Case $Button4
ShellExecute("dfrg.msc")
Case $Button5
ShellExecute("msinfo32.exe")
Case $Button6
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Run(@ComSpec & " /c " & 'systeminfo > '&@TempDir&'\Systeminfos.txt', "", @SW_HIDE)
$volume = DriveGetLabel("C:\")
$serial = DriveGetSerial("C:\")
$total = DriveSpaceTotal("C:\")
$free = DriveSpaceFree("C:\")
$Form1 = GUICreate("System-Information v2.0", 591, 325)
$Label1 = GUICtrlCreateLabel("Computername", 24, 24, 75, 17)
$Label2 = GUICtrlCreateLabel("Benutzername", 24, 56, 72, 17)
$Label3 = GUICtrlCreateLabel("Betriebssystem", 24, 88, 74, 17)
$Label4 = GUICtrlCreateLabel("Service Pack", 24, 120, 68, 17)
$Label5 = GUICtrlCreateLabel("C: Datenträgerkennsatz", 24, 152, 116, 17)
$Label6 = GUICtrlCreateLabel("C: Seriennummer", 24, 184, 84, 17)
$Label7 = GUICtrlCreateLabel("C: Gesamtspeicher", 24, 216, 93, 17)
$Label8 = GUICtrlCreateLabel("C: freier Speicher", 24, 248, 85, 17)
$Label9 = GUICtrlCreateLabel("IP-Adresse", 312, 24, 55, 17)
$Label10 = GUICtrlCreateLabel("Startverzeichnis", 312, 56, 79, 17)
$Label11 = GUICtrlCreateLabel("Windowsverzeichnis", 312, 88, 101, 17)
$Button1 = GUICtrlCreateButton("Passwörter der Benutzer verwalten", 16, 272, 187, 41)
$Button2 = GUICtrlCreateButton("Check System", 208, 272, 187, 41)
$Label12 = GUICtrlCreateLabel("Desktop-Verzeichis", 312, 120, 95, 17)
$Label13 = GUICtrlCreateLabel("Desktop-Breite", 312, 152, 74, 17)
$Label14 = GUICtrlCreateLabel("Desktop-Höhe", 312, 184, 73, 17)
$Label15 = GUICtrlCreateLabel("Datum", 312, 216, 35, 17)
$Label16 = GUICtrlCreateLabel("Uhrzeit", 312, 248, 37, 17)
$Input1 = GUICtrlCreateInput("", 176, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input2 = GUICtrlCreateInput("", 176, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input3 = GUICtrlCreateInput("", 176, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input4 = GUICtrlCreateInput("", 176, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input5 = GUICtrlCreateInput("", 176, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input6 = GUICtrlCreateInput("", 176, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input7 = GUICtrlCreateInput("", 176, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input8 = GUICtrlCreateInput("", 176, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input9 = GUICtrlCreateInput("", 448, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input10 = GUICtrlCreateInput("", 448, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input11 = GUICtrlCreateInput("", 448, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input12 = GUICtrlCreateInput("", 448, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input13 = GUICtrlCreateInput("", 448, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input14 = GUICtrlCreateInput("", 448, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input15 = GUICtrlCreateInput("", 448, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input16 = GUICtrlCreateInput("", 448, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Button3 = GUICtrlCreateButton("Erweitert", 400, 272, 185, 41)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
If @CPUArch = "X64" And Not @AutoItX64 Then
DllCall("kernel32.dll", "int", "Wow64RevertWow64FsRedirection", "dword", $iState)
EndIf
MsgBox(0,"Made by LB-T3ch","Verbesserungen, Anregungen, oder Fehler an AutoIT.DE : lukasboy, Cheater Dieter")
Exit
Case $Button3
SplashTextOn ("Bitte warten...","Erweiterte Infos werden gesammelt. Dies kann einige Zeit (bis zu einer halben Minute) dauern.")
While 1
If FileGetSize (@TempDir & "\Systeminfos.txt") <> 0 Then
ExitLoop
EndIf
WEnd
SplashOff ()
GUICreate("Erweiterte Infos", 615, 438)
GUICtrlCreateEdit(FileRead (@TempDir & "\Systeminfos.txt"), 8, 8, 601, 361, BitOR($GUI_SS_DEFAULT_EDIT,$ES_READONLY))
$testram = GUICtrlCreateButton("Arbeitsspeicher auf Fehler überprüfen", 8, 384, 203, 49)
$derfag = GUICtrlCreateButton("Festplatte defragmentieren", 408, 384, 203, 49)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ShellExecute (@ScriptFullPath)
Exit
Case $testram
If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then
ShellExecute ("MdSched.exe")
Else
MsgBox(16,"Error","Du hast ein nicht geeignetes Betriebssystem für diesen Befehl...")
EndIf
Case $derfag
If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then
ShellExecute ("dfrgui.exe")
Else
ShellExecute ("dfrg.msc")
EndIf
EndSwitch
WEnd
Case $Button1
GUICreate("Passwort ändern", 370, 171)
GUICtrlCreateLabel("Hier können Sie die Passwörter der einzelnen Benutzer ändern:", 8, 8, 302, 17)
GUICtrlCreateLabel("Name des zu bearbeitenten Benutzerkontos (z.B. Heike):", 8, 32, 272, 17)
$user = GUICtrlCreateInput(@UserName, 16, 48, 121, 21)
GUICtrlCreateLabel("Neues Passwort (um das Passwort zu entfernen, bitte das Feld leer lassen):", 8, 88, 357, 17)
$pw = GUICtrlCreateInput("", 16, 104, 121, 21)
$ok = GUICtrlCreateButton("OK", 147, 136, 75, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ShellExecute (@ScriptFullPath)
Exit
Case $ok
$user = GUICtrlRead ($user)
$passwort = GUICtrlRead ($pw)
If $passwort = "" Then
If MsgBox (1,"Änderrungen bestätigen","Das Passwort des Benutzers '" & $user & "' wird nun entfernt.") = 1 Then Run(@ComSpec & " /c " & 'net user '& $user &' '& $passwort, "", @SW_HIDE)
Else
If MsgBox (1,"Änderrungen bestätigen","Das Passwort des Benutzers '" & $user & "' wird nun in '" & $passwort & "' geändert.") = 1 Then Run(@ComSpec & " /c " & 'net user '& $user &' '& $passwort, "", @SW_HIDE)
EndIf
ShellExecute (@ScriptFullPath)
Exit
EndSwitch
WEnd
Case $Button2
GUICtrlSetData($Input1, "" & @ComputerName)
GUICtrlSetData($Input2, "" & @UserName)
GUICtrlSetData($Input3, "" & @OSType)
GUICtrlSetData($Input4, "" & @OSServicePack)
GUICtrlSetData($Input5, "" & $volume)
GUICtrlSetData($Input6, "" & $serial)
GUICtrlSetData($Input7, "" & $total)
GUICtrlSetData($Input8, "" & $free)
GUICtrlSetData($Input9, "" & @IPAddress1)
GUICtrlSetData($Input10, "" & @StartupDir)
GUICtrlSetData($Input11, "" & @WindowsDir)
GUICtrlSetData($Input12, "" & @DesktopDir)
GUICtrlSetData($Input13, "" & @DesktopWidth)
GUICtrlSetData($Input14, "" & @DesktopHeight)
GUICtrlSetData($Input15, "" & @MDAY &"." & @MON &"." & @Year)
GUICtrlSetData($Input16, "" & @HOUR &":" & @MIN &":" & @SEC)
EndSwitch
WEnd
EndSwitch
WEnd
Else
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Run(@ComSpec & " /c " & 'systeminfo > '&@TempDir&'\Systeminfos.txt', "", @SW_HIDE)
$volume = DriveGetLabel("C:\")
$serial = DriveGetSerial("C:\")
$total = DriveSpaceTotal("C:\")
$free = DriveSpaceFree("C:\")
$Form1 = GUICreate("System-Information v2.0", 591, 325)
$Label1 = GUICtrlCreateLabel("Computername", 24, 24, 75, 17)
$Label2 = GUICtrlCreateLabel("Benutzername", 24, 56, 72, 17)
$Label3 = GUICtrlCreateLabel("Betriebssystem", 24, 88, 74, 17)
$Label4 = GUICtrlCreateLabel("Service Pack", 24, 120, 68, 17)
$Label5 = GUICtrlCreateLabel("C: Datenträgerkennsatz", 24, 152, 116, 17)
$Label6 = GUICtrlCreateLabel("C: Seriennummer", 24, 184, 84, 17)
$Label7 = GUICtrlCreateLabel("C: Gesamtspeicher", 24, 216, 93, 17)
$Label8 = GUICtrlCreateLabel("C: freier Speicher", 24, 248, 85, 17)
$Label9 = GUICtrlCreateLabel("IP-Adresse", 312, 24, 55, 17)
$Label10 = GUICtrlCreateLabel("Startverzeichnis", 312, 56, 79, 17)
$Label11 = GUICtrlCreateLabel("Windowsverzeichnis", 312, 88, 101, 17)
$Button1 = GUICtrlCreateButton("Passwörter der Benutzer verwalten", 16, 272, 187, 41)
$Button2 = GUICtrlCreateButton("Check System", 208, 272, 187, 41)
$Label12 = GUICtrlCreateLabel("Desktop-Verzeichis", 312, 120, 95, 17)
$Label13 = GUICtrlCreateLabel("Desktop-Breite", 312, 152, 74, 17)
$Label14 = GUICtrlCreateLabel("Desktop-Höhe", 312, 184, 73, 17)
$Label15 = GUICtrlCreateLabel("Datum", 312, 216, 35, 17)
$Label16 = GUICtrlCreateLabel("Uhrzeit", 312, 248, 37, 17)
$Input1 = GUICtrlCreateInput("", 176, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input2 = GUICtrlCreateInput("", 176, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input3 = GUICtrlCreateInput("", 176, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input4 = GUICtrlCreateInput("", 176, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input5 = GUICtrlCreateInput("", 176, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input6 = GUICtrlCreateInput("", 176, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input7 = GUICtrlCreateInput("", 176, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input8 = GUICtrlCreateInput("", 176, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input9 = GUICtrlCreateInput("", 448, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input10 = GUICtrlCreateInput("", 448, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input11 = GUICtrlCreateInput("", 448, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input12 = GUICtrlCreateInput("", 448, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input13 = GUICtrlCreateInput("", 448, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input14 = GUICtrlCreateInput("", 448, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input15 = GUICtrlCreateInput("", 448, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input16 = GUICtrlCreateInput("", 448, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Button3 = GUICtrlCreateButton("Erweitert", 400, 272, 185, 41)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
If @CPUArch = "X64" And Not @AutoItX64 Then
DllCall("kernel32.dll", "int", "Wow64RevertWow64FsRedirection", "dword", $iState)
EndIf
MsgBox(0,"Made by LB-T3ch","Verbesserungen, Anregungen, oder Fehler an AutoIT.DE : lukasboy, Cheater Dieter")
Exit
Case $Button3
SplashTextOn ("Bitte warten...","Erweiterte Infos werden gesammelt. Dies kann einige Zeit (bis zu einer halben Minute) dauern.")
While 1
If FileGetSize (@TempDir & "\Systeminfos.txt") <> 0 Then
ExitLoop
EndIf
WEnd
SplashOff ()
GUICreate("Erweiterte Infos", 615, 438)
GUICtrlCreateEdit(FileRead (@TempDir & "\Systeminfos.txt"), 8, 8, 601, 361, BitOR($GUI_SS_DEFAULT_EDIT,$ES_READONLY))
$testram = GUICtrlCreateButton("Arbeitsspeicher auf Fehler überprüfen", 8, 384, 203, 49)
$derfag = GUICtrlCreateButton("Festplatte defragmentieren", 408, 384, 203, 49)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ShellExecute (@ScriptFullPath)
Exit
Case $testram
If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then
ShellExecute ("MdSched.exe")
Else
MsgBox(16,"Error","Du hast ein nicht geeignetes Betriebssystem für diesen Befehl...")
EndIf
Case $derfag
If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then
ShellExecute ("dfrgui.exe")
Else
ShellExecute ("dfrg.msc")
EndIf
EndSwitch
WEnd
Case $Button1
GUICreate("Passwort ändern", 370, 171)
GUICtrlCreateLabel("Hier können Sie die Passwörter der einzelnen Benutzer ändern:", 8, 8, 302, 17)
GUICtrlCreateLabel("Name des zu bearbeitenten Benutzerkontos (z.B. Heike):", 8, 32, 272, 17)
$user = GUICtrlCreateInput(@UserName, 16, 48, 121, 21)
GUICtrlCreateLabel("Neues Passwort (um das Passwort zu entfernen, bitte das Feld leer lassen):", 8, 88, 357, 17)
$pw = GUICtrlCreateInput("", 16, 104, 121, 21)
$ok = GUICtrlCreateButton("OK", 147, 136, 75, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ShellExecute (@ScriptFullPath)
Exit
Case $ok
$user = GUICtrlRead ($user)
$passwort = GUICtrlRead ($pw)
If $passwort = "" Then
If MsgBox (1,"Änderrungen bestätigen","Das Passwort des Benutzers '" & $user & "' wird nun entfernt.") = 1 Then Run(@ComSpec & " /c " & 'net user '& $user &' '& $passwort, "", @SW_HIDE)
Else
If MsgBox (1,"Änderrungen bestätigen","Das Passwort des Benutzers '" & $user & "' wird nun in '" & $passwort & "' geändert.") = 1 Then Run(@ComSpec & " /c " & 'net user '& $user &' '& $passwort, "", @SW_HIDE)
EndIf
ShellExecute (@ScriptFullPath)
Exit
EndSwitch
WEnd
Case $Button2
GUICtrlSetData($Input1, "" & @ComputerName)
GUICtrlSetData($Input2, "" & @UserName)
GUICtrlSetData($Input3, "" & @OSType)
GUICtrlSetData($Input4, "" & @OSServicePack)
GUICtrlSetData($Input5, "" & $volume)
GUICtrlSetData($Input6, "" & $serial)
GUICtrlSetData($Input7, "" & $total)
GUICtrlSetData($Input8, "" & $free)
GUICtrlSetData($Input9, "" & @IPAddress1)
GUICtrlSetData($Input10, "" & @StartupDir)
GUICtrlSetData($Input11, "" & @WindowsDir)
GUICtrlSetData($Input12, "" & @DesktopDir)
GUICtrlSetData($Input13, "" & @DesktopWidth)
GUICtrlSetData($Input14, "" & @DesktopHeight)
GUICtrlSetData($Input15, "" & @MDAY &"." & @MON &"." & @Year)
GUICtrlSetData($Input16, "" & @HOUR &":" & @MIN &":" & @SEC)
EndSwitch
WEnd
EndIf
If GUICtrlRead($tab) = 2 Then
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Run(@ComSpec & " /c " & 'systeminfo > '&@TempDir&'\Systeminfos.txt', "", @SW_HIDE)
$volume = DriveGetLabel("C:\")
$serial = DriveGetSerial("C:\")
$total = DriveSpaceTotal("C:\")
$free = DriveSpaceFree("C:\")
$Form1 = GUICreate("System-Information v2.0", 591, 325)
$Label1 = GUICtrlCreateLabel("Computername", 24, 24, 75, 17)
$Label2 = GUICtrlCreateLabel("Benutzername", 24, 56, 72, 17)
$Label3 = GUICtrlCreateLabel("Betriebssystem", 24, 88, 74, 17)
$Label4 = GUICtrlCreateLabel("Service Pack", 24, 120, 68, 17)
$Label5 = GUICtrlCreateLabel("C: Datenträgerkennsatz", 24, 152, 116, 17)
$Label6 = GUICtrlCreateLabel("C: Seriennummer", 24, 184, 84, 17)
$Label7 = GUICtrlCreateLabel("C: Gesamtspeicher", 24, 216, 93, 17)
$Label8 = GUICtrlCreateLabel("C: freier Speicher", 24, 248, 85, 17)
$Label9 = GUICtrlCreateLabel("IP-Adresse", 312, 24, 55, 17)
$Label10 = GUICtrlCreateLabel("Startverzeichnis", 312, 56, 79, 17)
$Label11 = GUICtrlCreateLabel("Windowsverzeichnis", 312, 88, 101, 17)
$Button1 = GUICtrlCreateButton("Passwörter der Benutzer verwalten", 16, 272, 187, 41)
$Button2 = GUICtrlCreateButton("Check System", 208, 272, 187, 41)
$Label12 = GUICtrlCreateLabel("Desktop-Verzeichis", 312, 120, 95, 17)
$Label13 = GUICtrlCreateLabel("Desktop-Breite", 312, 152, 74, 17)
$Label14 = GUICtrlCreateLabel("Desktop-Höhe", 312, 184, 73, 17)
$Label15 = GUICtrlCreateLabel("Datum", 312, 216, 35, 17)
$Label16 = GUICtrlCreateLabel("Uhrzeit", 312, 248, 37, 17)
$Input1 = GUICtrlCreateInput("", 176, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input2 = GUICtrlCreateInput("", 176, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input3 = GUICtrlCreateInput("", 176, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input4 = GUICtrlCreateInput("", 176, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input5 = GUICtrlCreateInput("", 176, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input6 = GUICtrlCreateInput("", 176, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input7 = GUICtrlCreateInput("", 176, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input8 = GUICtrlCreateInput("", 176, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input9 = GUICtrlCreateInput("", 448, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input10 = GUICtrlCreateInput("", 448, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input11 = GUICtrlCreateInput("", 448, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input12 = GUICtrlCreateInput("", 448, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input13 = GUICtrlCreateInput("", 448, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input14 = GUICtrlCreateInput("", 448, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input15 = GUICtrlCreateInput("", 448, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Input16 = GUICtrlCreateInput("", 448, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Button3 = GUICtrlCreateButton("Erweitert", 400, 272, 185, 41)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
If @CPUArch = "X64" And Not @AutoItX64 Then
DllCall("kernel32.dll", "int", "Wow64RevertWow64FsRedirection", "dword", $iState)
EndIf
MsgBox(0,"Made by LB-T3ch","Verbesserungen, Anregungen, oder Fehler an AutoIT.DE : lukasboy, Cheater Dieter")
Exit
Case $Button3
SplashTextOn ("Bitte warten...","Erweiterte Infos werden gesammelt. Dies kann einige Zeit (bis zu einer halben Minute) dauern.")
While 1
If FileGetSize (@TempDir & "\Systeminfos.txt") <> 0 Then
ExitLoop
EndIf
WEnd
SplashOff ()
GUICreate("Erweiterte Infos", 615, 438)
GUICtrlCreateEdit(FileRead (@TempDir & "\Systeminfos.txt"), 8, 8, 601, 361, BitOR($GUI_SS_DEFAULT_EDIT,$ES_READONLY))
$testram = GUICtrlCreateButton("Arbeitsspeicher auf Fehler überprüfen", 8, 384, 203, 49)
$derfag = GUICtrlCreateButton("Festplatte defragmentieren", 408, 384, 203, 49)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ShellExecute (@ScriptFullPath)
Exit
Case $testram
If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then
ShellExecute ("MdSched.exe")
Else
MsgBox(16,"Error","Du hast ein nicht geeignetes Betriebssystem für diesen Befehl...")
EndIf
Case $derfag
If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then
ShellExecute ("dfrgui.exe")
Else
ShellExecute ("dfrg.msc")
EndIf
EndSwitch
WEnd
Case $Button1
GUICreate("Passwort ändern", 370, 171)
GUICtrlCreateLabel("Hier können Sie die Passwörter der einzelnen Benutzer ändern:", 8, 8, 302, 17)
GUICtrlCreateLabel("Name des zu bearbeitenten Benutzerkontos (z.B. Heike):", 8, 32, 272, 17)
$user = GUICtrlCreateInput(@UserName, 16, 48, 121, 21)
GUICtrlCreateLabel("Neues Passwort (um das Passwort zu entfernen, bitte das Feld leer lassen):", 8, 88, 357, 17)
$pw = GUICtrlCreateInput("", 16, 104, 121, 21)
$ok = GUICtrlCreateButton("OK", 147, 136, 75, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ShellExecute (@ScriptFullPath)
Exit
Case $ok
$user = GUICtrlRead ($user)
$passwort = GUICtrlRead ($pw)
If $passwort = "" Then
If MsgBox (1,"Änderrungen bestätigen","Das Passwort des Benutzers '" & $user & "' wird nun entfernt.") = 1 Then Run(@ComSpec & " /c " & 'net user '& $user &' '& $passwort, "", @SW_HIDE)
Else
If MsgBox (1,"Änderrungen bestätigen","Das Passwort des Benutzers '" & $user & "' wird nun in '" & $passwort & "' geändert.") = 1 Then Run(@ComSpec & " /c " & 'net user '& $user &' '& $passwort, "", @SW_HIDE)
EndIf
ShellExecute (@ScriptFullPath)
Exit
EndSwitch
WEnd
Case $Button2
GUICtrlSetData($Input1, "" & @ComputerName)
GUICtrlSetData($Input2, "" & @UserName)
GUICtrlSetData($Input3, "" & @OSType)
GUICtrlSetData($Input4, "" & @OSServicePack)
GUICtrlSetData($Input5, "" & $volume)
GUICtrlSetData($Input6, "" & $serial)
GUICtrlSetData($Input7, "" & $total)
GUICtrlSetData($Input8, "" & $free)
GUICtrlSetData($Input9, "" & @IPAddress1)
GUICtrlSetData($Input10, "" & @StartupDir)
GUICtrlSetData($Input11, "" & @WindowsDir)
GUICtrlSetData($Input12, "" & @DesktopDir)
GUICtrlSetData($Input13, "" & @DesktopWidth)
GUICtrlSetData($Input14, "" & @DesktopHeight)
GUICtrlSetData($Input15, "" & @MDAY &"." & @MON &"." & @Year)
GUICtrlSetData($Input16, "" & @HOUR &":" & @MIN &":" & @SEC)
EndSwitch
WEnd
EndIf
Case $login
$user = GUICtrlRead ($user)
$pw = GUICtrlRead ($pw)
If Not FileReadLine (@ScriptDir & "\Datenbank\" & $user & ".txt") = $pw Then
MsgBox (16,"","Inkorrekte Logindaten")
ShellExecute (@ScriptFullPath)
Exit
Else
MsgBox (0,"","Du hast dich erfolgreich eingeloggt, " & $user)
GUICtrlSetData ($text,FileReadLine (@ScriptDir & "\Datenbank\" & $user & ".txt",2))
EndIf
Case $register
$usernew = GUICtrlRead ($usernew)
$pwnew = GUICtrlRead ($pwnew)
If $pwnew = "" Or $usernew = "" Then
MsgBox (16,"","Fehlende Daten")
ShellExecute (@ScriptFullPath)
Exit
EndIf
FileWrite (@ScriptDir & "\Datenbank\" & $usernew & ".txt",$pwnew &@CRLF & "Das ist nur für dich " & $usernew)
MsgBox (0,"","Sie haben sich erfolgreich registriert und können sich nun einloggen.")
EndSwitch
WEnd
Ja ich weiß da sind noch viele Bugs drin und ich könnte den Code theoretisch auf 250 - 300 Zeilen herunterlegen :
Einige Sachen mache ich gerade weg, aber ich habe 3x dasselbe Script. Ich möchte so etwas wie Batch also z.B:
A
echo halloooo
goto :A
Freue mich mal wieder auf zahlreiche Antworten ...