Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBS bleibt nach Abfrage EventLog in Schleife hängen

Mitglied: Knutsen42

Knutsen42 (Level 1) - Jetzt verbinden

06.02.2007 um 12:43 Uhr, 3200 Aufrufe

Moin.

Gleich vorweg, ich bin ein VBS-Newbie. ;) Ich mache gerade meine ersten Gehversuche, indem ich probiere, bestimmte Einträge aus dem Ereignislog eines anderen Rechners in eine SQL-Datenbank zu klöppeln.

Leider bleibt das Script aber am Ende der ForEach-Schleife hängen. Er trägt den letzten Eintrag ein, er kommt (scheinbar) ans Ende der Schleife und dann.... Stille. Das Test-Yo wird nicht ausgegeben und das Script muss ich aus dem TaskManager killen.

Vielleicht weiß jemand von Euch Rat? Vermutlich ist es nur was ganz Simples...



'*
Public Function DBOpen(db_server, db_port, db_user, db_pass, db_name)
'*
Set conn=CreateObject("ADODB.Connection")
strConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & db_server & ";" _
& " DATABASE=" & db_name & ";" _
& "UID=" & db_user & ";PWD=" & db_pass & "; OPTION=3"
conn.Open strConnectString
DBOpen = conn
End Function

'
Dim objWMIService

conn = DBOpen ("localhost", 3306, "USER", "PASS", "data")

Set rs = CreateObject("ADODB.recordset")
rs.Open "SELECT run FROM runs ORDER BY id DESC LIMIT 0,1", conn
While Not (rs.EOF)
schranke = rs.Fields("run").Value
rs.MoveNext
Wend

strComputer = "NAME"
Set dateTime = CreateObject("WbemScripting.SWbemDateTime")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItemsErrors = objWMIService.ExecQuery( "SELECT * FROM Win32_NTLogEvent Where ((Type = 'Fehler' OR Type = 'Warnung' OR Type = 'Warning' OR Type = 'Error') AND TimeGenerated > '"&schranke&"')",,48)

For Each item in colItemsErrors
dateTime.Value = item.TimeGenerated
mysqlStamp = dateTime.Year&dateTime.Month&dateTime.Day&dateTime.Hours&dateTime.Minutes&dateTime.Seconds
if (not isnull(item.Message) ) then
message = replace(item.Message, "'", "´")
message = replace(message, "\", "/")
end if
sql = "INSERT INTO eventlogs (source, type, date, evlogMessage, evlogID, evlogSource) VALUES ( '"&strComputer&"', '"&item.Type&"', '"&mysqlStamp&"', '"&message&"', '"&item.EventIdentifier&"', '"&item.SourceName&"');"
Set rs = CreateObject("ADODB.recordset")
rs.Open sql, conn
Next

WScript.Echo "Yo"

Set rs = CreateObject("ADODB.recordset")
rs.Open "INSERT INTO runs (run) VALUES ('"&dateTime.Value&"');", conn
rs.Close

conn.Close
WSCRIPT.QUIT(0)

Ähnliche Inhalte
Batch & Shell
Eventlog Druckjobs mit VBS auslesen
Frage von joni2000deBatch & Shell4 Kommentare

Hallo zusammen, ich lese mit folgendem Code das Eventlog aus um die Druckjobs zu ermitteln. Das funktioniert auf dem ...

Router & Routing
Detected Tx Unit Hang
gelöst Frage von DasBillRouter & Routing3 Kommentare

Hallo zusammen, ich betreibe einen ESXi 6.0.0 (Build 2615704) mit einer VM für die UTM (v9.310-11) und zwei Debian ...

Windows Server
Eventlog DFS-Replikation
gelöst Frage von voelkemlWindows Server

Hallo zusammen, ich habe folgendes Problem (vielleicht ist es gar kein Problem und ich habe nur irgendwo ein Häkchen ...

Windows Server
Windows Eventlog Abonnements
Frage von emeriksWindows Server1 Kommentar

Hi, hat jemand von Euch unter Windows Server Eventlog Abonnements im Einsatz? Ich überlege, das "im großen Stil" einzusetzen. ...

Neue Wissensbeiträge
Router & Routing

Zyxel VMG 1312 B30A - Firmwareupdate nur im "privaten" Firefox Modus möglich

Tipp von the-buccaneer vor 49 MinutenRouter & Routing

Hatte hier ein Zyxel 1312 das ums verrecken kein Firmwareupdate durchführen wollte. Datei ist auswählbar, dann kommt der Fortschrittskreisel ...

Windows 7

Windows 7 u. Server 2008 (R2) SHA-2-Update kommt am 12. März 2019

Information von kgborn vor 1 TagWindows 75 Kommentare

Kleine Info für die Admins der oben genannten Maschinen. Ab Juli 2019 werden Updates von Microsoft nur noch mit ...

Firewall
PfSense 2.5.0 benötigt doch kein AES-NI
Information von ChriBo vor 3 TagenFirewall2 Kommentare

Hallo, Wie sich einige hier erinnern werden hat Jim Thompson in diesem Aritkel beschrieben, daß ab Version 2.5.0 ein ...

Internet
Copyright-Reform: Upload-Filter
Information von Frank vor 4 TagenInternet1 Kommentar

Hallo, viele Menschen reden aktuell von Upload-Filtern. Sie reden darüber, als wären es eine Selbstverständlichkeit, das Upload-Filter den Seitenbetreibern ...

Heiß diskutierte Inhalte
Hardware
IT-Werkzeugkoffer bis 50,- EUR
gelöst Frage von departure69Hardware44 Kommentare

Hallo. Ich bin als IT-Systembetreuer einer Gemeinde zusätzlich auch der IT-Systembetreuer einer Grund- und Hauptschule. Dort muß ich jedoch ...

Netzwerke
Verteilung von Programmdaten außerhalb des internen Netzwerkes
Frage von mertaufmbergNetzwerke27 Kommentare

Guten Morgen liebe Administratoren, ich versuche zurzeit eine möglichst sichere und einfache Lösung zu suchen, um ein Programmverzeichnis über ...

Netzwerkmanagement
Richtfunknetzwerk mit vielen Hops stabiler gestalten
Frage von turti83Netzwerkmanagement22 Kommentare

Hallo, in meinem Dorf habe ich vor ca. einem Jahr ein Backbone aufgebaut um die Nachbarschaft mit Internet zu ...

Hyper-V
Intel MSC Raid 5 Rebuild
Frage von DannysHyper-V19 Kommentare

Hallo Community, Ich habe einen Modul Server von Intel in Betrieb. Dort ist eine Festplatte aus dem Raid 5 ...