Hey Leute,
zur Zeit sitze ich an einem noch sehr simplen Script. Es geht um ein System-Info-Programm, dass dir alle wichtigen Informationen liefert. Version 1.0 ist leicht nach zu scripten, doch es wird zur Zeit an der 2.0 Version gebastelt die schon etwas schwieriger zu scripten ist. Es wird also noch ein bisschen dauern bis Version 2.0 draußen ist. Es wird bestimmt bis zu 10 Versionen geben.
Wer Interesse hat, mit zu scripten,
einfach anschreiben 
Hier der Downloadlink:
Dich zwingt (hier, im Projekte-Forum) keiner dazu, aber ich empfehle dir, den Quellcode zu veröffentlichen, um anderen die Möglichkeit zu geben, dir Feedback zu geben.
Hier die neue Version die einigermaßen entbuggt ist
#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]#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
ShellExecute ("MdSched.exe")
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
#cs
Hi,
schau Dir mal "DriveGetDrive" genauer an !
#ce
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
Opt("GUIOnEventMode", 1)
[/autoit][autoit][/autoit][autoit]Global $HDD = DriveGetDrive("FIXED")
[/autoit][autoit][/autoit][autoit]GUICreate(" HDD - Manager", 300, 400)
GUISetOnEvent($GUI_EVENT_CLOSE, "_quit")
GUICtrlCreateLabel("HDD - Manager", 10, 10, 280, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
For $i = 1 To $HDD[0]
$lbLW = GUICtrlCreateLabel("Auf " & $HDD[$i] & " sind " _
& Round(DriveSpaceFree($HDD[$i]), 2) _
& " MB frei von " & Round(DriveSpaceTotal($HDD[$i]), 2) _
& " MB", 10, 10 + $i * 32, 280, 22)
Next
$bnCancel = GUICtrlCreateButton("Cancel", 215, 368, 75, 22)
GUICtrlSetOnEvent(-1, "_quit")
GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]While 1
Sleep(100)
WEnd
Func _quit()
MsgBox(64, " HDD - Manager", _
"Viel Spaß wünscht Ritzelrocker04 !" & @TAB)
Exit
EndFunc ;==>_quit
; Ende
[/autoit]Pls Feedback geben (Das Programm wurde innerhalb 2h geschrieben, also nicht zu viel erwarten. Sind paar Infos gegeben und unter "Erweitert" bekommt man dann nochmal sehr viele Infos
@lukasboy: Stelle doch mal die aktuelle Version rein, die die da veröffentlicht ist, hat ja doch einige Bugs...
Ja ok
Feedback geben wäre gut
Moin, naja was soll man dazu viel sagen es ist ein kleines InfoTool .. gib ein paar Infos aus.. hatt aber noch einige Bugs.. zb kann man aus dem erweiteren Fenster nicht mehr zurück ins Hauptfenster usw.. naja sehe denn Sinn in diesem Script noch nicht wirklich ich meine solche Art von Scripten gibt es zu hauf und die Infos die man braucht kann man sich auch einfach über Sysinfo über die Cmd holen :-\
Gruß
Hi,
sehr schöne Idee schöner Stil.
Schau Dir mal folgendes genauer an (siehe Post #4):
"DriveGetDrive" (weitere Laufwerke, HDD, CD, USB)
und "Opt("GUIOnEventMode", 1)" (leichteres Arbeiten mit mehreren Fenstern)
Bei der Verwendung von "GUISetState(@SW_SHOW)" muss die jeweilige GUI direkt angesprochen werden,
also "GUISetState(@SW_SHOW, $Form1)"
Thx, jaa ich werde noch ein wenig dran arbeiten^^
@Protex doch du musst nur das Erweitert-Fenster wegmachen und schon ist das Hauptfenster wieder da 
Hey kann mir mal jmd helfen? Den Script oben möchte ich jetzt in einen Register einbauen. Den Register-Script habe ich schon. Da ist dann noch PC-Info-Tool. Ich möchte wenn man da drauf klickt, dass dann das Programm kommen soll.
Hier der Register-Script:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("PC-Informations", 615, 395)
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 $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
Hi,
bei "MdSched.exe" wird bei mir eine Error-Meldung ausgegeben. MdSched.exe nur bei Win 7 ??
Bei mir läuft Win XP Pro.
Schau Dir mal die Anpassungen an, ich habe auch eine mehrfache Variable gefunden. Wie findest Du den Wechsle in den OnEvent Modus ! 
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#RequireAdmin
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
Opt("TrayIconHide", 1)
Global $iState
If @CPUArch = "X64" And Not @AutoItX64 Then _
DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "ptr", $iState)
Run(@ComSpec & " /c " & 'systeminfo > ' & @TempDir & '\Systeminfos.txt', "", @SW_HIDE)
#region GUI $mainGUI ###
$mainGUI = GUICreate("System-Information v2.1", 591, 325)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$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)
$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))
$Button1 = GUICtrlCreateButton("Passwörter der Benutzer verwalten", 16, 272, 187, 41)
GUICtrlSetOnEvent($Button1, "_Passwoerter")
$Button2 = GUICtrlCreateButton("Check System", 208, 272, 187, 41)
GUICtrlSetOnEvent($Button2, "_CheckSystem")
$Button3 = GUICtrlCreateButton("Erweitert", 400, 272, 185, 41)
GUICtrlSetOnEvent($Button3, "_info")
GUISetState(@SW_SHOW, $mainGUI)
#endregion GUI $mainGUI ###
#region GUI $GUI_info ###
$GUI_info = GUICreate("Erweiterte Infos", 615, 438)
GUISetOnEvent($GUI_EVENT_CLOSE, "_CLOSEinfo")
$myedit = GUICtrlCreateEdit("", 8, 8, 601, 361, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
$testram = GUICtrlCreateButton("Arbeitsspeicher auf Fehler überprüfen", 8, 384, 203, 49)
GUICtrlSetOnEvent($testram, "_testram")
$derfag = GUICtrlCreateButton("Festplatte defragmentieren", 408, 384, 203, 49)
GUICtrlSetOnEvent($derfag, "_defrag")
#endregion GUI $GUI_info ###
#region GUI $GUI_Pass ###
$GUI_Pass = GUICreate("Passwort ändern", 370, 171)
GUISetOnEvent($GUI_EVENT_CLOSE, "_CLOSEpass")
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)
$iptUser = 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)
$PwWrite = GUICtrlCreateButton("OK", 147, 136, 75, 25)
GUICtrlSetOnEvent($PwWrite, "_PassWrite")
#endregion GUI $GUI_Pass ###
While Sleep(100) ; Im Leerlauf bummeln
WEnd
Func _CheckSystem()
GUICtrlSetData($Input1, "" & @ComputerName)
GUICtrlSetData($Input2, "" & @UserName)
GUICtrlSetData($Input3, "" & @OSType)
GUICtrlSetData($Input4, "" & @OSServicePack)
GUICtrlSetData($Input5, "" & DriveGetLabel("C:\"))
GUICtrlSetData($Input6, "" & DriveGetSerial("C:\"))
GUICtrlSetData($Input7, "" & Round(DriveSpaceTotal("C:\") / 1024, 2) & " GB")
GUICtrlSetData($Input8, "" & Round(DriveSpaceFree("C:\"), 2) & " MB")
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)
EndFunc ;==>_CheckSystem
Func CLOSEClicked()
If @CPUArch = "X64" And Not @AutoItX64 Then _
DllCall("kernel32.dll", "int", "Wow64RevertWow64FsRedirection", "dword", $iState)
FileDelete(@TempDir & '\Systeminfos.txt')
MsgBox(0, "Made by LB-T3ch", "Verbesserungen, Anregungen oder Fehler an AutoIt.de : lukasboy, Cheater Dieter")
Exit
EndFunc ;==>CLOSEClicked
Func _info()
GUICtrlSetData($myedit, FileRead(@TempDir & "\Systeminfos.txt"))
GUISetState(@SW_SHOW, $GUI_info)
EndFunc ;==>_info
Func _Passwoerter()
GUISetState(@SW_HIDE, $mainGUI)
GUISetState(@SW_SHOW, $GUI_Pass)
EndFunc ;==>_Passwoerter
Func _defrag()
Switch @OSVersion
Case "WIN_7", "WIN_VISTA"
ShellExecute("dfrgui.exe")
Case Else
ShellExecute("dfrg.msc")
EndSwitch
EndFunc ;==>_defrag
;####################################################################
Func _testram()
MsgBox(0, "Error", "MdSched.exe nicht gefunden ?" & @TAB)
;~ ShellExecute("MdSched.exe") ;i es wird eine Error-Meldung ausgegeben, MdSched.exe nur bei Win 7 ??
EndFunc ;==>_testram
;####################################################################
Func _CLOSEinfo()
GUISetState(@SW_HIDE, $GUI_info)
EndFunc ;==>_CLOSEinfo
Func _PassWrite()
$user = GUICtrlRead($iptUser)
$passwort = GUICtrlRead($pw)
If $passwort = "" Then
If MsgBox(1, "Änderungen 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, "Änderungen 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)
GUISetState(@SW_HIDE, $GUI_Pass)
GUISetState(@SW_SHOW, $mainGUI)
EndFunc ;==>_PassWrite
Func _CLOSEpass()
GUISetState(@SW_HIDE, $GUI_Pass)
GUISetState(@SW_SHOW, $mainGUI)
EndFunc ;==>_CLOSEpass
; Ende
[/autoit]Sieht gut aus
Hi,
bei "MdSched.exe" wird bei mir eine Error-Meldung ausgegeben. MdSched.exe nur bei Win 7 ??
Bei mir läuft Win XP Pro.
Anscheinend gibt es MdSched.exe nicht unter WinXP. Unter Win7 gibt es die Datei auf jeden Fall und ich denke mal, unter Vista auch, da sich Vista und 7 doch sehr ähneln (verbessert mich, wenn ich Schwachsinn rede). @lucasboy: Wach also einfach eine if-Abrage rein und erst nur unter Vista und 7 wird der Button erstellt.
ja so wie bei Defrag auch schon.
Okay das mache ich^^
ja so wie bei Defrag auch schon.
Ich weiß, ich habe ja schließlich diesen Teil geschrieben. Allerdings existiert unter XP anscheinend gar kein Tool zum Ram testen, beim Defrag ja schon nur heißt es anderst und sieht anderst aus.
Hi,
ich meinte:
Func _testram()
Switch @OSVersion
Case "WIN_7", "WIN_VISTA"
ShellExecute("MdSched.exe")
Case Else
MsgBox(16, "Sorry", "Dieser Programmteil ist nicht lauffähig unter " & @OSVersion & @TAB)
EndSwitch
EndFunc ;==>_testram
Jaa...ganz nett. Mein Tipp: Benutze doch die WMI-Funktionen, damit könntest du noch viel mehr auslesen.
