script für reboot

[gismo 10]

Hallo

 

ich suche ein ganz einfaches Script um einen Server zu rebooten

Hintergrund möchte mit Telnet auf de n Server zugreifen und einfach rebbot eingeben und der Server startet neu egal ob etwas gespeichert werden muß oder etwas nicht reagiert.

 

Habe dazu was im Script center von technet gefunden aber leider funkts es nicht wenn irgentwas hängt

 

strComputer = "atl-dc-01"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Reboot()

Next

[aba 10]

Wenn Dir der Befehl Shutdown statt reboot auch recht wäre:

Shutdown.exe aus dem ResourceKit :-)

Geht sowohl lokal (wenn Du per telnet auf dem Rechner bist, als auch remote über das netzwerk.

shutdown.exe -[option]

-s Fährt den Computer herunter.

-r Fährt den Computer herunter und startet ihn neu.

-a Bricht das Herunterfahren des Systems ab.

-m \\Computer Remotecomputer zum Herunterfahren/Neustarten/Abbrechen.

-t xx Zeitlimit für das Herunterfahren, in xx Sekunden.

-c "Kommentar" Kommentar für das Herunterfahren (maximal 127 Zeichen).

-f Erzwingt das Schließen ausgeführter Anwendungen ohne Warnung.

[gismo 10]

habe es mal mit shutdown /l /r /f auf meiner Arbeitsstation probiert

und wenn ich Outlook offen habe und er die gelöschten Mails löschen soll bleibt er hängen und fährt nicht runter

[Anti-Gulu 10]

Eine zielmlich lustige Idee wäre einfach einen wichtigen Windows-Prozess abzuschießen. Dann wird Windows ja automatisch neu gebootet.

 

Hier ein Programm, mit dem man Prozesse beenden kann: http://www.freeware.de/software/Programm_KillProcess_2072.html

[thorgood 10]

Hallo gismo,

 

versuch es mit dem Script.

 

Du kannst EWX_REBOOT auch noch durch andere Constanten ersetzen

zum Abmelden, Herunterfahren und Herunterfahren mit Abschalten.

 

Wichtig ist das EWX_FORCE.

Es beendet bei mir nach max 20 Sec. auch jeden "hängenden" Prozess.

 

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_POWEROFF = 8
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For Each OpSys in OpSysSet
OpSys.Win32Shutdown [b]EWX_FORCE[/b] + EWX_REBOOT
Next

 

thorgood

[DaniFilth 10]

Hm, wozu hat ein Server Outlook offen???

[blub 115]

Hi,

Prinzipiell dasselbe wie bei Thorgood, nur in eine shutdown-Funktion gepackt

 

cu

blub

 

---

strComputer = "dc1" ' use "." for local machine

intShutdown = 4 ' force logoff

 

shutdown strComputer, intShutdown

 

sub shutdown(strComputer, intShutdown)

' General system shutdown/reboot function

'.

' strComputer - system to shut down; must support WMI.

' intShutdown - shutdown state, one of the following

' parameter values:

' 0 Log Off | 4 Forced Log Off

' 1 Shutdown | 5 Forced Shutdown

' 2 Reboot | 6 Forced Reboot

' 8 Power Off | 12 Forced Power Off

Dim objOperatingSystem, colOperatingSystems

Dim Operatingsystem

Set objOperatingSystem = GetObject("winmgmts:\\" _

& strComputer & "\root\cimv2")

Set colOperatingSystems = objOperatingSystem. _

execquery("SELECT Name From Win32_operatingsystem")

For each Operatingsystem in colOperatingSystems

Operatingsystem.Win32Shutdown(intShutdown)

Next

end sub

---

[melinko 10]

Bin echter newb was das skripten angeht....

 

wie für ich denn so ein skript dann aus? laufen diese hier genannten auch unter xp?

 

gruss

[Acidbitch 10]

moin,

Original geschrieben von melinko

wie für ich denn so ein skript dann aus?

Pack den Text des Scriptes in eine Textdatei und nenne sie z.B. "script.vbs". Dann Doppelklick und das Ding rennt.

 

laufen diese hier genannten auch unter xp?

Im Normalfall ja, wenn in einem Script Zusatztools aus z.B. dem Ressourcekit benötigt werden, müssen diese tools natürlich auch auf dem entsprechenden Rechner liegen....

 

Gruss