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, 3162 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
Notebook & Zubehör
Bootmanager bleibt hängen
gelöst Frage von TheFalconNotebook & Zubehör9 Kommentare

Hallo liebe Community, ich habe folgendes Problem: Ich habe ein Toshiba Satelite Notebook. Nachdem der Akku leer war, ging ...

Windows 7
Windows bleibt am Start hängen
Frage von BigSnakeyeWindows 71 Kommentar

Grüsst euch Leute, ein Windows 7 Pro 64-Bit PC startet nicht mehr durch. Fehlerbild: - nach dem BIOS kommt ...

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 ...

Windows Userverwaltung
Logon script bleibt hängen
Frage von frakaciWindows Userverwaltung4 Kommentare

Hallo Leute. Folgendes Problem: In unserer Domäne wird mit lokalen Profilen gearbeitet, damit die User auch offline arbeiten können. ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 23 StundenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 1 TagSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Sicherheit
Verbindliche Zustellung per E-Mail?
Frage von ahussainSicherheit18 Kommentare

Hallo allerseits, ein Kunde von mir nutzt intensiv Fax. Hauptgrund: zusammen mit einer Empfangsbestätigung ist eine verbindliche Zustellung gewährleistet. ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk13 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...