Terminalserver - automatische Abmeldung aller Benutzer innerhalb eines gesetzten Zeitfensters

varStartzeit = Now()
intStartzeitTag = Weekday(varStartzeit,2) 'Die "2" definiert Montag mit seiner Tagesnummer als Wochenbeginn. Dadurch bekommt "Montag" die Tagenummer "1". Standard wäre Sonntag = 1.  
varStartzeitZeit = TimeValue(varStartzeit)
intZielzeittag = 7 'Sonntag  
intTagesdifferenz = intZielzeittag - intStartzeitTag
varZielzeitBasisZeit = TimeValue("02:00:00")  
varWartungsfensterBeginn = TimeValue("06:00:00")  
varWartungsfensterEnde = TimeValue("12:00:00")  

'*** Falls wir uns im gesetzten Wartungsfenster (Zielzeittag + Wartungsfensterbeginn + Wartungsfensterende) befinden, erfolgt automatische Abmeldung  
If intStartzeitTag = intZielzeittag Then
	If Time() > varWartungsfensterBeginn AND Time() < varWartungsfensterEnde THEN
		Dim strMsg
		strMsg = ""  
		MsgBox Msg, vbExclamation or vbOKOnly + 4096, "Automatische Abmeldung wegen laufender Wartung!"  
	End If
End If

'*** Zufällige Minuten ***  
'Diese werden auf die Zielbasiszeit draufgerechnet, damit die abzumeldenden Sessions nicht zeitgleich abgemeldet werden.  
Dim max,min
max=120
min=1
Randomize
intZufallMinuten = (Int((max-min+1)*Rnd+min))

'*** Errechneter Abmeldezeitpunkt  
varZielzeitreal = DateAdd("n",intZufallMinuten,varZielzeitBasisZeit)  

'*** Errechnetes Abmeldedatum  
If intTagesdifferenz = 0 then 'Falls eine Sitzung am Tag mit derselben Tagesnummer gestartet wird, an der eigentlich Sitzungen abgemeldet werden, werden 7 Tage draufgerechnet.  
	varZielDatum = DateValue(DateAdd("d",7,varStartzeit))  
	else
		If intTagesdifferenz < 0 then
			varZieldatum = DateValue(DateAdd("d", 7 + intTagesdifferenz,varStartzeit))  
			Else
				varZielDatum = DateValue(DateAdd("d",intTagesdifferenz,varStartzeit))  
		End If
End If

'*** absoluter errechneter Abmeldezeitpunkt aus Datum und Uhrzeit  
varEffectiveDate = CDate(varZielDatum & " " & varZielzeitreal)  

'*** Wartezeit in Millisekunden  
varWaittime = DateDiff("s",varStartzeit,varEffectiveDate) * 1000  

'Ausnahmebehandlung, wenn negativer Wert errechnet wird. Das sollte nicht mehr passieren. Ist oben abgefangen.  
If varWaittime <= 0 Then
	WScript.Quit
End If

Dim Msg
 Msg = "Achtung!" & vbcr & "" & vbcr & "Beachten Sie bitte, dass eine automatische Abmeldung Ihrer Sitzung eingereiht wurde." & vbcr & "" & vbcr & "Da sowohl automatische Windows- als auch manuelle Updates eingespielt werden können, ist es wichtig, dass kein Benutzer an den Terminalservern angemeldet bleibt," & vbcr & "falls diese neustarten. Dies kann zu Schäden an den Userprofile-Disks führen, die Ihre persönlichen Einstellungen und Dateien enthalten." & vbcr & "" & vbcr & "Dies versuche ich zu verhindern, indem ich Ihre aktuelle Sitzung zum Zeitpunkt" & vbcr & "" & vbcr & varEffectiveDate & vbcr & "" & vbcr &  "abmelden werde." & vbcr & "" & vbcr & "LASSEN SIE BITTE ZU OBIGEM ZEITPUNKT KEINE DATEIEN OFFEN UND/ODER UNGESPEICHERT! ICH KANN DARAUF KEINE RÜCKSICHT NEHMEN!" & vbcr & "" & vbcr & "Vielen Dank für Ihr Verständnis!"  
MsgBox Msg, vbExclamation or vbOKOnly + 4096, "Automatische Abmeldung Ihrer Sitzung..."  

'Dynamische Pause, bis Zielzeitpunkt erreicht ist. Durch obige Berechnungen wird ein positiver Wert in Millisekunden ermittelt, der hier runtergezählt wird.  
Wscript.Sleep varWaittime

Set WshShell = WScript.CreateObject("WScript.Shell")  
WshShell.Run "C:\windows\system32\shutdown.exe /l /f", 0, false  
Wscript.Quit