Jump to content

Hilfe für Skript gesucht: Warnung ausgeben wenn Pc länger als 9,5 h eingeschaltet ist


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

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

Link zu diesem Kommentar

"Suchen" ist ein gutes Stichwort... Warum macht das immer keiner, wo doch jeder Browser integrierte Search Engines hat? :confused:

https://www.google.de/search?q=group+policy+scheduled+task

Die ersten beiden Treffer... :thumb1:



Group Policy Preferences, und dort in den Systemsteuerungseinstellungen mußt Du suchen.

 

Wir wollten Suchmaschinen pushen, weißt Du noch? :rolleyes:

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...