A small Admin Tool V2.0

localhost

So, Version 2.0 ist raus:

Neuerungen:

Der Reiter "Cleanup System" wurde hinzugefügt. Hier kann man diverse Temporäre Dateien löschen.
Unter Network wurde ein weiterer Button hinzugefügt zur Anzeige aktiver Verbindungen.

behobene Bugfixes etc.

Der Fenstertitel von z.B. der Ipkonfiguration ist jetzt festgesetzt auf "Information"
Da die Pinginformationen nicht sofort kamen, erscheint nun eine "Zwischenanzeige".
Ein Fenstericon ist gesetzt.

In Planung:

Eine kurze Inofseite über das Programm.
Eine Hilfe.
Ein Netzwerkdiscoverbutton oder etwas ähnliches (z.B. das Ping Script von GTASpider)

Spoiler anzeigen

C

;
;
; AutoIt Version: 3.0
; Language:       English
;
; Author:         Stefan Hellmann (hellmann@pcspinnt.de)
;
; Version:		2.0
;
;For further programs take a look at: http://www.pcspinnt.de 
;
; Script Function:
;	A small Programm for some daily  Admin Works. ;-)
;   
;
#NoTrayIcon
#include <Constants.au3>
#include <GuiConstants.au3>
#Include <GuiList.au3>
#include <Array.au3>
Dim $Prt, $ProgName, $Optionen, $MaxB=0, $i, $PrtArray
;---------------------------------------------GUI------------------------------------------------------------
$Form1 = GUICreate("Admin Tools", 500, 496, 192, 111)
$Tab1 = GUICtrlCreateTab(0, 0, 500, 240)
$TabSheet1 = GUICtrlCreateTabItem("Network")
$Group1 = GUICtrlCreateGroup("Cache", 14, 34, 140, 90)
$flushdns = GUICtrlCreateRadio("Del DNS Cache", 24, 54, 120, 20)
$rr = GUICtrlCreateRadio("Del NetBios Cache", 24, 74, 120, 20)
$flushrr = GUICtrlCreateRadio("Del DNS && NetBios", 24, 94, 110, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("IP", 14, 134, 140, 90)
$release = GUICtrlCreateRadio("release", 24, 154, 110, 20)
$renew = GUICtrlCreateRadio("renew", 24, 174, 110, 20)
$relren = GUICtrlCreateRadio("release && renew", 24, 194, 110, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ipconfig = GUICtrlCreateButton("IP Configuration", 374, 34, 100, 30, 0)
$netstats = GUICtrlCreateButton("Network Statistic", 374, 74, 100, 30, 0)
$route = GUICtrlCreateButton("Routingtable", 374, 114, 100, 30, 0)
$arp = GUICtrlCreateButton("Arp Entrys", 374, 154, 100, 30, 0)
$Group3 = GUICtrlCreateGroup("Ping", 164, 34, 140, 90)
$ping = GUICtrlCreateInput("", 174, 69, 120, 21)
GUICtrlCreateLabel("Name / IP", 174, 54, 53, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Nslookup", 164, 134, 140, 90)
$nslookup = GUICtrlCreateInput("", 174, 169, 120, 21)
GUICtrlCreateLabel("Name / IP", 174, 154, 53, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$netstat = GUICtrlCreateButton("Active connections", 374, 194, 100, 30, 0)
$TabSheet3 = GUICtrlCreateTabItem("Cleanup System")
$delall = GUICtrlCreateButton("Delete All", 415, 205, 75, 25, 0)
$deltemporaryinternetfiles = GUICtrlCreateRadio("Del Temporary Internet Files", 14, 34, 160, 17)
$delcookies = GUICtrlCreateRadio("Del Cookies", 14, 54, 160, 17)
$deltemp = GUICtrlCreateRadio("Del Temp", 14, 74, 113, 17)
$recent = GUICtrlCreateRadio("Del Recent", 14, 94, 113, 17)
$typedurls = GUICtrlCreateRadio("Typed URL's", 14, 114, 113, 17)
GUICtrlCreateTabItem("")
$localhost = GUICtrlCreateLabel("localhost", 435, 0, 63, 20)
GUICtrlSetFont(-1, 12, 800, 0, "System")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetCursor ($localhost, 4)
$execute = GUICtrlCreateButton("&Execute", 410, 460, 80, 30, $BS_DEFPUSHBUTTON)
$Log = GUICtrlCreateLabel("Log", 5, 245, 25, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$clearlog = GUICtrlCreateButton("Clear Log", 320, 460, 80, 30, 0)
GUISetState(@SW_SHOW)
;------------------------------------------------------------------------------------------------------------
$out = GUICtrlCreateList("", 0, 260, 500, 210,($ws_vscroll+$WS_BORDER+$LBS_NOTIFY))
GuiSetIcon("trash.ico", 0)
;------------------------------------------------------------------------------------------------------------
While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop
	Case $msg = $localhost ;direct label
		Run(@Comspec & ' /c start http://www.pcspinnt.de', "",@SW_HIDE)
	Case $msg = $ipconfig;ipconfig
			$prt = ""
			$ProgName="ipconfig /all"
			$PrtArray=StringSplit(_SysProg($ProgName &" " &$Optionen), @CrLf)
			For $i=1 To UBound($PrtArray, 1)-1
			If StringLen($PrtArray[$i])>$MaxB Then $MaxB=StringLen($PrtArray[$i])
			If $PrtArray[$i]<>"" Then $Prt &=$PrtArray[$i] &@CrLF
			Next
			_IEPrt($Prt, $ProgName, 9*$MaxB, 9*UBound(StringSplit($Prt, @CrLf), 1))
	case $msg = $netstats;netstat
			$prt = ""
			$ProgName="netstat -s"
			$PrtArray=StringSplit(_SysProg($ProgName &" " &$Optionen), @CrLf)
			For $i=1 To UBound($PrtArray, 1)-1
			If StringLen($PrtArray[$i])>$MaxB Then $MaxB=StringLen($PrtArray[$i])
			If $PrtArray[$i]<>"" Then $Prt &=$PrtArray[$i] &@CrLF
			Next
			_IEPrt($Prt, $ProgName, 9*$MaxB, 9*UBound(StringSplit($Prt, @CrLf), 1))
	case $msg = $netstat;netstat
			$prt = ""
			$ProgName="netstat -v"
			$PrtArray=StringSplit(_SysProg($ProgName &" " &$Optionen), @CrLf)
			For $i=1 To UBound($PrtArray, 1)-1
			If StringLen($PrtArray[$i])>$MaxB Then $MaxB=StringLen($PrtArray[$i])
			If $PrtArray[$i]<>"" Then $Prt &=$PrtArray[$i] &@CrLF
			Next
			_IEPrt($Prt, $ProgName, 9*$MaxB, 9*UBound(StringSplit($Prt, @CrLf), 1))
	case $msg = $route;route
			$prt = ""
			$ProgName="route print"
			$PrtArray=StringSplit(_SysProg($ProgName &" " &$Optionen), @CrLf)
			For $i=1 To UBound($PrtArray, 1)-1
			If StringLen($PrtArray[$i])>$MaxB Then $MaxB=StringLen($PrtArray[$i])
			If $PrtArray[$i]<>"" Then $Prt &=$PrtArray[$i] &@CrLF
			Next
			_IEPrt($Prt, $ProgName, 9*$MaxB, 9*UBound(StringSplit($Prt, @CrLf), 1))
	case $msg = $arp;arp
			$prt = ""
			$ProgName="arp -a"
			$PrtArray=StringSplit(_SysProg($ProgName &" " &$Optionen), @CrLf)
			For $i=1 To UBound($PrtArray, 1)-1
			If StringLen($PrtArray[$i])>$MaxB Then $MaxB=StringLen($PrtArray[$i])
			If $PrtArray[$i]<>"" Then $Prt &=$PrtArray[$i] &@CrLF
			Next
			_IEPrt($Prt, $ProgName, 9*$MaxB, 9*UBound(StringSplit($Prt, @CrLf), 1))
	case $msg = $clearlog; Clear Log
			_GUICtrlListClear  ($out)
	case $msg = $log; Log
			MsgBox(64,"The guy!",_JokeAbout("$log"))
	case $msg = $delall
		_GUICtrlListClear ($out)
		GUICtrlSetData($out,"____________________________Delete temporary internet files____________________________")
		$path=@UserProfileDir&"Lokale EinstellungenTemporary Internet FilesContent.IE5"
		$file="*.*"
		_delete ($out)
		GUICtrlSetData($out,"___________________________________Delete cookies ___________________________________")
		$path=@UserProfileDir&"Cookies"
		$file="*.*"
		_delete ($out)
		GUICtrlSetData($out,"_____________________________________Delete Temp_____________________________________")
		$path=@UserProfileDir&"Lokale EinstellungenTemp"
		$file="*.*"
		_delete ($out)
		GUICtrlSetData($out,"___________________________________Delete Recents ___________________________________")
		$path=@UserProfileDir&"Recent"
		$file="*.*"
		_delete ($out)
		For $i = 1 to 500
		GUICtrlSetData($out,"_________________________________Deleting typed URLs_________________________________")
		$var = RegEnumVal("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerTypedURLs", $i)
		if @error <> 0 Then 
			GUICtrlSetData($out,"No URLs available")
			ExitLoop
		EndIf
		$key = RegRead ("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerTypedURLs",$var)
		RegDelete ("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerTypedURLs",$var)
		$i=$i-1
		GUICtrlSetData($out,"delete: "&$key)
		next
		GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
	case $msg = $execute;execute
		Select
		case GUICtrlRead($flushdns) = 1; flushdns
			$rc = RunWait ("ipconfig /flushdns", "", @SW_HIDE )
			if $rc <> 0 then MsgBox (64, "Error"," Can't delete the DNS Cache. Please try ipconfig /flushdns at the command prompt.")
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"DNS Cache deleted")
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
		case GUICtrlRead($rr) = 1; nbtstat -rR
			$rc = RunWait ("nbtstat -rR","", @SW_HIDE)
			if $rc <> 0 then MsgBox (64, "Error"," Can't delete the NETBIOS Cache. Please try nbtstat -rR at the command prompt.")
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"Net Bios Cache deleted")
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
		case GUICtrlRead($flushrr) = 1; flushdns & nbtstat-RR
			$rc = RunWait ("nbtstat -rR","", @SW_HIDE)
			if $rc <> 0 then MsgBox (64, "Error"," Can't delete the NETBIOS Cache. Please try nbtstat -rR at the command prompt.")
			$rc = RunWait ("ipconfig /flushdns", "", @SW_HIDE )
			if $rc <> 0 then MsgBox (64, "Error"," Can't delete the DNS Cache. Please try ipconfig /flushdns at the command prompt.")
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"Dns and NetBios Cache deleted")
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
		case GUICtrlRead($renew) = 1; renew
			$rc = RunWait ("ipconfig /renew","", @SW_HIDE)
			if $rc <> 0 then MsgBox (64, "Error"," Can't renew the IP Adress. Please try ipconfig /renew at the command prompt.")	
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"IP renewed")
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
		case GUICtrlRead($release) = 1; release
			$rc = RunWait ("ipconfig /release","", @SW_HIDE)
			if $rc <> 0 then MsgBox (64, "Error"," Can't release the IP Adress. Please try ipconfig /release at the command prompt.")
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"IP released")
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
		case GUICtrlRead($relren) = 1; release & renew
			$rc = RunWait ("ipconfig /release","", @SW_HIDE)
			if $rc <> 0 then MsgBox (64, "Error"," Can't release the IP Adress. Please try ipconfig /release at the command prompt.")
			$rc = RunWait ("ipconfig /renew","", @SW_HIDE)
			if $rc <> 0 then MsgBox (64, "Error"," Can't release the IP Adress. Please try ipconfig /renew at the command prompt.")
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"IP released & renewed")
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
		case GUICtrlRead($ping) <> ""; ping
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"Please wait...")
			$i=Run(@ComSpec &" /c ping "&GUICtrlRead($ping), @SystemDir, @SW_HIDE, $STDOUT_CHILD+$STDERR_CHILD)
			ProcessWaitClose($i)
			$h=StdOutRead($i)
			If @Error=0 Then $Prt=$h
			$h=StdErrRead($i)
			If @Error=0 Then $Prt = $h
			$Prt=StringReplace($Prt, Chr(154), "Ü")
			$Prt=StringReplace($Prt, Chr(129), "ü")
			$Prt=StringReplace($Prt, Chr(142), "Ä")
			$Prt=StringReplace($Prt, Chr(132), "ä")
			$Prt=StringReplace($Prt, Chr(153), "Ö")
			$Prt=StringReplace($Prt, Chr(148), "ö")
			$Prt=StringReplace($Prt, Chr(10), "")
			$Zeilen =StringSplit($Prt, @CR)
			_GUICtrlListClear  ($out)
			For $v = 1 To $Zeilen[0] Step 1
				If StringLen(StringStripWS($Zeilen[$v], 8)) > 0 Then
				GUICtrlSetData($out,($Zeilen[$v])&"|")
				EndIf
			Next
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
		case GUICtrlRead($nslookup) <> ""; nslookup
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"Please wait...")
			$i=Run(@ComSpec &" /c nslookup "&GUICtrlRead($nslookup), @SystemDir, @SW_HIDE, $STDOUT_CHILD+$STDERR_CHILD)
 			ProcessWaitClose($i)
			$Prt=StdOutRead($i)
			$Prt=StringReplace($Prt, Chr(154), "Ü")
			$Prt=StringReplace($Prt, Chr(129), "ü")
			$Prt=StringReplace($Prt, Chr(142), "Ä")
			$Prt=StringReplace($Prt, Chr(132), "ä")
			$Prt=StringReplace($Prt, Chr(153), "Ö")
			$Prt=StringReplace($Prt, Chr(148), "ö")
 			$Prt=StringReplace($Prt, Chr(10), "")
			$Zeilen =StringSplit($Prt, @CR)
			_GUICtrlListClear  ($out)
 			For $v = 1 To $Zeilen[0] Step 1
 				If StringLen(StringStripWS($Zeilen[$v],8)) > 0 Then
				GUICtrlSetData($out,($Zeilen[$v])&"|")
 				EndIf
 			Next
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
		case GUICtrlRead($deltemporaryinternetfiles) = 1
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"______________________________Delete temporary internet files______________________________")
			$path=@UserProfileDir&"Lokale EinstellungenTemporary Internet FilesContent.IE5"
			$file="*.*"
			_delete ($out)
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
			GUICtrlSetState($deltemporaryinternetfiles,$GUI_UNCHECKED)
		case GUICtrlRead($delcookies) = 1
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"___________________________________Delete cookies ___________________________________")
			$path=@UserProfileDir&"Cookies"
			$file="*.*"
			_delete ($out)
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
			GUICtrlSetState($delcookies,$GUI_UNCHECKED)
		case GUICtrlRead($deltemp) = 1
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"_____________________________________Delete Temp_____________________________________")
			$path=@UserProfileDir&"Lokale EinstellungenTemp"
			$file="*.*"
			_delete ($out)
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
			GUICtrlSetState($delcookies,$GUI_UNCHECKED)
		case GUICtrlRead($recent) = 1
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"___________________________________Delete Recents ___________________________________")
			$path=@UserProfileDir&"Recent"
			$file="*.*"
			_delete ($out)
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
			GUICtrlSetState($recent,$GUI_UNCHECKED)
		case GUICtrlRead($typedurls) = 1
			_GUICtrlListClear  ($out)
			GUICtrlSetData($out,"_________________________________Deleting typed URLs_________________________________")
			For $i = 1 to 500
			$var = RegEnumVal("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerTypedURLs", $i)
			if @error <> 0 Then 
			GUICtrlSetData($out,"No URLs available")
			ExitLoop
			EndIf
			$key = RegRead ("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerTypedURLs",$var)
			RegDelete ("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerTypedURLs",$var)
			$i=$i-1
			GUICtrlSetData($out,"delete: "&$key)
			next
			GUICtrlSetData($out,"_________________________________Execution completed_________________________________")
			GUICtrlSetState($typedurls,$GUI_UNCHECKED)
		EndSelect
