Purge the Microsoft Teams Profile

Sometimes we need to purge the Microsoft Teams profile to essentially ‘reset’ the Teams client. This could be for various reasons, such as the Outlook Teams Add-In not installing correctly or some other functionality not working such as breakout rooms.

Here is a simple VBScript can asks the user to close Teams/Outlook (and forces the closure if needs be) and purges the Teams profile.

Option Explicit
On Error Resume Next
dim svc : set svc=getobject("winmgmts:root\cimv2")
dim sQuery : sQuery="select * from win32_process where name='teams.exe' OR name='outlook.exe'"
dim wshShell : Set wshShell = Wscript.CreateObject("WScript.Shell")
dim appData : appData = wshShell.ExpandEnvironmentStrings("%APPDATA%")
dim teamsCache : teamsCache = appData & "\Microsoft\Teams"
'check specific processes are closed
Do
dim cproc : set cproc=svc.execquery(sQuery)
If cproc.count = 0 Then
Exit Do
End If
Msgbox "Please close Teams and Outlook.  When you have done this click OK.", 0,"Please Close Applications"
'Forcibly close
wshShell.Run "taskkill /F /IM teams.exe", 0, true
wshShell.Run "taskkill /F /IM outlook.exe", 0, true
WScript.Sleep 1000
Loop
'delete cache
wshShell.Run "cmd.exe /c RD /S /Q " & chr(34) & teamsCache & chr(34), 0, true
'recreate dir
wshShell.Run "cmd.exe /c MD " & chr(34) & teamsCache & chr(34), 0, true
Msgbox "Teams was reset successfully.  You can now launch Teams again.", 0,"Please Launch Teams"
Set svc = Nothing
Set wshShell = Nothing