[Osiris]

I created a script .VBS to remove Zango and Shopping Report. It first kills the processes I have in the applist, then deletes files, then subfolders up to the main folder. It works great but to delete Zango, I need to run it twice. It deletes some files but not all untill the next round. Any ideas?

appList = "iexplore.exe,Weather.exe,ZangoSA.exe,OEAddon. exe"
For Each app In Split(appList, ",")
Set objProcs=GetObject("winmgmts:\\.\root\cimv2").Exec Query("select * from Win32_Process where Name='" & app & "'")
For Each process In objProcs
process.Terminate
Next
Next

on error resume next
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\arrow.ico")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\CntntCntr.dll")


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\copyright.txt")


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\CoreSrv.dll")


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\HostIE.dll")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\HostOE.dll")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\HostOL.dll")


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\link.ico")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\OEAddOn.exe")


Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\Srv.exe")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\Toolbar.dll")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\Wallpaper.dll")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\Weather.exe")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\WeSkin.dll")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\ZangoSA")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\ZangoSADF.exe")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\ZangoSAHook.dll")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\ZangoUninstaller.exe")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\firefox\extensions\chrom e.manifest")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\firefox\extensions\insta ll.rdf")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\firefox\extensions\compo nents\npclntax.xpt")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\Zango\bin\10.3.75.0\firefox\extensions\plugi ns\npclntax_ZangoSA.dll")

Dim FSO, Folder
set FSO=CreateObject("Scripting.FileSystemObject")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\ShoppingReport\Uninst.exe")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Program Files\ShoppingReport\Bin\2.5.0\ShoppingReport.dll" )

Folder="C:\Program Files\ShoppingReport\Bin"
FSO.DeleteFolder(Folder)

Folder="C:\Program Files\ShoppingReport"
FSO.DeleteFolder(Folder)
Folder="C:\Program Files\Zango\bin\10.3.75.0"
FSO.DeleteFolder(Folder)
Folder="C:\Program Files\Zango\bin"
FSO.DeleteFolder(Folder)
Folder="C:\Program Files\Zango"
FSO.DeleteFolder(Folder)
Folder="C:\Program Files\Zango\bin\10.3.75.0"
FSO.DeleteFolder(Folder)
Folder="C:\Program Files\Zango\bin"
FSO.DeleteFolder(Folder)
Folder="C:\Program Files\Zango"
FSO.DeleteFolder(Folder)

[office politics]

all the repeat lines of

Set objFSO = CreateObject("Scripting.FileSystemObject")

are unnecessary. once you set it, it remains until you set to something else.



i would comment out on error resume next and run the script. my guess is that it would error out saying something like file locked. if you fix this, you prolly won't have to do two passes.


regardless, to make a second pass, you can create a for next loop

before the first delete, insert the following line

for i = 0 to 2


then after the last delete, insert the following line

next



this says im creating a variable i and setting it to zero. I'm going to run all the code until I find the "next" statement. Then, I'm going to increment the i variable and evaluate the expression i = 2. if true, i'll run the code after the "next" statement.


VBScript » Statements » For - DevGuru Quick Reference