www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Anfrage an den Fachmann
Autor:  HenriFranke
E-mail:  Antworten bitte nur in das Forum!
Datum:  10.03.2005 14:02:08
Subject:  Anfrage an den Fachmann
Bezug zum Buch: 
Message:  Hallo,
folgende Situation, meine Tochter hat im Pc eine TV-Karte.
damit der Rechner nicht die ganze Nacht läuft habe ich folgendes Script geschrieben

'Autoherunterfahren
'Tag und Zeitabfrage



dim heute: heute=date
dim var: var=time
dim wert:wert=(var>="22:50" or var<="06:00")
Function shutdown

computer = "."
reboot = false

Set objWMIService = GetObject("winmgmts:" &"{impersonationLevel=impersonate,(Shutdown)}!\\" &computer &"\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery ("Select * FROM Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
     if reboot then
          objOperatingSystem.reboot()
     Else
          objOperatingSystem.Shutdown()
     End if
Next
End Function

if weekday (heute)=vbsunday and wert=true then WScript.Echo("Gute Nacht") & shutdown
if weekday (heute)=vbmonday and wert=true then WScript.Echo("Gute Nacht") & shutdown
if weekday (heute)=vbtuesday and wert=true then WScript.Echo("Gute Nacht") & shutdown
if weekday (heute)=vbwednesday and wert=true then WScript.Echo("Gute Nacht") & shutdown
if weekday (heute)=vbthursday and wert=true then WScript.Echo("Gute Nacht") & shutdown
if weekday (heute)=vbfriday and wert=true then wscript.echo("Glück gehabt, Heute ist Freitag!")
if weekday (heute)=vbsaturday and wert=true then wscript.echo("Glück gehabt, Heute ist Samstag!")

das Script steht im Autostart und wird als geplanter Task ausgeführt.
Ich suche nun nach einer möglichkeit für Freitag und Samstag das de Rechner heruntergefahren wird wenn nach nach einer einstellbaren Zeit eine msg-box oder was auch immer nicht bestädigt wird.

vielen Dank schon mal
mfg

Henri Franke

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Anfrage an den Fachmann von HenriFranke  am 10.3.2005 2:02:08 PM
 Re: Anfrage an den Fachmann von HenriFranke  am 20.3.2005 6:08:19 PM
 Re: Anfrage an den Fachmann von Dr. Holger Schwichtenberg  am 20.3.2005 1:28:46 PM
 Re: Anfrage an den Fachmann von Holger Schwichtenberg  am 17.3.2005 3:31:22 PM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019