;------------------------------------------------Uncheck all Check and Radio---------------------------------
	GUICtrlSetState($flushdns, $GUI_UNCHECKED)
	GUICtrlSetState($rr, $GUI_UNCHECKED)
	GUICtrlSetState($flushrr, $GUI_UNCHECKED)
	GUICtrlSetState($renew, $GUI_UNCHECKED)
	GUICtrlSetState($release, $GUI_UNCHECKED)
	GUICtrlSetState($relren, $GUI_UNCHECKED)
	GUICtrlSetData ($nslookup,"")
	GUICtrlSetData ($ping,"")
	EndSelect
WEnd
Exit
;------------------------------------Functions----------------------------------------------------------------
Func _IEPrt($Was, $Titel, $Breite=660, $Hoehe=300, $Links=100, $Oben=100)
        Dim $IE=ObjCreate("InternetExplorer.Application.1")
        $IE.Navigate("about:blank")
        $IE.Left=$Links
        $IE.Top=$Oben
        $IE.Width=$Breite
        $IE.Height=$Hoehe
        $IE.Visible=True
        $IE.Document.Body.InnerHtml="Bitte warten.."
        $IE.Toolbar=False
        $IE.Menubar=False
        $IE.Statusbar=False
        $IE.Document.Body.InnerHtml=$Was
		WinSetTitle("about:blank","","Information")
