TweakPC

Zurück   Computer Hardware Forum - TweakPC > Games und Software > Programmiersprachen

Antwort
 
LinkBack Themen-Optionen Thema bewerten Ansicht
Alt 23.03.2012, 10:24   #1 (permalink)
Taschenrechner
 
Benutzerbild von Soman_X
 

Registriert seit: 18.01.2010
Beiträge: 61

Soman_X befindet sich auf einem aufstrebenden Ast

Standard [VB-Script] Fehler bei der Ausführung...aber warum?!

Ich habe ein "kleines" VB-Script geschrieben, welches auf den Servern wöchentlich nen Dump vom Eventlog speichert.

Nun wirft er aber beim Ausführen folgenden Fehler:
Line: 80
Char: 2
Error: Ungültiger Prozeduraufruf oder ungütiges Argument
Code: 800A0005

Ich als relativer VB-Newbie fühle mich da etwas hilflos^^

Anbei der relevante Scriptausschnitt... ich habe schon rausgefunden, dass die eigentliche Logmessage "objEvent.Message" das problem auf irgendeine Weise verursacht... hänge ich das nicht an den String, gibt es keinen Fehler.
Das skurille: Die Datei wird trotzdem komplett erzeugt oO

Code:
'Save Eventlog for the LAST month
'================================
'Build Textfile
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colEvents = objWMIService.ExecQuery _
 ("Select * from Win32_NTLogEvent Where LogFile='Application'")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\" & monthLast & "_" & yearLast & ".txt")
'Loop through eventlog
For Each objEvent in colEvents
 strTimeWritten = objEvent.TimeWritten
 dtmTimeWritten = CDate(Mid(strTimeWritten, 5, 2) & "/" & _
  Mid(strTimeWritten, 7, 2) & "/" & Left(strTimeWritten, 4) _
   & " " & Mid (strTimeWritten, 9, 2) & ":" & _
    Mid(strTimeWritten, 11, 2) & ":" & Mid(strTimeWritten, 13, 2))
'Build Output String
 If Left(FormatDateTime(dtmTimeWritten), 2) = buffer Then
  strEvent = FormatDateTime(dtmTimeWritten) & vbTab 
  strEvent = strEvent & objEvent.SourceName & vbTab
  strEvent = strEvent & objEvent.Type & vbTab
  strEvent = strEvent & objEvent.Category & vbTab
  strEvent = strEvent & objEvent.EventCode & vbTab
  strEvent = strEvent & objEvent.User & vbTab
  strEvent = strEvent & objEvent.ComputerName & vbTab
  strDescription = objEvent.Message
  If IsNull(strDescription) Then
   strDescription = "The event description cannot be found."
  End If
  strDescription = Replace(strDescription, vbCrLf, " ")
  strEvent = strEvent & objEvent.Message & vbTab '<=== hier kommt objEvent.Message 
 objFile.WriteLine(strEvent) '<=== Zeile 80
 End If
Next
objFile.Close
Soman_X ist offline   Mit Zitat antworten
Antwort

Stichworte
ausführungaber, fehler, vbscript


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 
Themen-Optionen
Ansicht Thema bewerten
Thema bewerten:

Forumregeln
Es ist dir erlaubt, neue Themen zu verfassen.
Es ist dir erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are an


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
E4500 Übertakten, aber warum? Tremendous CPUs, RAM, Mainboard Overclocking 6 20.11.2007 22:30
Frameeinbrüche aber warum? BlackHawk_2007 Overclocking - Übertakten 4 28.09.2007 22:32
CPU 0.1V zu viel - aber warum? Jodan Overclocking - Übertakten 5 30.11.2006 18:54
css ruckelt, aber warum? SickBrain Grafikkarten und Displays allgemein 17 21.07.2006 16:03
Netzwerk Geht net aber warum ??? Gast Netzwerk 5 31.01.2003 14:27


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:37 Uhr.




Powered by vBulletin® Version 3.8.10 (Deutsch)
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
SEO by vBSEO 3.5.2 ©2010, Crawlability, Inc.
Impressum, Datenschutz Copyright © 1999-2015 TweakPC, Alle Rechte vorbehalten, all rights reserved