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

WakeOnLan Stapelverarbeitend

Mitglied: micneu

micneu (Level 2) - Jetzt verbinden

22.12.2009 um 22:03 Uhr, 5318 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 ..
Neue Wissensbeiträge
Router & Routing

Olle Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 5 StundenRouter & Routing1 Kommentar

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 18 StundenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 1 TagWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 1 TagMicrosoft Office5 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid15 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Windows 10
Windows 10 Startmenü-Einstellungen Systemweit festlegen
Frage von flotautWindows 1013 Kommentare

Guten Morgen liebe Admins, wir möchten bei uns am Lehrstuhl demnächst auf Windows 10 umsteigen. Wir installieren unsere PC's ...

LAN, WAN, Wireless
OpenVPN Client Fehlermeldungen
Frage von chris84LAN, WAN, Wireless12 Kommentare

Hallo Zusammen, wir nutzen seit kurzem einen neuen Router und den OpenVPN Client. Die VPN Verbindung klappt; allerdings kommen ...