Shutdown script til Windows 10
Hej.Jeg har for nyligt opdateret til Windows 10 hvilket jeg er godt tilfreds med.
Det eneste der driller mig er et shutdown script jeg selv har lavet i AutoIt3. Scriptet kalder jeg i Group Policy. Scriptet er en slags komme/gå der kalder en macro i en bestemt excel fil. Macroen stempler bare shutdown tiden ned i arket. Den del virker fint. Problemet opstår hvis tiden er < 16:00. Der popper en promt op hvor jeg indtaster noget tekst.
I windows 7 virkede prompten fint og den pausede windows shutdown indtil jeg havde sluttet scriptet. Men i 10eren viser den shutdown billedet med det samme og jeg tror faktisk at den pauser. Men jeg kan bare ikke bruge prompten.
Kan noget hjælpe mig med scriptet eller alternativt give mig en bedre måde at gøre det på. Jeg vil gerne have at det selve windows shutdownen der trigger scriptet. Jeg vil ikke have et script der trigger shutdownen
AI3 kode:
#include <Excel.au3>
#include <MsgBoxConstants.au3>
Local $oExcel = _Excel_Open(True)
If @error Then Exit MsgBox(16, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $sWorkbook = "C:\Users\jmoe\Documents\timer\timer.xls"
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
$oExcel.run("Jmoe_Slutte_Dag")
Sleep(5000)
Exit
Macro:
Sub Jmoe_Slutte_Dag()
Dim Undskyldning As String
Dim Overtid As Variant
'Hvis sidste indtastede celle i kolonne B er dags dato => Skriv tid i kolonne 2 til højre(hvis tom); Ellers Exit
Range("B11").End(xlDown).Select
If ActiveCell.Value = Date Then
ActiveCell.Offset(0, 2).Select
If ActiveCell.Value > 0 Then
Application.OnTime Now, "SaveExit"
Else
ActiveCell.Value = Time
ActiveCell.Offset(0, 1).Select
If ActiveCell.Value < 0# Then
Undskyldning = InputBox("Indsæt undskyldning." & vbCrLf & vbCrLf & "Indsæt 'ti' for tælles ikke og derefter indtaste forventet diff tid", "UNDSKYLDNING")
ActiveCell.Offset(0, 3).Select
ActiveCell.Value = Undskyldning
If ActiveCell.Value = "ti" Then
Overtid = InputBox("Indsæt forventet over/undertid [t]", "Timer")
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Overtid
End If
End If
End If
Else
Application.OnTime Now, "SaveExit"
End If
Application.OnTime Now, "SaveExit"
End Sub