EndFunc


;--------------------------------------log------------------------------------------------------------------
Func _JokeAbout($nothing)
    Return "Just wondering.. Doesn't your neck hurt like hell after you've used your" & @CRLF & _
    "computer for a while ? (Hahaha) Also, I don't know what's common in Australia," & @CRLF & _
    "but here in Germany we normally place our monitors on it's foot." & @CRLF & _
    "The guy!"
EndFunc
;--------------------------------------Execute SystemProgram-------------------------------------------------
Func _SysProg($Which) 
	Local $h, $i, $Prt
	$i=Run(@ComSpec &" /c " &$Which, @SystemDir, @SW_HIDE, $STDOUT_CHILD+$STDERR_CHILD)
	ProcessWaitClose($i)
	$h=StdOutRead($i)
	If @Error=0 Then $Prt=$h
	$h=StdErrRead($i)
	If @Error=0 Then $Prt = $h
	$Prt=StringReplace($Prt, Chr(154), "Ü")
	$Prt=StringReplace($Prt, Chr(129), "ü")
	$Prt=StringReplace($Prt, Chr(142), "Ä")
	$Prt=StringReplace($Prt, Chr(132), "ä")
	$Prt=StringReplace($Prt, Chr(153), "Ö")
	$Prt=StringReplace($Prt, Chr(148), "ö")
	Return "<body scroll=auto><Pre>" &$Prt
