Script - Desktop Shortcut, Default Homepage, Empty Temp Files

[Rubymoon]

Hello, I added this to my list of scripts this week, no problems with it

For those who are interrested and/or needs it.


_______________________________________________________

Set WSHShell = CreateObject("WScript.Shell")


' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DESKTOP SHORTCUT <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

SET oFSO = Wscript.CreateObject("Scripting.FileSystemObject")
strDsk = WshShell.SpecialFolders("Desktop")
strshortcut = strDsk & "\Tech Support Messanger.lnk"
If Not oFSO.FileExists(strshortcut) Then
SET oUrlLink = WshShell.CreateShortcut(strshortcut)
oUrlLink.TargetPath = "\\server\installer$\TechMail\TechMail.vbs"
oUrlLink.Save
End If


' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DEFAULT HOMEPAGE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Set WSHShell = WScript.CreateObject("WScript.Shell")

HomePG = "

http://www.google.ca"

WSHShell.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page", HomePG
WSHShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", HomePG


' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EMPTY TEMP FILES <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Dim tempiepath

tempiepath = "HKCU\Software\Microsoft\Windows\"
WSHShell.RegWrite tempiepath & "ShellNoRoam\MUICache\@inetcplc.dll,-4750","Empty Temporary Internet Files folder when browser is closed","REG_SZ"
WSHShell.RegWrite tempiepath & "CurrentVersion\Internet Settings\Cache\Persistent","0","REG_DWORD"


' ***************************** ADD-ONS ABOVE THIS LINE ****************************
' **********************************************************************************

Set WshShell = NOTHING
Set objFSO = NOTHING
Set HomePG = NOTHING
Set tempiepath = NOTHING

wscript.quit