Scripting

Hi

I'm Looking for somehelp with a VBscript.

My Scenario:-

We have some 500 machines on which users have a folder {ex: game} which has sub folders and files in it. I'm looking for script which will search for Executable game.exe in the 'game' folder and if located delete the "game" folder and subfolders and files in it.

so the problem is this folder is not in a fixed location. I mean it can be any where in the C drive and also the name of the 'game' folder is different on some machines.

I have found a script to search for this game.exe and delete if found but i want to delete the entire directory of game.exe

strComputer = "."
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
find_file "game","exe"
Function find_file(filename, extension)
Set colItems = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND FileName='" & filename & "' AND Extension='" & extension & "'",,48)
For Each objItem in colItems
WScript.Echo "Found " & objItem.Name & " in " & objItem.Drive & objItem.Path
objItem.Delete
Next
End Function

Any help is much appreciated and thank you for your time.

Thanks