Option Explicit
Dim WshShell, objFSO, SystemDrive, AllUsersStartMenuPath, AllUsersDesktopPath, DelVBSFile
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

SystemDrive = WshShell.ExpandEnvironmentStrings("%Systemdrive%")

AllUsersStartMenuPath = SystemDrive & "\Documents and Settings\All Users\Start Menu\"
AllUsersDesktopPath = SystemDrive & "\Documents and Settings\All Users\Desktop\"
DelVBSFile = SystemDrive & "\Documents and Settings\All Users\Start Menu\"

If objFSO.FileExists (AllUsersStartMenuPath & "\ScreenHunter 5.0 Free.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\ScreenHunter 5.0 Free.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\HP Director.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\HP Director.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\HP  Image Zone.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\HP  Image Zone.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\Microsoft Update.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Microsoft Update.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\Set Program Access and Defaults.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Set Program Access and Defaults.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\Windows Catalog.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Windows Catalog.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\Windows Update.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Windows Update.lnk"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\7-Zip") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\7-Zip"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Accessories") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Accessories"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Administrative Tools") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Administrative Tools"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Ashampoo") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Ashampoo"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\CCleaner") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\CCleaner"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Dia") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Dia"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Games") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Games"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\GIMP") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\GIMP"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\GTK+ Runtime Environment") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\GTK+ Runtime Environment"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\HP") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\HP"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\IrfanView") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\IrfanView"), True
End If


If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Microsoft Office") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Microsoft Office"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Nvu") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Nvu"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\PDFCreator") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\PDFCreator"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Picasa2") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Picasa2"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\QuickTime Alternative") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\QuickTime Alternative"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Real Alternative") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Real Alternative"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Swiff Point Player") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Swiff Point Player"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\TestGen") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\TestGen"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\Trend Micro Client-Server Security Agent") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\Trend Micro Client-Server Security Agent"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\The Learning Company") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\The Learning Company"), True
End If

If objFSO.FolderExists (AllUsersStartMenuPath & "\Programs\WebEx") Then
objFSO.DeleteFolder (AllUsersStartMenuPath & "\Programs\WebEx"), True
End If


If objFSO.FileExists (AllUsersStartMenuPath & "\Programs\Adobe Reader 8.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Programs\Adobe Reader 8.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\Programs\Apple Software Update.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Programs\Apple Software Update.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\Programs\Audacity.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Programs\Audacity.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\Programs\Inkscape.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Programs\Inkscape.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\Programs\I.R.I.S. OCR Registration.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Programs\I.R.I.S. OCR Registration.lnk"), True
End If

If objFSO.FileExists (AllUsersStartMenuPath & "\Programs\Windows Movie Maker.lnk") Then
objFSO.DeleteFile (AllUsersStartMenuPath & "\Programs\Windows Movie Maker.lnk"), True
End If

If objFSO.FileExists (AllUsersDesktopPath & "WebEx Player.lnk") Then
objFSO.DeleteFile (AllUsersDesktopPath & "WebEx Player.lnk"), True
End If


If objFSO.FileExists (AllUsersDesktopPath & "WebEx Recorder.lnk") Then
objFSO.DeleteFile (AllUsersDesktopPath & "WebEx Recorder.lnk"), True
End If