Top-Themen

Aktuelle Themen (A bis Z)

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!

Mitglied: Toerk0815

Toerk0815 (Level 1) - Jetzt verbinden

29.08.2013 um 14:17 Uhr, 1969 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
VB for Applications
VB-Script per Aufgabenplanung
gelöst Frage von S4kar97VB for Applications2 Kommentare

Hallo, Ich habe mir ein VB-Script erstellt, welches im Grunde ein Programm startet und diesem Parameter übergibt und die ...

E-Mail
Hilfe bei VB-Script erbeten
gelöst Frage von alexander01E-Mail5 Kommentare

Hallo, ich hatte weiter unten schon mal wegen eines Problemes mit dem hmailserver gefragt, jedoch keine Antwort bekommen. Da ...

Windows Server
Drucker entfernen in VB-Script
gelöst Frage von NilsvLehnWindows Server2 Kommentare

Hallo ich habe eine kleine Frage bzgl. unseres Anmeldeskriptes. Ich habe ein IT-netzwerk an einer Uni übernommen. Ich arbeite ...

Basic

VB Script meldet "Zugriff verweigert" Fehler ?

gelöst Frage von aquiBasic7 Kommentare

Mal eine Newbie Frage an die VB Script Gurus hier im Forum. Ich nutze mit BGInfo ein kleines VB ...

Neue Wissensbeiträge
Netzwerkmanagement
How To Mikrotik Netinstall
Erfahrungsbericht von areanod vor 9 StundenNetzwerkmanagement

Jedes Mal wenn ich Netinstall längere Zeit nicht benutzt habe stolpere ich über die „Besonderheiten“ dieser Software. Das ist ...

Microsoft
Microsoft: LDAPS per Update als Default
Information von em-pie vor 9 StundenMicrosoft

Hallo, Microsoft wird mit einem der zukünftigen Updates LDAP auf LDAPS per Default umstellen. Admins von angebundenen Systemen die ...

Humor (lol)

Funny: Warum es immer schwieriger wird, die richtigen Produkte online zu finden

Information von Dilbert-MD vor 2 TagenHumor (lol)17 Kommentare

Wir befinden uns in der Rubrik "Off Topic - Humor" und in 15 Minuten ist Freitag. und ja, es ...

Windows Update
MS SQL Server Updates
Information von sabines vor 2 TagenWindows Update

Für 2012, 2014 und 2016 sind seit Dienstag wichtige Sicherheitsupdates verfügar, die eine remote, leicht auszunutzende Lücke im Reporting ...

Heiß diskutierte Inhalte
Server-Hardware
Lieferzeiten bei einem Server - kann das sein?
gelöst Frage von samet22Server-Hardware31 Kommentare

Hallo, ich hätte an diejenigen eine Frage welche innerhalb der letzten 6-12 Monate einen Server bestellt haben. Ich habe ...

Verschlüsselung & Zertifikate
SSL Zertifikat gekauft funktioniert aber nicht
Frage von TeKiLLa1895Verschlüsselung & Zertifikate19 Kommentare

Hi, Habe vor 2 Tagen mit einer CSR mir ein Zertifikat beantragt und auch bekommen. Jetzt passt aber der ...

Router & Routing
Suche Router der von einem Ethernet ein WLAN erzeugt
gelöst Frage von cdkurtRouter & Routing17 Kommentare

Hallo, ich bin auf der Suche nach einem Wlan Router/ Access Point der sich in einem Heim / Hotel ...

Utilities
Motherboard mit zwei Ethernet Adapter.?
Frage von Sibelius001Utilities17 Kommentare

Hallo, ist bestimmt eine "Dummy" Frage, die hier bestimmt schon x-mal diskutiert wurde (Dafür bitte ich mal vorab um ...