Hallo liebe Community,
wie der Betreff erahnen lässt benötige ich ein Skript, welches nach 9,5 h ein Pop-Up ausgibt, welches dem User die Einschaltzeit ausgibt und ihn warnt, dass maximal 10 Stunden zulässig sind.
Hintergrund ist der, dass die gesetzliche maximale Arbeitszeit 10 Stunden beträgt.
Was vernächlässigt werden kann ist, wenn Rechner über Nacht nicht runtergefahren werden. Wir haben einen Windows 2008 Domain mit Windows 7 Pro Clients.
Nachfolgendes VB-Skript gibt mir erwartungsgemäß ein Popup aus mit der SystemupTime und der LastBootUpTime.
(Quelle: https://groups.google.com/forum/#!topic/de.comp.os.ms-windows.misc/-iDiysVrUBE):
strComputer = "." ' Local computer
set objWMIDateTime = CreateObject("WbemScripting.SWbemDateTime")
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
for each objOS in colOS
objWMIDateTime.Value = objOS.LastBootUpTime
Wscript.Echo "Last Boot Up Time: " & objWMIDateTime.GetVarDate & vbcrlf & _
"System Up Time: " & TimeSpan(objWMIDateTime.GetVarDate,Now) & _
" (hh:mm:ss)"
next
Function TimeSpan(dt1, dt2)
' Function to display the difference between
' 2 dates in hh:mm:ss format
If (isDate(dt1) And IsDate(dt2)) = false Then
TimeSpan = "00:00:00"
Exit Function
End If
seconds = Abs(DateDiff("S", dt1, dt2))
minutes = seconds \ 60
hours = minutes \ 60
minutes = minutes mod 60
seconds = seconds mod 60
if len(hours) = 1 then hours = "0" & hours
TimeSpan = hours & ":" & _
RIGHT("00" & minutes, 2) & ":" & _
RIGHT("00" & seconds, 2)
End Function
Okay, soweit so gut.
Wie bekomme ich es nun hin, dass dieses Fenster nach spätestens 10 STunden erscheint, besser noch vorher.
Könnt Ihr mir hier helfen?
Danke im voraus!
mfg irmi