kill azure.vbs

Option Explicit
Dim objWMIService, objProcess, colProcess, fileSystemObject, shell
Dim strComputer, strList, folder, f
On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" _
  & strComputer & "\root\cimv2")

' This needs a LIMIT 1 and only kill the first one. Then the OERN isn't required.

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process where Name ='WaWorkerHost.exe' or Name ='DFService.exe' or Name ='csmonitor.exe'")

For Each objProcess in colProcess
	strList = strList & vbCr & objProcess.Name
	objProcess.Terminate
Next

Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
Set folder = fileSystemObject.GetFolder("C:\Users\stuartd\AppData\Local\dftmp\")

' delete all files in root folder
for each f in folder.Files
   On Error Resume Next
   name = f.name
   f.Delete True
   If Err Then
     WScript.Echo "Error deleting:" & Name & " - " & Err.Description
   Else
     WScript.Echo "Deleted:" & Name
   End If
   On Error GoTo 0
Next

' delete all subfolders and files
For Each f In folder.SubFolders
   On Error Resume Next
   name = f.name
   f.Delete True
   If Err Then
     WScript.Echo "Error deleting:" & Name & " - " & Err.Description
   Else
     WScript.Echo "Deleted:" & Name
   End If
   On Error GoTo 0
Next

Set folder = fileSystemObject.GetFolder("C:\Code\ApiAiChunker\VendorGraph_v3\VgAzDialogueService\csx\")

' delete all files in root folder
for each f in folder.Files
   On Error Resume Next
   name = f.name
   f.Delete True
   If Err Then
     WScript.Echo "Error deleting:" & Name & " - " & Err.Description
   Else
     WScript.Echo "Deleted:" & Name
   End If
   On Error GoTo 0
Next

' delete all subfolders and files
For Each f In folder.SubFolders
   On Error Resume Next
   name = f.name
   f.Delete True
   If Err Then
     WScript.Echo "Error deleting:" & Name & " - " & Err.Description
   Else
     WScript.Echo "Deleted:" & Name
   End If
   On Error GoTo 0
Next

Set shell = CreateObject("WScript.Shell")
shell.Run("""C:\Program Files (x86)\Microsoft SDKs\Azure\Storage Emulator\AzureStorageEmulator.exe"" clear all")
shell.Run("iisreset")

WScript.Quit