Hi Leute,
ich habe noch ein Script von mir gefunden und dachte ich stelle es mal zu Verfügung.
Name: HTML-Tabellengenerator
Version: 1.0
So mit dem Toll kann man ganz auf die schnelle den Quelltext für eine HTML-Tabelle erstellen ohne grossen Auffand.
Tipps und Kritik bitte hier posten.
MfG
Der_Doc
erkannt hoffe ich doch 
oder etwar nicht vermisst :wacko:
MfG
Der_Doc
Ne ne, da ist man mal ne Zeit net da und schon wird sich hier umbenannt und es wird über kanadische Schulnoten diskutiert.
Egal Hauptsache Spaß und Freude....... ist eben ganz schön Crazy Ah 
MfG
Der_Doc
Hi boodo,
ich wüsste net wieso da jemand ne UDF schreiben sollte. Ist dochn nur SNMPwalk.exe und SNMPget.exe diese kannst du doch wunderbar abfragen.
Du lässt das Tool als Dienst laufen? Das heist Autoit läuft den ganzen Tag oder beendet sich das Prog zwischen durch?.
Hatte nämlich mal versucht eine Netzwerküberwachung zu schreiben, als 15 Switche auf ihren Datendurchsatz pro Uplinkport (2 x 10 Gigabit) alle 20 sec. abfragen und diesen Wert dann in Label anzeigen lasen.
Habe das Projekt aber abgebrochen, da sich der Rechner (4 GB Ram) so mit Speicher vollgefressen hatte, das nur noch ein Neustart half.
MfG
Der_Doc
Hi boodo,
Autoit ist eigentlich ein super Tool um Werte per SNMP auszulesen ich benutze als Netzwerkadmin auch einige selbst geschribenen SNMP Tools.
Ich würde aber an deiner Stelle einen geplanten Task anlegen und alle 1 Minute den Tast starten und das Script ausführen.
Ich kombiniere das noch mit einer Datenbankanbindung oder einer Ini-Datei um die OID Werte abzulegen.
Ich frage z.B. alle Stunde 12 Switche (a 48 Ports) ab und speicher die Werte in einer Datenbank (MySQL). Die Verarbeitung und das Auslesen (Formatieren der Werte) habe ich mit Autoit realisiert.
MfG
Der_Doc
Hi Leute,
bin wieder aus dem Winterschlaf erwacht. Sorry war lang net hier und habe geholfen. Aber ich habe zwischendurch mal kurz die Programmiersprache gewechselt (nicht so böse gucken) .....
war nur PHP und Mysql. Habe auch einige Sachen in Autoit geschrieben. werde sie mal bei Gelegenheit posten.
So wie gesagt bin wieder da und stelle mich allen Fragen.
MfG
Der_Doc 
Hi Kevin,
also die Zeilen 1 bis 10 (in deinem Beispiel) sind sogenannte "Standard Mib´s" dieser Baum ist für alle Geräte die SNMP unterstützen gleich. Hierfür brauchst du keine Mib´s extra laden.
Die anderen Zeilen sind "Enterprise" Mibs die der Hersteller selber schreibt und pflegt. Hier findet man spezial angaben zu den Geräten. Dies macht aber nicht jeder Hersteller.
Wenn du mibs brauchst dann schau mal bei den aktuellen Firmwaredateien, manchmal sind die da dabei.
MfG
Der_Doc
Hi,
du solltest mal so einen Auszug der Textdatei posten (5 -10 Zeilen), damit ich weis wie du es angezeigt bekommst.
Erklärung der Begriffe:
SNMP
MIB´s
Die sogenannten Mib´s bekommst du vom Hersteller der Geräte. In deinem Fall der Druckerhersteller.
So unter snmp.exe gibt es doch eine Hilfe, da ist angegeben wie man die MIB´s in die SNMPabfrage einbinden kann.
Einfach mal noch nen bischen googlen und wenn noch Fragen sind wieder melden.
MfG
Der_Doc
Hi,
natürlich bekommt man von dem Drucker mit SNMP infos, wenn er snmp unterstüzt!
Du müsstest mit einem Toll die Werte auslesen.
Was du auch versuchen gannst ein snmpwalk auf dei IP des Druckers. und die Ausgabe in eine Textdatei schreiben. Solltest die vorher aber noch die massenden Mib´s einladen sonst bekommst du Zahlen und Werte, weist aber net was sie bedeuten.
MfG
Der_Doc
Naja dann gratuliere ich eben als erster
NACHTRÄGLICH zum Geburtstag
Alles gute und viel Spaß mit dem neuen Schlafzimmer.
MfG
Der_Doc
Hi Leute,
wegen der Sig das funktioniert schon so. Die Thema könntet ihr aber wirklich in die Filebase verschieben.......
Sorry daran hatte ich leider net gedacht.
MfG
Der_Doc
Doc´s Scripte:
==========
Da die Signatur leider auf 500 Zeichen limitiert ist werde ich meine neuen Scripte einfach hier verlinken.
[list=1]
[*] LoginAs
Tool um ein Programm mit anderen Rechten aufzurufen.
Version: 1.0 vom 02.03.2007
[*] Arptool
Von einem Gerät mit Netzwerkanschluss, anhand der IP oder des Namen, die MAC-Adresse bekommen .
Version: 1.5 vom 23.04.2009
[*]Fernbedienung T- Online S100
Tool um die Fernbedienung der T-Onlinevisionbox mit Autoit zu programmieren.
Version 0.2 vom 15.04.2007
[*]NicError
Tool um per SNMP die Fehler auf der Netzwerkkarte auslesen zu können.
Version 1.35 vom 15.06.2007
[*] HTML- Tabellengenarator
Tool zum erstellen einer HTML-Tabelle. Der Quelltext wird entweder in eine Datei geschrieben oder in die Zwischenablage kopiert.
Version 1.0 vom 18.02.2008
Hi Lina,
würde sagen "So is es!"
(Mein Lieblingsspruch aus der aktuellen Paulanerwerbung) LINK
Hi Leute,
naja mal gut das ich über das Alter raus bin :] ich finde das net alles "sooo" einfach!!!!
Aber helfen trotzdem gerne (soweit ich die Frage verstehe) 
Hi Alina,
ich weis nur nicht was du damit vorhast ????
Schreibst du einen Mailclient (Funktion) oder was?
MfG
Der_Doc
Mh,
also ich weis net aber ich habe jetzt die ganze Zeit getestet, bei mir funktioniert Filecopy. Ich habe das Script mal umgeschrieben und es läuft.
Lese die Dateien aus dem Netzlaufwerk aus und kopiere sie nach C:\....
Auch wenn die Dateien schon dort liegen, werden sie nicht überschrieben und kopiert werden nur die Dateien die BMS im Namen haben und nicht existieren.
#include <Array.au3>
#include <File.au3>
$Path1 = "C:\BMSBackup2"
$Path2 = "X:"
;Erstelle BMSBackup
DirCreate("C:\BMSBackup2")
$netuseX = DriveMapAdd($Path2,"\\192.168.3.14\bmsbackup",0,"xxx","xxx")
IF $netuseX = 0 Then
MsgBox (0,"Achtung", "Es ist folgender Fehler aufgeteten. @Errormeldung: " &@error)
EndIf
$search = FileFindFirstFile($Path2&"\bmsbackup\*bms*.*")
If $search = -1 Then
MsgBox(0, "Achtung", "Es wurde kein File gefunden!")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
FileCopy($Path2&"\bmsbackup\"&$file,$Path1,0)
WEnd
FileClose($search)
DriveMapDel($Path2 )
MsgBox(0, "So", "Fertig!")
Teste mal den Quellcode.
MfG
Der_Doc
Hi Leute,
wie schon öfter geschrieben bin ich Netzwerkadmin und schreibe eben gerne Tools die mir das Leben erleichtern.
So entstand auch dieses nette Prog
Vorraussetzung:
Der PC, der abgefragt werden soll, muss mit SNMP nachinstalliert werden, sollte es nicht vorhanden sein.
Beschreibung:
NicError erklärt sich eigentlich von selber.
Es liest per SNMP die Fehler der aktiven Netzwerkkarte aus und gibt diese in einem Listfeld zurück.
Umgang:
Der Umgang ist denkbar einfach, es muss entweder der PCname oder die IP, des Rechners eingegeben werden der abgefragt werden soll.
Wenn keine Eingaben gemacht werden, wir "localhost" abgefragt.
Eingebundene Programme:
Folgende Programme habe ich eingebunden:
- libsnmp.dll
- snmpwalk.exe
- snmpget.exe
Quelltext:
Da Programme eingebunden sind hänge ich den Quelltext nur zum anschauen mit an, da er nur mit Anpassungen funktioniert.
;~ Author: <Der_Doc>
;~ Version: <NicError_1.35>
;~ AutoIt Version: 3.2.4.9
;~ Datum: 15.06.2007
;~ Beschreibung:
;~ Mit diesem Programm können nach die Fehler der Netzwerkkarte per SNMP ausgelesen werden.
;~ Hierbei ist es egal ob der Rechenr der abgefragt werden soll Windows oder Linux ist.
;~ Vorraussetzungen:
;~ Auf dem Rechner muss SNMP nachinstalliet werden.
#include <string.au3>
#include <array.au3>
#include <GuiListView.au3>
#include <GuiList.au3>
#Include <GuiStatusBar.au3>
#include <GUIConstants.au3>
#compiler_icon="2220.ico"
#compiler_outfile="NicError.exe"
Dim $version = " NicError 1.35"
Dim $author = "Der_Doc"
;~ Statusbar
Dim $a_PartsRightEdge[2] = [150,-1]
Dim $a_PartsText[2] = [$author&" 2007","Version: " &$version]
;~ Errors
Dim $Input_Computername_read
Dim $ifTable_array[5][20]
Dim $lauf[20][3]
$lauf[0][0] = "17"
$lauf[1][0] = "2" ; ifName
$lauf[1][1] = "Description"
$lauf[2][0] = "3" ; ifType
$lauf[2][1] = "Type"
$lauf[3][0] = "4" ; ifMtu
$lauf[3][1] = "Mtu"
$lauf[4][0] = "5" ;ifSpeed
$lauf[4][1] = "Speed"
$lauf[5][0] = "6" ;ifSpeed
$lauf[5][1] = "PhysAddress"
$lauf[6][0] = "10" ;ifAddress
$lauf[6][1] = "InOctets"
$lauf[7][0] = "11" ;ifUcast
$lauf[7][1] = "InUnicast"
$lauf[8][0] = "12" ;ifNUcast
$lauf[8][1] = "InNonUnicast"
$lauf[9][0] = "13" ;ifDiscards
$lauf[9][1] = "InDiscards"
$lauf[10][0] = "14" ;ifErrors
$lauf[10][1] = "InErrors"
$lauf[11][0] = "16" ;ifAddress
$lauf[11][1] = "OutOctets"
$lauf[12][0] = "17" ;ifUcast
$lauf[12][1] = "OutUnicast"
$lauf[13][0] = "18" ;ifNUcast
$lauf[13][1] = "OutNonUnicast"
$lauf[14][0] = "19" ;ifDiscards
$lauf[14][1] = "OutDiscards"
$lauf[15][0] = "20" ;ifErrors
$lauf[15][1] = "OutErrors"
$lauf[16][0] = "21" ;ifErrors
$lauf[16][1] = "OutQLen"
$lauf[17][0] = "22" ;ifErrors
$lauf[17][1] = "Specific"
#Region ### START Koda GUI section ### Form=d:\autoitscripte\nicerror\nicerror.kxf
$nicerror = GUICreate("NicError", 298, 463, -1, -1)
$group = GUICtrlCreateGroup("", 8, 0, 273, 441)
$lable = GUICtrlCreateLabel("Hostname oder IP eingeben", 34, 13, 136, 17)
$Input_Computername = GUICtrlCreateInput("", 33, 31, 137, 21)
$list = GUICtrlCreateList("", 33, 60, 230, 58, BitOR($WS_VSCROLL,$WS_BORDER))
$ok = GUICtrlCreateButton("OK", 187, 29, 73, 25, $BS_DEFPUSHBUTTON)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;~ ######################
;~ # Menue
;~ ######################
$dateimenu = GUICtrlCreateMenu ("&Datei")
$menueneu = GUICtrlCreateMenuitem ("Neu",$dateimenu)
$separator1 = GUICtrlCreateMenuitem ("",$menueneu,1)
$menueclose = GUICtrlCreateMenuitem ("Beenden",$dateimenu)
$StatusBar1 = _GUICtrlStatusBarCreate ($nicerror, $a_PartsRightEdge, $a_PartsText)
GUISetState(@SW_SHOW)
$listview = GUICtrlCreateListView("Typ|Wert", 33, 115, 230, 300)
_GUICtrlListViewSetColumnWidth ( $listview,0, 112 )
_GUICtrlListViewSetColumnWidth ( $listview,1, 113 )
file_install()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
del_file()
Exit
Case $menueclose
del_file()
Exit
Case $ok
SplashTextOn("","Bitte warten" ,"150","30","-1","-1",33,"Times New Roman","14","700")
_GUICtrlListViewDeleteAllItems ($listview)
GUICtrlSetData($list,"")
$Input_Computername_read = GUICtrlRead($Input_Computername)
if $Input_Computername_read ="" Then ; Wenn kein Computername eingegeben wurde wird der locale genommen.
$Input_Computername_read = @ComputerName
EndIf
$ping_erg = Ping($Input_Computername_read,100)
if $ping_erg > 0 then
$ifNumber_OID = ".1.3.6.1.2.1.2.1.0"
$ifIndex_OID = ".1.3.6.1.2.1.2.2.1.1"
$ifTable_OID = ".1.3.6.1.2.1.2.2.1."
$pid = Run(@ComSpec & " /c snmpget -v2c " & $Input_Computername_read & ' public ' &$ifNumber_OID, @TempDir, "", 2)
$ifNumber = StdoutRead($pid)
$ifNumber = StringMid($ifNumber, StringInStr($ifNumber, "=", 0,+1)+2,+1)
$pid = Run(@ComSpec & " /c snmpwalk -v2c " & $Input_Computername_read & ' public ' &$ifIndex_OID, @TempDir, "", 2)
$ifIndex = StdoutRead($pid)
for $pos = 1 to $ifNumber
$ifIndex_wert = StringMid($ifIndex,StringInStr($ifIndex,"=",0,$pos)+2,StringInStr($ifIndex,@CRLF,0,$pos) - StringInStr($ifIndex,"=",0,$pos)-2)
$pid = Run(@ComSpec & " /c snmpget -v2c " & $Input_Computername_read & ' public ' &$ifTable_OID& "2." &$ifIndex_wert, @TempDir, "", 2)
$ifDescr = StdoutRead($pid)
$ifDescr_wert = StringMid($ifDescr,StringInStr($ifDescr,":")+2,StringInStr($ifDescr,@CRLF,0,-1) - StringInStr($ifDescr,":")-2)
$ifDescr_name = _HexToString(StringStripWS ($ifDescr_wert,8))
if @error Then
$ifDescr_name = StringMid($ifDescr,StringInStr($ifDescr,"=")+2,StringInStr($ifDescr,@CRLF,0,-1) - StringInStr($ifDescr,"=")-2)
$ifDescr_name = StringReplace($ifDescr_name,'"',"")
EndIf
_GUICtrlListInsertItem ($list, $ifDescr_name)
for $i = 1 to $lauf[0][0]
$pid = Run(@ComSpec & " /c snmpget -v2c " & $Input_Computername_read & ' public ' &$ifTable_OID&$lauf[$i][0]&"."&$ifIndex_wert, @TempDir, "", 2)
$ifTable = StdoutRead($pid)
$ifTable = StringReplace($ifTable, "Gauge: ", "")
$ifTable = StringReplace($ifTable, "Hex: ", "")
$ifTable_array[$pos][$i] = StringMid($ifTable, StringInStr($ifTable,"=")+2,StringInStr($ifTable,@CRLF) - StringInStr($ifTable,"=")-2)
$ifTable_array[$pos][0] = StringStripWS ($ifDescr_wert,8)
Next
Next
Else
SplashOff()
MsgBox(0,"","Rechner "& $Input_Computername_read &" existiert nicht!")
EndIf
SplashOff()
case $list
$ret = _GUICtrlListSelectedIndex ($list) ;Zeile im Listenfeld
$ret += 1
_GUICtrlListViewDeleteAllItems ($listview)
for $i = 1 to $lauf[0][0]
if $i = 1 then
$ifTable_array[$ret][$i] = _HexToString(StringStripWS ($ifTable_array[$ret][$i],8))
GUICtrlCreateListViewItem($lauf[$i][1] &" | " &$ifTable_array[$ret][$i],$listview)
$i +=1
EndIf
GUICtrlCreateListViewItem($lauf[$i][1] &" | " &$ifTable_array[$ret][$i],$listview)
Next
case $menueneu
_GUICtrlListViewDeleteAllItems ($listview)
GUICtrlSetData($list,"")
GUICtrlSetData($Input_Computername,"")
EndSwitch
WEnd
Func file_install()
FileInstall("..\include\prog\libsnmp.dll", @TempDir&"\libsnmp.dll",1)
FileInstall("..\include\prog\snmpwalk.exe", @TempDir&"\snmpwalk.exe",1)
FileInstall("..\include\prog\snmpget.exe", @TempDir&"\snmpget.exe",1)
EndFunc
Func del_file()
FileDelete(@TempDir&"\libsnmp.dll")
FileDelete(@TempDir&"\snmpwalk.exe")
FileDelete(@TempDir&"\snmpget.exe")
EndFunc
Programm:
Das Programm ist in einer Zip-Datei mit allen Datein im Ordner NicError enthalten. Nur ne exe draus machen und los geht es
So genug 
Lob und sowas natürlich bitte an mich
MfG
Der_Doc
Ja wie gesagt ich weis ja leider nicht wirklich wie das Programm funktioniert und was es macht.
Poste doch mal eine Beschreibung und dann sehen wir weiter.
Ich verstehe z.B. nicht was es mit deinem nicht überschreiben aufsich hat, soll die Datei dann einfach übersprungen werden oder ersetzt oder was??????
Ich helfe ja gerne aber auf Ratespiele habe ich keine Lust.
MfG
Der_Doc
Hi ich habe da nochmal eine frage.
Was soll das Prog eigentlich genau machen?????
Es wird ein BAckupordner angelegt und alle Dateien dort hinkopiert aber nicht überschrieben?
Ist das so richtig?
Wenn das nämlich so sein soll ist es zu schwer geschrieben.
MfG
Der_Doc
Hi bei mir funktioniert es einwandfrei.
Der Ordner in den die Datei kopiert werden soll, enthält unterordner und Datein.
Versuche doch mal:
FileCopy("X:\*.*","C:\BMSBackup2\*.*",0)
MfG
Der_Doc
