filmov
tv
Immer Online bei Microsoft Teams sein
![preview_player](https://i.ytimg.com/vi/8IXyjhpKZeU/maxresdefault.jpg)
Показать описание
Der Status in Microsoft Teams kann einen verrückt machen. Im Normalfall stellt sich dieser gemäß unserem Kalender und Aktivitäten um. Doch dabei kann es zu Problemen kommen und nicht immer reagiert das System so, wie wir uns es wünschen. Falls auch ihr das Problem habt das sich euer Status nach wenigen Minuten auf abwesend stellt, gibt es hier eine Möglichkeit das Problem zu beheben, hat aber Auswirkungen auf das gesamte System und nicht nur Teams. #ModernWorkplaceAkademie #Hashtags
WICHTIG: Ersetze im Skript die ### durch ein größer Zeichen (Shift + Taste daneben). YouTube erlaubt keine Spitzeklammer
Dim objShell, lngMinutes, boolValid
Set objShell = CreateObject("WScript.Shell")
lngMinutes = InputBox("How long you want to keep your system awake?" & Replace(Space(5), " ", vbNewLine) & "Enter minutes:", "Awake Duration") 'we are replacing 5 spaces with new lines
If lngMinutes = vbEmpty Then 'If the user opts to cancel the process
'Do nothing
Else
On Error Resume Next
Err.Clear
boolValid = False
lngMinutes = CLng(lngMinutes)
If Err.Number = 0 Then 'input is numeric
If lngMinutes ### 0 Then 'input is greater than zero
For i = 1 To lngMinutes
WScript.Sleep 60000 '60 seconds
objShell.SendKeys "{SCROLLLOCK 2}"
Next
boolValid = True
MsgBox "Forced awake time over. Back to normal routine.", vbOKOnly+vbInformation, "Task Completed"
End If
End If
On Error Goto 0
If boolValid = False Then
MsgBox "Incorrect input, script won't run" & vbNewLine & "You can only enter a numeric value greater than zero", vbOKOnly+vbCritical, "Task Failed"
End If
End If
Set objShell = Nothing
Wscript.Quit 0
▬▬▬▬▬▬ Abschnitte 🕓 ▬▬▬▬▬▬
0:00 abwesend Status Problem
1:07 Skript nutzen
2:18 Skript starten
3:29 Hinweis
4:08 Abspann
▬▬▬▬▬▬ Möchtest Du mehr erfahren ⁉️ ▬▬▬▬▬▬
▬▬▬▬▬▬ Newsfeed über 🚨 ▬▬▬▬▬▬
WICHTIG: Ersetze im Skript die ### durch ein größer Zeichen (Shift + Taste daneben). YouTube erlaubt keine Spitzeklammer
Dim objShell, lngMinutes, boolValid
Set objShell = CreateObject("WScript.Shell")
lngMinutes = InputBox("How long you want to keep your system awake?" & Replace(Space(5), " ", vbNewLine) & "Enter minutes:", "Awake Duration") 'we are replacing 5 spaces with new lines
If lngMinutes = vbEmpty Then 'If the user opts to cancel the process
'Do nothing
Else
On Error Resume Next
Err.Clear
boolValid = False
lngMinutes = CLng(lngMinutes)
If Err.Number = 0 Then 'input is numeric
If lngMinutes ### 0 Then 'input is greater than zero
For i = 1 To lngMinutes
WScript.Sleep 60000 '60 seconds
objShell.SendKeys "{SCROLLLOCK 2}"
Next
boolValid = True
MsgBox "Forced awake time over. Back to normal routine.", vbOKOnly+vbInformation, "Task Completed"
End If
End If
On Error Goto 0
If boolValid = False Then
MsgBox "Incorrect input, script won't run" & vbNewLine & "You can only enter a numeric value greater than zero", vbOKOnly+vbCritical, "Task Failed"
End If
End If
Set objShell = Nothing
Wscript.Quit 0
▬▬▬▬▬▬ Abschnitte 🕓 ▬▬▬▬▬▬
0:00 abwesend Status Problem
1:07 Skript nutzen
2:18 Skript starten
3:29 Hinweis
4:08 Abspann
▬▬▬▬▬▬ Möchtest Du mehr erfahren ⁉️ ▬▬▬▬▬▬
▬▬▬▬▬▬ Newsfeed über 🚨 ▬▬▬▬▬▬
Комментарии