This video explains you how to keep your Microsoft Teams status Available
all day without showing Away status every five minutes.
-Copy the below code to notepad ans save it as test.vbs and open it
set wsc = CreateObject("WScript.Shell")
Do
WScript.Sleep(4*60*1000)
wsc.SendKeys("{F13}")
Loop