Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Hilfe, VB Script funktioniert nicht!

Frage Microsoft Windows Server

Mitglied: Toerk0815

Toerk0815 (Level 1) - Jetzt verbinden

29.08.2013 um 14:17 Uhr, 1775 Aufrufe, 3 Kommentare

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

Mitglied: MartinBinder
29.08.2013, aktualisiert um 15:32 Uhr
Hi. Was Dir noch fehlt steht zwischen den Zitaten

Const ForReading = 1
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

objWsh.Run( "shutdown -m \\" & ZeileTemp & " -t 60 -f .s" )
wscript.sleep 60000

Loop
objTextFile.Close
Bitte warten ..
Mitglied: Toerk0815
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"
Bitte warten ..
Mitglied: MartinBinder
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?!?
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

Batch & Shell
gelöst Powershell Datei kopieren mit ACL Script funktioniert nicht (4)

Frage von xpxy15 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows 7
gelöst BOOTMGR is missing (auch nach bootrec -RebuildBcd) (21)

Frage von Mipronimo zum Thema Windows 7 ...

Router & Routing
Tipps für Router (ca. 100 clients, VPN) (20)

Frage von oel-auge zum Thema Router & Routing ...

Windows Userverwaltung
Windows Freigabe: Zugriff auf alle Ordner trotz Sicherheitseinstellungen (18)

Frage von Pandreas zum Thema Windows Userverwaltung ...

Exchange Server
gelöst MS Exchange 2016 - Basicconfig Fragen (16)

Frage von maddig zum Thema Exchange Server ...