String in TXT-Datei finden und weiteren Code ausführen

07/02/2009 - 15:52 von Günter Müller | Report spam
Hallo NG,

die Mitglieder der "Test-Gruppe" erhalten mittels xcacls.vbs
Vollzugriff auf die Profile der Anwender.
Xcacls.vbs erstellt zusàtzlich die Logdatei "Xcacls_Log.txt".

'***Beispiel
DCStandort= "DC-XY-Z" & "Profiles$"
ZuAdmins="Test-Gruppe"
strCommand = DCStandort & " /S /E /g TestDomaine\" & ZuAdmins & ":f /
L .\Xcacls_Log.txt"
wshShell.Run "cscript.exe .\xcacls.vbs " & strCommand
'***BeispielEnde

Das Script wird über den Taskmanager automatisch ausgeführt.
Ich beabsichtige abschliessend die erstellte Logdatei "Xcacls_Log.txt"
nach dem Wort "Error" zu durchsuchen u. wenn gefunden !!, wie
nachfolgend dargestellt, einen Eintrag ins EventLog zu erstellen.

Option Explicit
Const cERROR = 1
Dim objShell, flgReturnValue
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.LogEvent cERROR, "Scriptfehler in xcacals.vbs"

Ich habe bereits die ganze NG durchsucht u. kein treffendes Beispiel
gefunden.
Eigentlich sollte es mit der Function ReadFile gehen, nur
nochfolgendes Beispiel bekomme ich nicht zum laufen.
http://groups.google.de/group/micro...3a2b833160

Hat jemand einen Lösungsvorschlag?

Danke für eure Hilfe
Günter Müller
 

Lesen sie die antworten

#1 Pegasus \(MVP\)
07/02/2009 - 16:21 | Warnen spam
"Günter Müller" wrote in message
news:
Hallo NG,

die Mitglieder der "Test-Gruppe" erhalten mittels xcacls.vbs
Vollzugriff auf die Profile der Anwender.
Xcacls.vbs erstellt zusàtzlich die Logdatei "Xcacls_Log.txt".

'***Beispiel
DCStandort= "DC-XY-Z" & "Profiles$"
ZuAdmins="Test-Gruppe"
strCommand = DCStandort & " /S /E /g TestDomaine\" & ZuAdmins & ":f /
L .\Xcacls_Log.txt"
wshShell.Run "cscript.exe .\xcacls.vbs " & strCommand
'***BeispielEnde

Das Script wird über den Taskmanager automatisch ausgeführt.
Ich beabsichtige abschliessend die erstellte Logdatei "Xcacls_Log.txt"
nach dem Wort "Error" zu durchsuchen u. wenn gefunden !!, wie
nachfolgend dargestellt, einen Eintrag ins EventLog zu erstellen.

Option Explicit
Const cERROR = 1
Dim objShell, flgReturnValue
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.LogEvent cERROR, "Scriptfehler in xcacals.vbs"

Ich habe bereits die ganze NG durchsucht u. kein treffendes Beispiel
gefunden.
Eigentlich sollte es mit der Function ReadFile gehen, nur
nochfolgendes Beispiel bekomme ich nicht zum laufen.
http://groups.google.de/group/micro...3a2b833160

Hat jemand einen Lösungsvorschlag?

Danke für eure Hilfe
Günter Müller

==
Nils' Programm, auf das du dich beziehst, sollte eigentlich ganz glatt
laufen. Am besten wàre es, du würdest uns zeigen, wie du es für deine Zwecke
abgeàndert hast.

Ähnliche fragen