[VBS] Verbindung zum Server herstellen um per Skript von dort aus Einträge aus dem Eventlog in eine Exceltabelle zu bekommen.

Trainee

Thursday, July 8th 2010, 1:54pm

[VBS] Verbindung zum Server herstellen um per Skript von dort aus Einträge aus dem Eventlog in eine Exceltabelle zu bekommen.

Hallo zusammen,

ich suche ein Skript- Schnipsel mit dem ich mich mit einem Benutzer an einem Server im Netzwerk anmelden kann um ein Skript ausführen zu können welches dann das Ereignislog durchsuchen kann.

Da ich noch nicht so fit in Vb-Script bin, habe ich mir zwei Skriptbeispiele heruntergeladen. Das eine durchsucht das Eventlog meines lokalen PC`s und schreibt die gesuchten Zeilen dann in eine Excel-Datei.
Das andere Skript ist eine .HTA Datei und ziemilch umfangreich (930 Zeilen). Es hat eine grafische Oberfläche und sieht vor, dass man sich am Server authentiiezieren kann....Nur leider kann ich in das Passwort-Feld alles reinschrieben was ich möchte - Akzeptiert wird es immer. Und so kann wohl kaum eine Verbindung mit dem Server stattgefunden haben.
Jedenfalls habe ich einen neuen Butten erstellt und den mit der einer neuen Funktion (Sub) belegt. Diese Funktion ist nämilch das erste Skript. Somit habe ich zwei Skriptbeispiele eins gemacht.
Funktionieren tut es wie gesagt bis jetzt nur für meinen lokalen PC und noch nicht für einen anderen Server im Netzwerk.

Die Frage ist nun, wie man den folgenden Code so umschreiben kann, dass es auch wirklich funktioniert.

Vielen Dank schonmal für die Hilfe.
Gruß,
benny

Hier mal der passende Code:

Source code

'--------------Get username, domoain, password
  strUsername = document.getElementById("username_textbox").Value
  strDomain = document.getElementById("domain_textbox").Value
  strPassword = document.getElementById("password_textbox").Value
  If strDomain <> "" Then
    If strUsername <> "" Then
      strDomainUsername = strDomain & "\" & strUsername
   Else
     strDomainUsername = ""
   End If
  Else
    strDomainUsername = strUsername
 End If
  '--------Get list of computers
 ReDim Preserve arrComputers(0)
  arrComputers(0) = ""
  i = 1
  For Each strComputer in computers_listbox.Options
    ReDim Preserve arrComputers(i)
    arrComputers(i) = strComputer.Value
   i = i + 1
  Next
  If UBound(arrComputers,1) > 0 And Not ( strDomainUsername <> "" And strPassword = "" ) Then
    OutputRow = 0
    OutputColumn = 0
    '---------Get output format

circa 20 Zeilen weiter unten sind dann folgende zeilen:

Source code

  For each strComputer in arrComputers
     If strComputer = "" Then
       objSWbemServices = ""
       strComputer = "Computers"
     Else
      On Error Resume Next
       Set objSWbemServices = CreateObject("WbemScripting.SWbemLocator").ConnectServer _
                            (strComputer, "root\cimv2", strDomainUsername, strPassword)
       If Err = -2147217308 Then 'Error -2147217308: User credentials cannot be used for local connections
        Err.Clear