Hallo liebe Leute!
Habe meien Schnell-Starter weiter Entwickelt wie schon mal sagte will ich in weiter ferne ein admin tool coden jetzt ist die anfangsversion ferig, er ist nur ein vorläufer weil ich so erstaunt wa von den einfachen möglichkeiten die Autolt mitbringt!
Jetzt bin ich auf eure meinungen gespant verbesserungsvorschläge nehme ich mir gerne zu herzen denn wie schon gesagt bin ich neuling!
freu mich auf euch und hir ist das gute stück!
Eins habe ich noch ich setze alle variablen auf local aber das sieht irgendwie doof aus habe ja noch nicht soviel erfahrung wie weiß ich das eine gesetzt werden muß und andere nich vieleicht mußte ich auch nicht soviele variablen verwenden aber naja ich denke ich werde von euch hoffe ich die antworten bekommen oder auch selber raus finden!
So und jetzt viel Spass!
Edit: >> Neue << Version 0.1.1 des Admin-Tool ist fertig!!! Mächtg aufgebort!!!!
Hallo Liebe Leute!
Habe heute eine mänge hintermir und denke das diese version ganz gut geworden ist ich habe den code sehr erweitert habe aus einer gui eine gui ersellt und das nicht mal gewust wie habe an eine stelle was hinkopiert und an was anderes weitergearbeitet und getestet auf einmal erseit noch ein fenster wow dachte ich und habe gleich viele dinge ausprobiert wo ich leider hängen geblieben bin is das eine fenster kann ich nicht einzelt schließen habe viele kombos ausprobiert bin aber gescheitert.
Vieleicht hat einer von euch ein tip für mich!
Das meiste sind Cmd sachen ich habe meine batch ausgekramt und sie neu auflebenlassen, ich habe gesehn das andere die sachen ohne batch ereicht haben nur mein verständniss reicht noch nicht um das zu verstehen!
So liebe leute es ist schon spät und ich texte hir schon wieder eine ganze mänge kommen wir zu eigentlichen.
Hir der code!
Spoiler anzeigen
#cs **************************************************************************
» Admin-Tool v 0.1.1 «
#ce **************************************************************************
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <ListViewConstants.au3>
Opt("TrayMenuMode", 1)
_Main()
Func _Main()
Local $hGUI, $hTab, $bzk
Local $b1, $b2, $b3, $b4, $msg, $About, $Exit, $in, $bo, $al, $bhf, $baml, $pfm, $sed, $ere, $atb, $dew, $ofp, $cp, $ipcf, $rundos
Local $bb, $bw, $bs, $bd, $ba, $a, $us, $cn, $aend, $rd, $hTab_1, $Input_Date, $Input_Time, $bbo, $nef, $gpt, $tr, $usba
Local $input, $input_1, $input_2, $input_3, $input_4, $input_5, $input_12, $input_22, $input_32, $input_42, $input_52
Local $VOL, $SERIAL, $TOTAL, $FREE, $tab_2, $tab_3, $input_3, $input_2, $input_13, $input_23, $input_33, $input_43
$hGUI = GUICreate(" » Admin-Tool v 0.1.1 « © 2009 by Simon ", 700, 320)
GUISetBkColor(0x09999999)
$b1 = GUICtrlCreateButton("C:\Programme", 81, 4, 79, 19)
$b2 = GUICtrlCreateButton("C:\", 1, 4, 79, 19)
$b3 = GUICtrlCreateButton("User-Ordner", 161, 4, 79, 19)
$b4 = GUICtrlCreateButton("Anwen-Ordner", 241, 4, 79, 19)
$b5 = GUICtrlCreateButton("Tmp", 321, 4, 79, 19)
$bw = GUICtrlCreateButton("Windows", 81, 27, 79, 19)
$bs = GUICtrlCreateButton("System32", 161, 27, 79, 19)
$bd = GUICtrlCreateButton("Desktop", 241, 27, 79, 19)
$ba = GUICtrlCreateButton("Autostart", 321, 27, 79, 19)
$bzk = GUICtrlCreateButton("Benutzerkonto", 321, 55, 79, 19)
$bwnd = GUICtrlCreateButton("W-N-D", 650, 152, 40, 19)
$pfm = GUICtrlCreateButton("P-M", 650, 108, 40, 19)
$sed = GUICtrlCreateButton("Sysedit", 481, 82, 79, 19)
$ere = GUICtrlCreateButton("Event", 561, 82, 79, 19)
$atb = GUICtrlCreateButton("Con-Work-Anz", 481, 108, 79, 19)
$dew = GUICtrlCreateButton("Datei-Erweit", 561, 108, 79, 19)
$nef = GUICtrlCreateButton("Nt-Freigaben", 481, 130, 79, 19)
$ofp = GUICtrlCreateButton("OffenePorts", 561, 130, 79, 19)
$gpt = GUICtrlCreateButton("GeplanteTask", 481, 152, 79, 19)
$tr = GUICtrlCreateButton("Treiber", 561, 152, 79, 19)
$cp = GUICtrlCreateButton("PC-Prozesse", 481, 174, 79, 19)
$ipcf = GUICtrlCreateButton("Ipconfig", 561, 174, 79, 19)
$usba = GUICtrlCreateButton("TCP-IPConnections", 481, 207, 136, 19)
$weiter = GUICtrlCreateButton("Weitere-Optionen", 481, 237, 136, 19)
$bb = GUICtrlCreateButton("Beenden", 472, 290, 79, 19)
$baml = GUICtrlCreateButton("Abmelden", 620, 201, 70, 19)
$bbo = GUICtrlCreateButton("Neu-Start", 620, 223, 70, 19)
$bhf = GUICtrlCreateButton("Ruterfahren", 620, 245, 70, 19)
$in = GUICtrlCreateInput("", 2, 55, 250, 19)
$us = GUICtrlCreateInput(@UserName, 500, 20, 120, 19)
$cn = GUICtrlCreateInput(@ComputerName, 500, 48, 120, 19)
$bo = GUICtrlCreateButton("OK", 260, 55, 50, 19)
$aend = GUICtrlCreateButton("Ändern", 635, 32, 50, 19)
$hTab = GUICtrlCreateTab(10, 90, 460, 220)
$Input_Date = GUICtrlCreateInput("" & @MDAY & "-" & @MON & "-" & @YEAR, 620, 270, 73, 19)
$Input_Time = GUICtrlCreateInput("" & @HOUR & ":" & @MIN & ":" & @SEC, 620, 290, 73, 19)
GUICtrlCreateLabel(" Datum", 550, 270, 70, 19)
GUICtrlCreateLabel(" Uhrzeit", 550, 290, 70, 19)
$widthCell = 70
GUICtrlCreateLabel("Befehlszeile", 10, 34, $widthCell)
GUICtrlCreateLabel("Username", 420, 20, $widthCell)
GUICtrlCreateLabel("PC-Name", 420, 48, $widthCell)
TraySetClick("9")
$About = TrayCreateItem("About")
$Exit = TrayCreateItem("Exit")
TrayTip("» Admin-Tool v 0.1.1 « © by Simon ", ">>>>>>>>>>> Zum Beenden <<<<<<<<<<<<", 5, 1)
Dim $AccelKeys[2][2] = [["{ENTER}", $bo],["{ESC}", $bb]]
GUISetAccelerators($AccelKeys)
GUISetState(@SW_SHOW)
$VOL = DriveGetLabel("C:\")
$SERIAL = DriveGetSerial("C:\")
$TOTAL = DriveSpaceTotal("C:\")
$FREE = DriveSpaceFree("C:\")
$tab_3 = GUICtrlCreateTabItem("PC - Info3")
$input_3 = GUICtrlCreateInput(@ProgramFilesDir, 150, 128, 300, 20)
$input_13 = GUICtrlCreateInput(@StartMenuDir, 150, 158, 300, 20)
$input_23 = GUICtrlCreateInput(@TempDir, 150, 188, 300, 20)
$input_33 = GUICtrlCreateInput(@DesktopWidth, 150, 218, 300, 20)
$input_43 = GUICtrlCreateInput(@DesktopHeight, 150, 248, 300, 20)
GUICtrlCreateLabel("Programm-Ordner", 20, 128, 150, 20)
GUICtrlCreateLabel("Start-Menu-Ordner", 20, 158, 150, 20)
GUICtrlCreateLabel("Temp-Ordner", 20, 188, 150, 20)
GUICtrlCreateLabel("Desktop-W-(Pixels)", 20, 218, 150, 20)
GUICtrlCreateLabel("Desktop-H-(Pixels)", 20, 248, 150, 20)
$tab_2 = GUICtrlCreateTabItem("PC - Info2")
$input_2 = GUICtrlCreateInput(@IPAddress1, 150, 128, 300, 20)
$input_12 = GUICtrlCreateInput(@StartupDir, 150, 158, 300, 20)
$input_22 = GUICtrlCreateInput(@WindowsDir, 150, 188, 300, 20)
$input_32 = GUICtrlCreateInput(@SystemDir, 150, 218, 300, 20)
$input_42 = GUICtrlCreateInput(@DesktopDir, 150, 248, 300, 20)
$input_52 = GUICtrlCreateInput(@MyDocumentsDir, 150, 278, 300, 20)
GUICtrlCreateLabel("IP Adress", 20, 128, 150, 20)
GUICtrlCreateLabel("Autostart-Ordner", 20, 158, 150, 20)
GUICtrlCreateLabel("Windows-Ordner", 20, 188, 150, 20)
GUICtrlCreateLabel("System32-Ordner", 20, 218, 150, 20)
GUICtrlCreateLabel("Desktop", 20, 248, 150, 20)
GUICtrlCreateLabel("Eigene-Datein", 20, 278, 150, 20)
$tab_1 = GUICtrlCreateTabItem("PC - Info")
$input = GUICtrlCreateInput(@OSType, 150, 128, 300, 20)
$input_1 = GUICtrlCreateInput(@OSServicePack, 150, 158, 300, 20)
$input_2 = GUICtrlCreateInput($VOL, 150, 188, 300, 20)
$input_3 = GUICtrlCutton("Logon-Zaehler", 1, 27, 136, 19)
$bs1 = GUICtrlCreateButton("CD/DVD-Info", 140, 27, 136, 19)
$bd1 = GUICtrlCreateButton("UmgebungVariablen", 280, 27, 136, 19)
$ba1 = GUICtrlCreateButton("WMI-Bibiotek", 420, 27, 136, 19)
$bzk1 = GUICtrlCreateButton("Terminal-Server", 560, 27, 136, 19)
$bwnd1 = GUICtrlCreateButton("Telenet", 1, 50, 136, 19)
$pfm1 = GUICtrlCreateButton("FTP-Übertragungen", 140, 50, 136, 19)
$sed1 = GUICtrlCreateButton("Dns-S-Abfrage", 280, 50, 136, 19)
$ere1 = GUICtrlCreateButton("Windows-Objekt-Manager", 420, 50, 136, 19)
$atb1 = GUICtrlCreateButton("Schnitstellen-Geräte", 560, 50, 1msg = $b11
If FileExists("C:\WINDOWS\system32\wbem\wmic.exe") Then
RunWait(@ComSpec & " /c " & "color 0A & title Infos zum Motherboard & mode con lines=24 cols=80 & echo Infos zur Hauptplatine & echo ....................................................................... & wmic path Win32_Baseboard get caption,manufacturer,model,replaceable,product,poweredon,Version,serialnumber /value & echo ....................................................................... & pause")
Else
MsgBox(4096, "", "existiert NICHT")
EndIf
Case $msg = $b21
If FileExists("C:\WINDOWS\system32\wbem\wmic.exe") Then
RunWait(@ComSpec & " /c " & "color 0A & title Soundkarte/Sounddevice-Info & mode con lines=16 cols=120 & echo .................................................................................................................. & wmic.exe Sounddev get caption,DeviceID,Manufacturer,Status /value & echo .................................................................................................................. & mmsys.cpl,0 & pause")
Else
MsgBox(4096, "", "existiert NICHT")
EndIf
Case $msg = $b31
If FileExists("C:\WINDOWS\system32\wbem\wmic.exe") Then
RunWait(@ComSpec & " /c " & "color 0A & Title Bios-Info & mode con lines=24 cols=80 & echo. & echo Bios-Info & echo. & echo ...................................................................... & wmic path Win32_bios get Caption,CurrentLanguage,Manufacturer,PrimaryBios,ReleaseDate,SMBIOSBIOSVersion,SMBIOSMajorVersion,SMBIOSMinorVersion,Status,Version /value & echo ...................................................................... & pause")
Else
MsgBox(4096, "", "existiert NICHT")
EndIf
Case $msg = $b41
If FileExists("C:\WINDOWS\system32\wbem\wmic.exe") Then
RunWait(@ComSpec & " /c " & "color 0A & Title Drive-Infos & mode con lines=30 cols=115 & echo. & echo Logische Partitionen & echo. & echo .................................................................................................................. & echo. & wmic path Win32_LogicalDisk get caption,filesystem,drivetype,freespace,providername,size,volumename & echo .................................................................................................................. & echo. & echo. & echo. & echo. & echo. & echo Drivetypes: 0=unknown, 1=noRoot, 2=Floppy, 3=Festplatte, 4=Netzlaufwerk, 5=CD/DVD, 6=Ramdisk & pause")
Else
MsgBox(4096, "", "existiert NICHT")
EndIf
Case $msg = $b51
If FileExists("C:\WINDOWS\system32\wbem\wmic.exe") Then
RunWait(@ComSpec & " /c " & "color 0A & Title Drive-Infos & mode con lines=200 cols=120 & echo. & echo Physikalische Laufwerke & echo. & echo .............................................................................................. & wmic path Win32_DiskDrive get description,interfacetype,partitions,model,mediatype,PNPDeviceID,name,DeviceID,Size,CapabilityDescriptions /value & echo .............................................................................................. & pause")
Else
MsgBox(4096, "", "existiert NICHT")
EndIf
Case $msg = $bw1
If FileExists("C:\WINDOWS\system32\wbem\wmic.exe") Then
RunWait(@ComSpec & " /c " & "color 0A & Title Logon-Zaehler & mode con lines=30 cols=48 & echo. & wmic.exe path Win32_NetworkLoginProfile get name, numberoflogons & pause")
Else
MsgBox(4096, "", "existiert NICHT")
EndIf
Case $msg = $bs1
If FileExists("C:\WINDOWS\system32\wbem\wmic.exe") Then
RunWait(@ComSpec & " /c " & "color 0A & Title CD/DVD-Info & mode con lines=120 cols=120 & echo. & echo CD/DVD-Info & echo. & echo .................................................................................................................. & wmic path Win32_CDROMDrive get Caption,Description,DeviceID,Drive,MediaLoaded,Size,Status,TransferRate,VolumeName,VolumeSerialNumber /value & echo .................................................................................................................. & echo. & pause")
Else
MsgBox(4096, "", "existiert NICHT")
EndIf
Case $msg = $bd1
RunWait(@ComSpec & " /c " & "color 0A & title Umgebungsvariablen & mode con lines=200 cols=140 & ECHO. & set & ECHO .............................................................................. & pause")
Case $msg = $ba1
If FileExists("C:\WINDOWS\system32\wbem\wmic.exe") Then
RunWait(@ComSpec & " /c " & "Wmic")
Else
MsgBox(4096, "", "existiert NICHT")
EndIf
Case $msg = $bzk1
RunWait(@ComSpec & " /c " & "color 0A & qappsrv & pause")
Case $msg = $bwnd1
RunWait(@ComSpec & " /c " & "color 0A & Telnet")
Case $msg = $pfm1
RunWait(@ComSpec & " /c " & "color 0A & FTP")
Case $msg = $sed1
RunWait(@ComSpec & " /c " & "title Dns Server Abfragen & color 0A & Nslookup")
Case $msg = $ere1
RunWait(@ComSpec & " /c " & "packager.exe")
Case $msg = $atb1
RunWait(@ComSpec & " /c " & "color 0A & title Schnitstellen-Geräte & Mode & pause")
Case $msg = $dew1
RunWait(@ComSpec & " /c " & "color 0A & title SystemDateinReparieren & echo. & echo. & echo Bitte bevor sie den Befehl ausfueren die Windows CD einlegen! & echo. & Echo.& pause & sfc/scannow")
Case $msg = $nef1
RunWait(@ComSpec & " /c " & "color 0A & title Netzwerk-Komponete-Stueeren & Netsh ")
Case $msg = $ofp1
RunWait(@ComSpec & " /c " & "color 0A & title MasterFile-Erweitern & fsutil behavior set mftzone 25% & pause")
Case $msg = $gpt1
RunWait(@ComSpec & " /c " & "color 0A & mode con lines=100 cols=100 & Gpresult & pause")
Case $msg = $tr1
RunWait(@ComSpec & " /c " & "color 0A & title Locale Freigaben & NET SHARE & pause")
Case $msg = $cp1
RunWait(@ComSpec & " /c " & "color 0A & title Locale Gruppen & NET LOCALGROUP & pause")
Case $msg = $ipcf1
RunWait(@ComSpec & " /c " & "clipbrd.exe")
Case $msg = $usba1
RunWait(@ComSpec & " /c " & "wuaucpl.cpl")
Case $msg = $weiter1
RunWait(@ComSpec & " /c " & "firewall.cpl")
Case $msg = $baml1
RunWait(@ComSpec & " /c " & "devmgmt.msc")
Case $msg = $bbo1
RunWait(@ComSpec & " /c " & "taskmgr.exe")
Case $msg = $bhf1
RunWait(@ComSpec & " /c " & "inetcpl.cpl")
Case $msg = $baml12
RunWait(@ComSpec & " /c " & "wscui.cpl")
Case $msg = $bbo12
RunWait(@ComSpec & " /c " & "appwiz.cpl")
Case $msg = $bhf12
RunWait(@ComSpec & " /c " & "winmsd.exe")
Case $msg = $bb
Exit
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
EndSelect
$msg = TrayGetMsg()
Select
Case $msg = $Exit
Exit
Case $msg = $About
MsgBox(64, "About", "» Admin-Tool v 0.1.1 «" & @CRLF & @CRLF & "© 2009 by Simon")
EndSelect
WEnd
EndFunc ;==>_Main
Habt spass!!!!! Und las mich eure meinungen hören !!!!!
Wie gehabt die .au3 - .exe
Edit bernd670: Themen zusammengeführt!
autoit.de/wcf/attachment/6112/
Edit bernd670: Themen wieder zusammengeführt! Bitte nicht für jede Version ein eigenes Thema erstellen!