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:
Alles anzeigen
circa 20 Zeilen weiter unten sind dann folgende zeilen:
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:
Brainfuck-Quellcode
- '--------------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:
Quellcode
- 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