istall programs that show the \Start Menu\Programs

[Coolsights2000]

Hi! All!

Don't know if this will work on all programs,,,

But I hope this helps others.............

In some programs that you silent install there is no switch for this...

So here goes....

When I went to install adshield the first time it pops up that bloody \Start Menu\Programs\Adshield shortcut folder while it is installing .. well while I was playing I noticed it didn't poup when I removed it and reinstalled it.. When I looked the folder was still there with nothing in it,,, so what I did was remove the folder and tried it again bingo there it was,,,

So what I do is create the folder with the shortcuts in it right before I do the fresh install bingo it is gone....

Here is the vbs script I used for this one

On Error Resume Next 
'Declare var's and objects
Dim WshS, fso, sysr, sysd, home, aup, cpf, pf, up, XPCD

Set WshS = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'Expand Environment
'Create const's to spare time and place
sysr = WshS.ExpandEnvironmentStrings("%SystemRoot%")
sysd = WshS.ExpandEnvironmentStrings("%Systemdrive%")
home = WshS.ExpandEnvironmentStrings("%Homepath%")
aup = WshS.ExpandEnvironmentStrings("%AllUsersProfile%")
cpf = WshS.ExpandEnvironmentStrings("%CommonProgramfiles%")
pf = WshS.ExpandEnvironmentStrings("%Programfiles%")
up = WshS.ExpandEnvironmentStrings("%UserProfile%")
XPCD = WshS.ExpandEnvironmentStrings("%XPCD%")

fso.CopyFolder XPCD & "\Adshield\Programs\AdShield", aup & "\Start Menu\Programs\AdShield" , true

This folder has the shortcuts in it

XPCD & "\Adshield\Programs\AdShield"

Enjoy Mac!