VBscript to delete games

[viper888]

Kindly check this VBscript that i used in Win2000 server, It doesn't seem to work. What seems to be the problem? Can you help me?

dim strExcludedPC
 
ServerFileSave="\\S06-admin-06\User Area\Save\"
strComputer = "."
ctr=0
 
arExcludedPCs=Array("PC1", "PC2")
Set objNetwork = Wscript.CreateObject("Wscript.Network")
objComputerName = objNetwork.ComputerName
 
'===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("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colFiles = objWMIService.ExecQuery _
 ("SELECT * FROM CIM_DataFile WHERE " _
    & "FileName='bounce' AND Extension='exe' OR " _
    & "FileName='avseq1' AND Extension='dat' OR " _
    & "FileName='zagu' AND Extension='exe' OR " _
    & "FileName='zagu1' AND Extension='exe' OR " _
    & "FileName='zagu2' AND Extension='exe' OR " _
    & "FileName='zagu3' AND Extension='exe' OR " _
    & "FileName='MCFHuntsville' AND Extension='exe' OR " _
    & "FileName='picachu' AND Extension='exe' OR " _
    & "FileName='fight9' AND Extension='exe' OR " _
    & "FileName='unfolding' AND Extension='exe' OR " _
    & "FileName='wackywordsearch' AND Extension='exe' OR " _
    & "FileName='sudoku' AND Extension='exe' OR " _
    & "FileName='gridlock' AND Extension='exe' OR " _
    & "FileName='cubedelic' AND Extension='exe' OR " _
    & "FileName='magnetism' AND Extension='exe' OR " _
    & "FileName='plumber' AND Extension='exe' OR " _
    & "FileName='simon' AND Extension='exe' OR " _
    & "FileName='plumber2' AND Extension='exe' OR " _
    & "FileName='millionaire' AND Extension='exe' OR " _
    & "FileName='xraye' AND Extension='exe' OR " _
    & "FileName='Flash Games' AND Extension='exe' OR " _
    & "FileName='acad' AND Extension='exe' OR " _
    & "FileName='bou' AND Extension='exe' OR " _
    & "FileName='scrabout' AND Extension='exe' OR " _
    & "FileName='ttw' AND Extension='exe' OR " _
    & "FileName='texttwist' AND Extension='exe' OR " _
    & "FileName='hangaroo' AND Extension='exe' OR " _
    & "FileName='hangman' 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='bookworm' AND Extension='exe' OR " _
    & "FileName='BookwormAdventures' AND Extension='exe' OR " _
    & "FileName='BookWorm Adventures Deluxe From GameHouse By TFT-TEAM' AND Extension='exe' OR " _
    & "FileName='pyramid' AND Extension='exe' OR " _
    & "FileName='dynomite' AND Extension='exe' OR " _
    & "FileName='riveriqgame' AND Extension='exe' OR " _
    & "FileName='ra2' AND Extension='exe' OR " _
    & "FileName='game' AND Extension='exe' OR " _
    & "FileName='collapse' AND Extension='exe' OR " _
    & "FileName='arcanoid' AND Extension='exe' OR " _
    & "FileName='ptanks' AND Extension='exe' OR " _
    & "FileName='feedingfrenzy' AND Extension='exe' OR " _
    & "FileName='feedingfrenzy' AND Extension='zip' OR " _
    & "FileName='scrabble' AND Extension='exe' OR " _
    & "FileName='pool' AND Extension='exe' OR " _
    & "FileName='blocks' AND Extension='exe' OR " _
    & "FileName='allout' AND Extension='exe' OR " _
    & "FileName='winamp' AND Extension='exe' OR " _
    & "FileName='milyonaryo' AND Extension='exe' OR " _
    & "FileName='tumblebugs' AND Extension='exe' OR " _
    & "FileName='bob' AND Extension='exe' OR " _
    & "FileName='bob' AND Extension='rwg' OR " _
    & "FileName='MysteryCaseFiles' AND Extension='rwg' OR " _
    & "FileName='PrimeSuspects' 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.UserName
mySaveFile="C:\" & objComputerName & ".txt"
 
Set fs = CreateObject("Scripting.FileSystemObject")
 
'===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(ServerFileSave & objComputerName & ".txt") then
     Set myScriptFile = fs.OpenTextFile(mySaveFile, 8, True)
else
     Set myScriptFile = fs.CreateTextFile(mySaveFile, True)
end if
 
 myScriptFile.WriteLine("-----------------------------------------------------------")
 myScriptFile.WriteLine("The Network Administrator")
 myScriptFile.WriteLine("Games and music files found at " & objComputerName & "@" & objUserName)
 myScriptFile.WriteLine("Date: " & date() & "    Time: " & Time())
 myScriptFile.WriteLine("===========================================================")
 myScriptFile.WriteLine("NOTE: The following files are prohibited from our network")
 myScriptFile.WriteLine("      and will be deleted automatically:")
 myScriptFile.WriteLine("")
 
 
'===Delete the files found===
For Each objFile in colFiles
 objFile.Delete
 myScriptFile.WriteLine(objFile.Name)
 ctr=ctr+1
Next
 
   myScriptFile.WriteLine("")
   myScriptFile.Close
 
'===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.CreateObject("WScript.Shell")
WshShell.Run mySaveFile
 
 
'    & "FileName='sol' AND Extension='lnk' OR " _
'    & "FileName='freecell' AND Extension='lnk' OR " _
'    & "FileName='winmine' AND Extension='lnk' OR " _
'    & "FileName='msheart' AND Extension='lnk' OR " _
'    & "FileName='pinball' AND Extension='lnk' OR " _
 
 
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CheckTrend()
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
    Set colFiles2 = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE FileName='lpt$vpn'")
 
    '===Check if files found===
    For Each objFile in colFiles2
       ctr=ctr+1
    Next
 
    '===Quit if no files found===
    if ctr=0 then
     myScriptFile.WriteLine("No TrendMicro virus pattern found!!!")
    end if
 
    Dim fso, f
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    '===Write files found===
    For Each objFile in colFiles2
     myScriptFile.WriteLine(objFile.Name)
     Set f = fso.GetFile(objFile.Name)
     myScriptFile.WriteLine("   date created: " & f.DateCreated)
     myScriptFile.WriteLine("")
     ctr=ctr+1
    Next
 
End Function

[bartonc]

For software development, you'll want to post in the Visual Basic Forum, and please use [code] tags, as described in out Posting Guidelines. Thank you.

[Cyberdyne]

For software development, you'll want to post in the Visual Basic Forum, and please use [code] tags, as described in out Posting Guidelines. Thank you.

imagine if somebody sends this in an e-mail attachment and the person on the other side executes it.

Cyber

[bartonc]

imagine if somebody sends this in an e-mail attachment and the person on the other side executes it.

Cyber

Huh??? My post or viper888's? I don't get it either way.

[epots9]

imagine if somebody sends this in an e-mail attachment and the person on the other side executes it.

Cyber

It'll clean out the computer of any files that are media related and game exe's...but its just deleting the exe but the registry keys still are there and that can cause problems.