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

WakeOnLan Stapelverarbeitend

Tipp Entwicklung Batch & Shell

Mitglied: micneu

micneu (Level 2) - Jetzt verbinden

22.12.2009 um 22:03 Uhr, 5265 Aufrufe, 4 Kommentare, 1 Danke

Wollt ihr morgens Rechner Starten lassen bevor die Mitarbeiter anwesend sind habe ich hier ein kleines vb-script was euch helfen kann.

Speichert das vb-script mit ".vbs" und ruft es mit cscript name.vbs auf...
aufruf des scripts ohne optionen gibt euch die syntax

01.
02.
' Soll automatisch Computer zu einer bestimmten zeit Starten 
03.
' Oder Herunterfahren 
04.
' (c)  M. Neumann 
05.
' 16.06.2009 
06.
' rw.exe http://www.sysworksoft.net/products/rw.html 
07.
 
08.
Option Explicit 
09.
 
10.
Dim wol_ipadressenDatei, ipadressen 
11.
Dim wait, iArgument, FSO, sCommand, sModus, iLfdNr 
12.
Dim oArgumente, WshShell 
13.
Dim sDatei, sWait, COPYLOGO, copyRight, sLaenge, sZeichen, vVariable, zZeichen 
14.
 
15.
Const ForReading = 1 
16.
 
17.
Set oArgumente = WScript.Arguments 
18.
Set WshShell = WScript.CreateObject("WScript.Shell") 
19.
Set fso = CreateObject("Scripting.FileSystemObject") 
20.
copyRight = COPYLOGO & " 16.06.2009, M. Neumann" 
21.
'wait = 5 
22.
iArgument = 0  
23.
COPYLOGO = Chr(169) ' entspricht dem Zeichen (c) 
24.
sZeichen = "=" 
25.
iLfdNr = 0 
26.
Function zHeader(vVariable, zZeichen) 
27.
	sLaenge = Len(vVariable) 
28.
	wscript.Echo(String(sLaenge, zZeichen)) 
29.
	WScript.Echo(vVariable) 
30.
	wscript.Echo(String(sLaenge, zZeichen)) 
31.
End Function 
32.
 
33.
If oArgumente.Count > 0 Then 
34.
	Do 
35.
		If UCase(oArgumente(iArgument)) = "-D" Or _ 
36.
			UCase(oArgumente(iArgument)) = "/D" Or _ 
37.
			UCase(oArgumente(iArgument)) = "-Datei" Then 
38.
			'---- Dateiargument 
39.
			iArgument = iArgument + 1 
40.
			sDatei = oArgumente(iArgument) 
41.
			Set wol_ipadressenDatei = fso.OpenTextFile(sDatei,ForReading) 
42.
		 
43.
		ElseIf UCase(oArgumente(iArgument)) = "-W" Or _ 
44.
			UCase(oArgumente(iArgument)) = "/W" Or _ 
45.
			UCase(oArgumente(iArgument)) = "-Wait" Then 
46.
			'---- Zeitargument 
47.
			iArgument = iArgument + 1 
48.
			sWait = oArgumente(iArgument) 
49.
			sWait = sWait * 1000 
50.
						 
51.
		ElseIf UCase(oArgumente(iArgument)) = "-M" Or _ 
52.
			UCase(oArgumente(iArgument)) = "/M" Or _ 
53.
			UCase(oArgumente(iArgument)) = "-Modus" Then 
54.
			'---- Betriebsart (sCommand / Stop) 
55.
			iArgument = iArgument + 1 
56.
			sModus = oArgumente(iArgument) 
57.
		End If 
58.
		 
59.
		iArgument = iArgument +1 
60.
	Loop Until iArgument >= oArgumente.Count 
61.
End If 
62.
 
63.
If sDatei = "" Or sWait = "" Or sModus = "" Then 
64.
	' Es wurde kein Argument übergeben 
65.
	zHeader copyRight,sZeichen 
66.
	WScript.Echo("Es wurde kein oder falsche Parameter übergeben.") 
67.
	WScript.Echo(vbTab + "-d dateiname oder -datei dateiname: " & sDatei) 
68.
	WScript.Echo(vbTab + "-w zeit(in sekunden) oder -wait zeit(in sekunden): " & sWait) 
69.
	WScript.Echo(vbTab + "-m Betriebsart Start (START) oder Heruntrfahren (STOP) " & vbCrLf & vbTab &" von Computer: " & sModus) 
70.
	 
71.
Else 
72.
	If sDatei	<> "" And sWait <> "" And sModus <> "" Then 
73.
		Do While wol_ipadressenDatei.AtEndOfStream <> True 
74.
			iLfdNr = iLfdNr +1 
75.
			ipadressen = Split(wol_ipadressenDatei.ReadLine, ";") 
76.
			WScript.Echo("LfdNr.: " & iLfdNr & ", IP: " & ipadressen(0) & ", mac: " & ipadressen(1) & ", Hostname: " & ipadressen(2)) 
77.
			If sModus = "start" Then 
78.
				 		sCommand = "cmd\rw.exe /m:" & ipadressen(1) 
79.
				 		WshShell.Run(sCommand) 
80.
				 		WScript.Echo(sCommand) 
81.
				 		WScript.Sleep sWait 
82.
			ElseIf sModus = "stop" Then 
83.
				 		sCommand = "shutdown -s -f -t " & sWait & " -m \\" & ipadressen(0) 
84.
						WshShell.Run(sCommand) 
85.
				 		WScript.Echo(sCommand) 
86.
			End If 
87.
		Loop 
88.
	End If		 
89.
End If
aufbau der werte datei:

IP;MAC;Hostname
192.168.01.109;0012345C0CF1;ab-1
192.168.01.114;00567899015;ab-1
192.168.01.115;0012341e;ab-3
192.168.01.116;00199901d20b;ab-4

Hoffe das ist was für euch

Gruß Michael
Mitglied: aqui
23.12.2009 um 00:32 Uhr
Die ct hatte das auch in ihrer Ausgabe Heft 25 / 2009 , Seite 186
http://www.heise.de/ct/09/25/links/186.shtml
Bitte warten ..
Mitglied: micneu
23.12.2009 um 15:32 Uhr
der gleiche code?... kann nicht sein oder ....

Bitte warten ..
Mitglied: firewall68
11.06.2010 um 11:50 Uhr
Mhm nicht schlecht kann man den auch den hostnamen in deinem script verwenden ?
Das Problem bei der IP = Ich habe DHCP im Einsatz, alle 8 Tage neue zuordnung ;0(

Kann es sein das die Rechner nicht herunterfahren ? wenn das script auf einem W2008R2 Server ausgeführt wird ?
Auch das Shutdown über die normale CMD am Server lässt den Client (XP) nicht herunterfahren.
Bitte warten ..
Mitglied: micneu
29.06.2010 um 11:20 Uhr
ich setze es auf einem win xp ein.
wichtig ist das der benutzername z. b. administrator auf allen kisten das gleiche pw hat.
Bitte warten ..
Ähnliche Inhalte
Hardware
gelöst Neuer Router (12)

Frage von schicksal zum Thema Hardware ...

Windows 10
Danke Microsoft Gelddruckmaschine!!! Aktuell 1703 (16)

Erfahrungsbericht von bonnerjung zum Thema Windows 10 ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (21)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Hosting & Housing
CNAME auf FTP funkt nicht mehr (7)

Frage von Wintektiv zum Thema Hosting & Housing ...

Netzwerkmanagement
Suche eine Software für Cloudverwaltung (6)

Frage von tsunami zum Thema Netzwerkmanagement ...