EndFunc
;--------------------------------------Delete Temp-----------------------------------------------------------
Func _delete($func1) 
		$search = FileFindFirstFile($path&$file)
		If $search = -1 Then
			GUICtrlSetData($out,"No files/directories available")
		EndIf
		While 1
		$sum = FileFindNextFile($search) 
		If @error Then ExitLoop
		$del=DirRemove ($path&$sum,1)
		GUICtrlSetData($out,$sum&" <= deleted")
		if $del= 0 Then
			GUICtrlSetData($out,$sum&" <= Can't delete this file/folder completely.")
			$sum = FileFindNextFile($search)
		Else
		EndIf
		WEnd
		FileClose($search)
	Return
EndFunc

Alles anzeigen

Screenshots

Script etc. download

Compiled Script

DJMANU

Was macht das Programm alles

localhost

Wie gesagt, der Screenshot zeigt eigentlich alles an.
Soll ich das abtippen?

Einfach ausgedrückt, es zeigt mehrere Netzwerkeinstellungen an.

Führt einen einfachen Ping aus. Ein einfacher nslookup.

Namenscache wird gelöscht und IP erneuert.

Das war die Kurzform.

DJMANU

Das Programm ist super, aber leider funktioniert es in meinem Netzwerk nicht

localhost

Na da bin ich ja mal gespannt.
Warum sollte es bei dir nicht funktionieren :irre: *nachdenk*

Netzwerkeinstellungen falsch konfiguriert?

DJMANU

Nein, an dem liegt es nicht, da in meinem Netzwerk ein komplexes Programm installiert ist und das Programm überwacht alles. Kann ich das Programm nicht starten, weil keine Zugriffsrechte

localhost

Kann das mal ein Admin in Projekte verschieben?

peethebee: Ist es bei Skripte so falsch? Egal, done.
GtaSpider: immer darf peethebee skripte verschieben :weinen: :keks: aber warum unter Projekte? Es ist doch ein fertiges skript?!

localhost

Weil ich es immer noch erweitere. Dachte das würde dann ganz gut hier rein passe.