gelöst Hilfe, VB Script funktioniert nicht!
Hallo,
ich benötige bitte dringend Hilfe bei einem Script was ich schreiben soll.
Es geht hierbei um ein vbs script.
Gob gesagt:
Schleife
1. TXT Einlesen Bsp ServerListe.txt --> Diese soll Zeilenweise eingelesen werden mit einer Variable
2. Shutdown mit Variable (Servername der in der TXT steht) T:60
3. Sleep 60 sek. (wait)
do loop Schleife
Das ist der grobe Aufbau.
Ich komme jetzt an dem Punkt mit dem Shutdon nicht weiter.
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
FileName = "c:\Users\Administrator\Documents\ServerListe.txt"
Set objTextFile = objFSO.OpenTextFile(FileName, ForReading)
Do Until objTextFile.AtEndOfStream
ZeileTemp = objTextFile.Readline
wscript.echo ZeileTemp
Loop
objTextFile.Close
Bitte helft mir sonst verzweifle ich!
Danke schon mal im Vorraus.
Toerk0815
ich benötige bitte dringend Hilfe bei einem Script was ich schreiben soll.
Es geht hierbei um ein vbs script.
Gob gesagt:
Schleife
1. TXT Einlesen Bsp ServerListe.txt --> Diese soll Zeilenweise eingelesen werden mit einer Variable
2. Shutdown mit Variable (Servername der in der TXT steht) T:60
3. Sleep 60 sek. (wait)
do loop Schleife
Das ist der grobe Aufbau.
Ich komme jetzt an dem Punkt mit dem Shutdon nicht weiter.
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
FileName = "c:\Users\Administrator\Documents\ServerListe.txt"
Set objTextFile = objFSO.OpenTextFile(FileName, ForReading)
Do Until objTextFile.AtEndOfStream
ZeileTemp = objTextFile.Readline
wscript.echo ZeileTemp
Loop
objTextFile.Close
Bitte helft mir sonst verzweifle ich!
Danke schon mal im Vorraus.
Toerk0815
3 Antworten
- LÖSUNG MartinBinder schreibt am 29.08.2013 um 15:31:31 Uhr
- LÖSUNG Toerk0815 schreibt am 29.08.2013 um 15:44:09 Uhr
- LÖSUNG MartinBinder schreibt am 29.08.2013 um 20:29:44 Uhr
- LÖSUNG Toerk0815 schreibt am 29.08.2013 um 15:44:09 Uhr
LÖSUNG 29.08.2013, aktualisiert um 15:32 Uhr
Hi. Was Dir noch fehlt steht zwischen den Zitaten
set objWsh = CreateObject( "WScript.Shell" )
Das machen wir so:
Filename = objWsh.ExpandEnvironmentStrings( "%userprofile%\Documents\ServerListe.txt" )
Oder noch besser sogar so - das kann dann auch mit Ordnerumleitung umgehen:
Filename = objWsh.SpecialFolders( "MyDocuments" ) & "\ServerListe.Txt"
(http://technet.microsoft.com/en-us/library/ee156616.aspx)
objWsh.Run( "shutdown -m \\" & ZeileTemp & " -t 60 -f .s" )
wscript.sleep 60000
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objWsh = CreateObject( "WScript.Shell" )
FileName = "c:\Users\Administrator\Documents\ServerListe.txt"
Das machen wir so:
Filename = objWsh.ExpandEnvironmentStrings( "%userprofile%\Documents\ServerListe.txt" )
Oder noch besser sogar so - das kann dann auch mit Ordnerumleitung umgehen:
Filename = objWsh.SpecialFolders( "MyDocuments" ) & "\ServerListe.Txt"
(http://technet.microsoft.com/en-us/library/ee156616.aspx)
Set objTextFile = objFSO.OpenTextFile(FileName, ForReading)
Do Until objTextFile.AtEndOfStream
ZeileTemp = objTextFile.Readline
wscript.echo ZeileTemp
Do Until objTextFile.AtEndOfStream
ZeileTemp = objTextFile.Readline
wscript.echo ZeileTemp
objWsh.Run( "shutdown -m \\" & ZeileTemp & " -t 60 -f .s" )
wscript.sleep 60000
Loop
objTextFile.Close
objTextFile.Close
LÖSUNG 29.08.2013 um 15:44 Uhr
Danke dir schon mal für deine schnelle Hilfe aber ich bekomme jetzt immernoch diesen Fehler gezeigt.
"800a01ad activex komponenten kann kein objekt erstellen"
"800a01ad activex komponenten kann kein objekt erstellen"
LÖSUNG 29.08.2013 um 20:29 Uhr
"800a01ad activex komponenten kann kein objekt erstellen"
Lustig lustig tralalala... Die Zeilennummer dazu wäre schon auch nett - und der Inhalt der Zeile. Vielleicht hatte ich in meiner Antwort ja nen Typo drin?!?
Ähnliche Inhalte
Neue Wissensbeiträge
Heiß diskutierte Inhalte
