Hey,
was mache ich hier falsch?
[autoit]_QueryDNS('Hostname')
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Func _QueryDNS($URL)
TCPStartup()
Local $IP = TCPNameToIP($URL)
Local $error = @error
TCPShutdown()
Return Seterror($error,0,$IP)
MsgBox(0, "", $ip)
Endfunc
Danke
Hey,
brauche mal wieder hilfe wie kann ich von einem Hostnamen die IP wiedergeben.
jemand einen Tipp für mich ?
Gruß
SubZero
Hey,
kurze frage habe ein Problem,
$hostname = 'Server01'
Local Const $Communities = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SNMP\Parameters\ValidCommunities"
Local Const $Communities_name = "xxIrgendwasxx"
Local Const $Managers = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SNMP\Parameters\PermittedManagers"
Local Const $Managersname = "1"
Local Const $Managersip = "192.169.0.50"
$tmp = RegRead("\\" & $Hostname & "\" & $Communities, $Communities_name)
$tmp2 = RegRead("\\" & $Hostname & "\" & $Managers, $Managersname)
MsgBox(0, "", $tmp)
MsgBox(0, "", $tmp2)
Mit dern Communitie klappt es will aber den PermittedManager auslesen,
also in alle werte unterhalb des schlüssels
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SNMP\Parameters\PermittedManagers"
Gucken ob die IP eingetragen ist eine idee?
Gruß
SubZero
Hey,
umgenau zu sein ich habe einen Monitoringtool wo ich die SNMP Schnitstelle abfragen kann da will ich keine Autoit Funktion einbauen,
mir geht es darum z.b.
Trapziel auslesen.
Communityname.
snmp Pakete von Hostannehmen:
Community|rechte
Wie ich das auslese und für Später wie ich die werte setzen kann
eine Idee?
Gruß
SubZero
Unter WXP 32Bit funktioniert
Run('mmc.exe c:\windows\system32\diskmgmt.msc')
Ohne abfragen habe leider kein Windows 7
Gruß
SubZero
Hallo,
ich habe was vor weiss zur zeit nicht wie ich das angehen soll will von diversen servern die SNMP Konfiguration abfragen,
hat jemand eine idee?
Danke
SubZero
So sieht mein code aktuell aus:
[autoit]Func _newest()
; _GUICtrlListView_DeleteAllItems($LVNP)
Local $icount = _GUICtrlListView_GetItemCount($LVNP)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemTextArray($LVNP, $i)
;_ArrayDisplay($ListViewText)
If not isArray($ListViewText) Then
; MsgBox(16, "Error", "Jetzt geht es gleich schief!")
; exitloop
continueloop ; verlässt die For/Next Schleife oder ein continueloop um die Liste weiter abzuarbeiten
endif
$ti = FileGetTime($imagepath & $ListViewText[1], 1)
;ConsoleWrite($imagepath & $ListViewText[1] & @CRLF)
If @error Then Return ;raus wenn fehler
$yyyymd = $ti[0] & "/" & $ti[1] & "/" & $ti[2] ;datum wenn kein fehler
$sLog = FileRead(@ScriptDir & '\history.log') ; hier kann man sich das FileOpen sparen
;ConsoleWrite($sLog & @CRLF)
If not StringInStr($sLog, $ListViewText[1] & ';' & $yyyymd) Then
; GUICtrlCreateListViewItem($ListViewText[1], $LVNP)
;_GUICtrlListView_DeleteItem($lvnp, $ListViewText[1])
_GUICtrlListView_DeleteItem($lvnp, $i)
;Return
; GUICtrlCreateListViewItem($ListViewText[1], $LVNP)
else
consolewrite ("Datei "&$ListViewText[1] & ';' & $yyyymd&" im Log nicht enthalten!" & @CRLF)
EndIf
Next
EndFunc
Danke
SubZero
Hey,
er löscht die falschen,
backup\server\server_woechentlich.tib;2009/08/07
Dieser log eintrag ist definitiv nicht vorhanden aber er löscht den eintrag trotzdem eine idee?
Habe ich einen denkfeher oder liegt es am Script??
er soll ja löschen wenn eintrag vorhanden ist....
Danke
Subzero
Vorschlag wie ich das machen kann?
Gruß
SubZero
Hey,
jetzt stürtzt mein Script nicht ab;
aber er löscht er nicht die richtigen werte Was mache ich falsch??
Func _newest()
; _GUICtrlListView_DeleteAllItems($LVNP)
Local $icount = _GUICtrlListView_GetItemCount($LVNP)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemTextArray($LVNP, $i)
;_ArrayDisplay($ListViewText)
If not isArray($ListViewText) Then
; MsgBox(16, "Error", "Jetzt geht es gleich schief!")
; exitloop
continueloop; verlässt die For/Next Schleife oder ein continueloop um die Liste weiter abzuarbeiten
endif
$ti = FileGetTime($imagepath & $ListViewText[1], 1)
;ConsoleWrite($imagepath & $ListViewText[1] & @CRLF)
If Not @error Then
$yyyymd = $ti[0] & "/" & $ti[1] & "/" & $ti[2]
If @error Then Return
EndIf
$sLog = FileRead(@ScriptDir & '\history.log') ; hier kann man sich das FileOpen sparen
ConsoleWrite($sLog & @CRLF)
If not StringInStr($sLog, $ListViewText[1] & ';' & $yyyymd) Then
; GUICtrlCreateListViewItem($ListViewText[1], $LVNP)
_GUICtrlListView_DeleteItem($lvnp, $ListViewText[1])
;Return
; GUICtrlCreateListViewItem($ListViewText[1], $LVNP)
EndIf
Next
EndFunc
Eine Idee?
Gruß
SubZero
Hey,
du hast recht
If not isArray($ListViewText) Then MsgBox(16, "Error", "Jetzt geht es gleich schief!")
ist schief gegangen 
und jetzt ?
Danke
SubZero
Un wie mache ich darus wieder eine Array ich stehe echt auf dem schlauch????
Hey,
was mache ich hier falsch??
[autoit]Func _checknewest()
Local $icount, $sNewest, $iNewest, $sChecked = ''
_GUICtrlListView_DeleteAllItems($LVNP)
$icount = _GUICtrlListView_GetItemCount($LV)
For $i = 0 To $icount - 1
$ListViewText = StringRegExpReplace(_GUICtrlListView_GetItemText($LV, $i), '(.+\\).*', '$1')
If Not StringInStr($sChecked, $ListViewText) Then
$sChecked &= $ListViewText
$aImageList = _FileListToArray($imagepath & $ListViewText, '*', 1)
If Not @error Then
$sNewest = '0000/00/00'
$iNewest = 0
For $j = 1 To $aImageList[0]
$sDate = StringRegExpReplace(FileGetTime($imagepath & $ListViewText & '\' & $aImageList[$j], 0, 1), '(\d{4})(\d{2})(\d{2}).+', '$1/$2/$3')
If $sDate > $sNewest Then
$sNewest = $sDate
$iNewest = $j
EndIf
Next
GUICtrlCreateListViewItem($ListViewText & $aImageList[$iNewest], $LVNP)
Else
MsgBox(0, 'Fehler', 'Keine Dateien gefunden!')
EndIf
EndIf
Next
_newest()
EndFunc ;==>_checknewest
Func _newest()
; _GUICtrlListView_DeleteAllItems($LVNP)
Local $icount = _GUICtrlListView_GetItemCount($LVNP)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemTextArray($LVNP, $i)
_ArrayDisplay($ListViewText)
$sLog = FileRead(@ScriptDir & '\history.log') ; hier kann man sich das FileOpen sparen
$ti = FileGetTime($imagepath & $ListViewText[1], 1)
ConsoleWrite($ListViewText & $imagepath & $ListViewText[1] & @CRLF)
If Not @error Then
$yyyymd = $ti[0] & "/" & $ti[1] & "/" & $ti[2]
If @error Then Return
EndIf
If StringInStr($sLog, $ListViewText[1] & ';' & $yyyymd) Then
[/autoit][autoit][/autoit][autoit]; GUICtrlCreateListViewItem($ListViewText[1], $LVNP)
_GUICtrlListView_DeleteItem($lvnp, $ListViewText[1])
;Return
; GUICtrlCreateListViewItem($ListViewText[1], $LVNP)
EndIf
Next
EndFunc ;==>_checkap
Kriege einen fehler in der zeile 40 einen array habe ich _arraydisplay in zeile 38 ist erfolgreich,
jemand eine idee?
Danke
SubZero
Hey,
irgendwie passiert garnichts mehr???
_arraydisplay
[/autoit]
Springt auch nicht an was ist los?
Func _checknewest()
Local $icount, $sNewest, $iNewest
_GUICtrlListView_DeleteAllItems($LVNP)
If StringRight($imagepath, 1) <> '\' Then $imagepath &= '\'
$icount = _GUICtrlListView_GetItemCount($LV)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemText($LV, $i)
$aImageList = _FileListToArray($imagepath & $ListViewText, '*', 1)
_ArrayDisplay($aImageList)
If Not @error Then
$sNewest = '0000/00/00'
$iNewest = 0
For $j = 1 To $aImageList[0]
$sDate = StringRegExpReplace(FileGetTime($imagepath & $ListViewText & '\' & $aImageList[$j], 0, 1), '(\d{4})(\d{2})(\d{2}).+', '$1/$2/$3')
If $sDate > $sNewest Then
$sNewest = $sDate
$iNewest = $j
EndIf
Next
GUICtrlCreateListViewItem($imagepath & $ListViewText & '\' & $aImageList[$iNewest], $LVNP)
EndIf
Next
EndFunc
Eine idee?
Gruß
SubZero
Hey,
würde gerne folgendes Script umbauen auf cmd ohne gui
tool.exe log.txt v stufe passwort (zum verschlüsseln)
tool.exe log.txt e passwort (entschlüsseln)
Hat jemand für mich eine idee oder hat er das mal umgesetzt
#include <GuiConstantsEx.au3>
#include <String.au3>
Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local $WinMain, $EditText, $InputPass, $InputLevel, $UpDownLevel, $EncryptButton, $DecryptButton, $string
; GUI und String Sachen
$WinMain = GUICreate(''Verschlüsselungsprogramm', 400, 400)
; Erstellt ein Fenster
$EditText = GUICtrlCreateEdit('', 5, 5, 380, 350)
; Erstellt das Haupt-Edit-Feld
$InputPass = GUICtrlCreateInput('', 5, 360, 100, 20, 0x21)
; Erstellt das Passwortfeld mit der versteckten zentrierten Eingabe
$InputLevel = GUICtrlCreateInput(1, 110, 360, 50, 20, 0x2001)
$UpDownLevel = GUICtrlSetLimit(GUICtrlCreateUpdown($InputLevel), 10, 1)
; Dies erstellt die Stufeneingabe mit Hoch|Runter-Fähigkeit
$EncryptButton = GUICtrlCreateButton('Verschlüsseln', 170, 360, 105, 35)
; Encryptbutton
$DecryptButton = GUICtrlCreateButton('Entschlüsseln', 285, 360, 105, 35)
; Decryptbutton
GUICtrlCreateLabel('Passwort', 5, 385)
GUICtrlCreateLabel('Stufe', 110, 385)
; Einfache Textlabels
GUISetState()
; Zeigt das Fenster
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $EncryptButton
GUISetState(@SW_DISABLE, $WinMain) ; Bewahrt vor jeglichen Änderungen
$string = GUICtrlRead($EditText) ; Speichert den Inhalt der Editbox für später
GUICtrlSetData($EditText, "Bitte warten während der Text verschlüsselt bzw. entschlüsselt wird.") ; Freundliche Nachricht
GUICtrlSetData($EditText, _StringEncrypt(1, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel)))
; Ruft das Verschlüsseln auf. Setzt die Daten der Editbox mit dem verschlüsselten String
; Das Verschlüsseln beginnt mit 1/0 um mitzuteilen ob es verschlüsselt/entschlüsselt wird
; Das Verschlüsseln hat dann den String welchen man für später von der Editbox gespeichert hat
; Dann wird die Passwort-Box und die Levelbox gelesen
GUISetState(@SW_ENABLE, $WinMain) ; Dies holt das Fenster zurück
Case $DecryptButton
GUISetState(@SW_DISABLE, $WinMain) ; Bewahrt vor jeglichen Änderung
$string = GUICtrlRead($EditText) ; Speichert den Inhalt der Editbox für später
GUICtrlSetData($EditText, "Bitte warten während der Text verschlüsselt bzw. entschlüsselt wird.") ; Freundliche Nachricht
GUICtrlSetData($EditText, _StringEncrypt(0, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel)))
; Ruft das Entschlüsseln auf. Setzt die Daten der Editbox mit dem entschlüsselten String
; Das Entschlüsseln beginnt mit 1/0 um mitzuteilen ob es verschlüsselt/entschlüsselt wird
; Das Entschlüsseln hat dann den String welchen man für später von der Editbox gespeichert hat
; Dann wird die Passwort-Box und die Stufen-Box gelesen
GUISetState(@SW_ENABLE, $WinMain) ; Dies holt das Fenster zurück
EndSwitch
WEnd ; Läuft, bis das Fenster geschlossen wird
Exit
EndFunc ;==>_Main
Danke für eure Tipps
Gruß
SubZero
Hey,
jetzt Stürtzt mein Script nicht mehr ab aber. auch nicht das ergebniss was ich haben wollte:
[autoit]Func _checknewest()
_GUICtrlListView_DeleteAllItems($LVNP)
Local $icount = _GUICtrlListView_GetItemCount($LV)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemTextArray($LV, $i)
$ListViewText[1] = StringLeft($ListViewText[1], StringInStr($ListViewText[1], '\', 0, -1))
$aFilelist = _FileListToArray($imagepath & $ListViewText[1])
; nö machen wir nicht so --> Dim $aFiledate[$aFilelist[0]+1] sondern:
Dim $aFiles[Ubound($aFilelist)-1][2]
For $i = 1 To Ubound($aFiles)-1
$aFiles[$i][0] = $aFilelist[$i]
$aFiles[$i][1] = FileGetTime($imagepath & $ListViewText[1] & '\' & $aFilelist[$i], 0, 1)
;dann noch nicht gleich in die ListView reinmachen sondern vorher erst sortieren
Next
;sortieren
_ArraySort($aFiles, 1, 0, 0, 1)
;_ArrayDisplay($aFiles)
;Jetzt kann mans wieder einfügen
For $i = 1 To Ubound($aFiles)-1
GUICtrlCreateListViewItem($ListViewText[1] & $aFiles[$i][0], $LVNP)
Next
Next
EndFunc
Er erstellt mir in meine zweite listview die einträge 2 bis 6 von der Listview 1
Eine Idee?
Gruß
SubZero
Upps...
Und jetzt ???
Habe ich noch nie gemacht wie komme ich jetzt zum ziel??
Hey,
[autoit]Func _checknewest()
_GUICtrlListView_DeleteAllItems($LVNP)
Local $icount = _GUICtrlListView_GetItemCount($LV)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemTextArray($LV, $i)
$ListViewText[1] = StringLeft($ListViewText[1], StringInStr($ListViewText[1], '\', 0, -1))
$aFilelist = _FileListToArray($imagepath & $ListViewText[1])
; nö machen wir nicht so --> Dim $aFiledate[$aFilelist[0]+1] sondern:
Dim $aFiles[Ubound($aFilelist)-1][2]
For $i = 1 To Ubound($aFiles)-1
$aFiles[$i][0] = $aFilelist[$i]
$aFiles[$i][1] = FileGetTime($imagepath & $ListViewText[1] & '\' & $aFilelist[$i], 0, 1)
;dann noch nicht gleich in die ListView reinmachen sondern vorher erst sortieren
Next
;sortieren
_ArraySort($aFiles, 1, 0, 0, 1)
_ArrayDisplay($aFiles)
;Jetzt kann mans wieder einfügen
For $i = 1 To Ubound($ListViewText[1] & $aFiles)-1
GUICtrlCreateListViewItem($ListViewText[1] & $aFiles[$i], $LVNP)
Next
Next
EndFunc
Habe jetzt so weit das wein Script nicht abstürtzt aber passieren tut auch nichts
habe ein _arraydisplay gemacht leider ohne erfolg.
es öffnet sich ein fenster mit werten das war es dann auch und mann kann arraydisplay auch nicht mehr schliessen....
Eine idee?
Gruß
SubZero
Hey,
jetzt kriege ich folgende meldung :
==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
GUICtrlCreateListViewItem($ListViewText[1] & $aFiles[$i], $LVNP)
GUICtrlCreateListViewItem($ListViewText[1] & ^ ERROR
Eine idee?
Gruß
SubZero
