VBscript to delete games

[viper888]

Can anyone debug this code? Please.... It doesn't seem to work.

[CODE=vb]dim strExcludedPC

ServerFileSave= "\\S06\User Area\Save\"
strComputer = "."
ctr=0

arExcludedPCs=A rray("S06-ADMIN-01","PC-001","PC-002")

Set objNetwork = Wscript.CreateO bject("Wscript. Network")
objComputerName = objNetwork.Comp uterName

'===Check for computers that are excluded, then quit script===
for Each strExcludedPC in arExcludedPCs
if objComputerName =strExcludedPC then
wscript.quit
end if
Next

Set objWMIService = GetObject("winm gmts:" _
& "{impersonation Level=impersona te}!\\" & strComputer & "\root\cimv 2")

Set colFiles = objWMIService.E xecQuery _
("SELECT * FROM CIM_DataFile WHERE " _
& "FileName='boun ce' AND Extension='exe' OR " _
& "FileName=' bou' AND Extension='exe' OR " _
& "FileName='scra bout' AND Extension='exe' OR " _
& "FileName=' ttw' AND Extension='exe' OR " _
& "FileName='text twist' AND Extension='exe' OR " _
& "FileName='hang aroo' AND Extension='exe' OR " _
& "FileName='hang man' AND Extension='exe' OR " _
& "FileName='same ' AND Extension='exe' OR " _
& "FileName='zuma ' AND Extension='exe' OR " _
& "FileName=' zuma deluxe' AND Extension='exe' OR " _
& "FileName=' zuma deluxe' AND Extension='zip' OR " _
& "FileName='book worm' AND Extension='exe' OR " _
& "FileName='pyra mid' AND Extension='exe' OR " _
& "FileName='dyno mite' AND Extension='exe' OR " _
& "FileName='rive riqgame' AND Extension='exe' OR " _
& "FileName=' ra2' AND Extension='exe' OR " _
& "FileName='game ' AND Extension='exe' OR " _
& "FileName='coll apse' AND Extension='exe' OR " _
& "FileName='arca noid' AND Extension='exe' OR " _
& "FileName='ptan ks' AND Extension='exe' OR " _
& "FileName='feed ingfrenzy' AND Extension='exe' OR " _
& "FileName='feed ingfrenzy' AND Extension='zip' OR " _
& "FileName='scra bble' AND Extension='exe' OR " _
& "FileName='pool ' AND Extension='exe' OR " _
& "FileName='bloc ks' AND Extension='exe' OR " _
& "FileName='allo ut' AND Extension='exe' OR " _
& "FileName='wina mp' AND Extension='exe' OR " _
& "FileName='mily onaryo' AND Extension='exe' OR " _
& "FileName='tumb lebugs' AND Extension='exe' OR " _
& "FileName=' bob' AND Extension='exe' OR " _
& "FileName=' bob' AND Extension='rwg' OR " _
& "FileName='Myst eryCaseFiles' AND Extension='rwg' OR " _
& "FileName='Prim eSuspects' AND Extension='rwg' OR " _
& "Extension='mp3 ' OR Extension='mp4' or Extension='mpeg ' OR Extension='wma' ")


'===Check if files found===
For Each objFile in colFiles
ctr=ctr+1
Next

'===Quit if no files found===
if ctr=0 then
WScript.Quit
end if

'===else write the text file=========== =============== =============== =============== ==========> games found
objUserName = objNetwork.User Name
mySaveFile="C:\ " & objComputerName & ".txt"

Set fs = CreateObject("S cripting.FileSy stemObject")

'===if server save folder does not exist, quit program===
if NOT fs.FolderExists (ServerFileSave ) then
'====== msgbox "folder does not exist"
WScript.Quit
end if

'===else determine if for appending or new create===
if fs.FileExists(S erverFileSave & objComputerName & ".txt") then
Set myScriptFile = fs.OpenTextFile (mySaveFile, 8, True)
else
Set myScriptFile = fs.CreateTextFi le(mySaveFile, True)
end if

myScriptFile.Wr iteLine("-----------------------------------------------------------")
myScriptFile.Wr iteLine("The Network Administrator")
myScriptFile.Wr iteLine("Games and music files found at " & objComputerName & "@" & objUserName)
myScriptFile.Wr iteLine("Date: " & date() & " Time: " & Time())
myScriptFile.Wr iteLine("====== =============== =============== =============== ========")
myScriptFile.Wr iteLine("NOTE: The following files are prohibited from our network")
myScriptFile.Wr iteLine(" and will be deleted automatically:" )
myScriptFile.Wr iteLine("")


'===Delete the files found===
For Each objFile in colFiles
objFile.Delete
myScriptFile.Wr iteLine(objFile .Name)
ctr=ctr+1
Next

myScriptFile.Wr iteLine("")
myScriptFile.Cl ose

'===Copy listing file to server===
fs.CopyFile mySaveFile, ServerFileSave
'fs.DeleteFile mySaveFile (do not delete save files)

'===if games found, open txt file as warning to the user===
Set WshShell = WScript.CreateO bject("WScript. Shell")
WshShell.Run mySaveFile


' & "FileName=' sol' AND Extension='lnk' OR " _
' & "FileName='free cell' AND Extension='lnk' OR " _
' & "FileName='winm ine' AND Extension='lnk' OR " _
' & "FileName='mshe art' AND Extension='lnk' OR " _
' & "FileName='pinb all' AND Extension='lnk' OR " _




''''''''''''''' ''''''''''''''' ''''''''''''''' ''''''''''''''' ''''''''
Function CheckTrend()

''''''''''''''' ''''''''''''''' ''''''''''''''' ''''''''''''''' ''''''''
strComputer = "."
Set objWMIService = GetObject("winm gmts:{impersona tionLevel=imper sonate}!\\" & strComputer & "\root\cimv 2")

Set colFiles2 = objWMIService.E xecQuery("SELEC T * FROM CIM_DataFile WHERE FileName='lpt$v pn'")

'===Check if files found===
For Each objFile in colFiles2
ctr=ctr+1
Next

'===Quit if no files found===
if ctr=0 then
myScriptFile.Wr iteLine("No TrendMicro virus pattern found!!!")
end if

Dim fso, f
Set fso = CreateObject("S cripting.FileSy stemObject")

'===Write files found===
For Each objFile in colFiles2
myScriptFile.Wr iteLine(objFile .Name)
Set f = fso.GetFile(obj File.Name)
myScriptFile.Wr iteLine(" date created: " & f.DateCreated)
myScriptFile.Wr iteLine("")
ctr=ctr+1
Next

End Function[/CODE]

[Killer42]

Can you give us some idea of what the problem is? Or to put it another way, what does "doesn't seem to work" mean?