Vista - script to change file type icon

Hello everyone, Here is what I am trying to do. I have deployed powerpoint
from thinapp through my organization. only problem is it does not show the
ppt icon. is there a script or batch file that will allow me to set the icon
for the file ?

eg can do this manually but will take about a week with all the computers
and user profiles.
open up a folder, tools, folder options, file types, ppt, advanced, change
icon
is how I have done it to verify the icon file works.

here is the structure.
program installes to c:\documents and settings\%username%\application
data\Microsoft Power Point (VMware ThinApp)\
icon is also in that location as pptico.exe

please help.

I don't really understand what you're doing.
You've got something that's called "ThinApp"
and it's a Powerpoint replacement? If what you
need is this....then you can do it in the Registry. HKCR\.ppt default
value will point to a file type name. On my system
that's HKCR\OpenOffice.org.ppt. The file type name
depends on what program (if any) is the default for
that file type.
If I then look up the HKCR\OpenOffice.org.ppt\DefaultIcon\
default value I find the path of the file plus the icon number
for the default icon.
So in your case that would be something like:

c:\documents and settings\Louie\application
data\Microsoft Power Point (VMware ThinApp)\
pptico.exe,1

Presumably your "ThinApp" has registered the .ppt
extension properly and you'll only need to adjust
the DefaultIcon path.
Does that all make sense?

icon

thinapp is a application virtualization program. I virtualized PowerPoint,
to push it out to certain users. the only problem is when I added the office
2007 compatibity pack to PowerPoint it killed the icons. I found out I could
manually change them back but that would be a huge under taking.
"mayayana" <mayaXXyana@xxxxxx> wrote in message
news:%23l%23dZamEKHA.1340@xxxxxx

> thinapp is a application virtualization program. I virtualized PowerPoint,officecouldI see. See the sample below. I don't use MS Office
so I don't know the standard file type name that
Microsoft uses. I just guessed by using "PowerPointFile".
You should be able to check that in your own Registry.
(The default value under HKCR\.ppt\.)

The following is a sample that would create the
necessary keys and values. It's the same thing that
Folder Options -> File Types does. The File Types applet
is just a front-end for the Registry settings. The only
difference for you with this script is that file type name
that you need to substitute for "PowerPointFile", and
you'll also, of course, need to calculate the exact parent
folder path of pptico.exe (IcoPath) when the script runs.

Dim SH, IcoPath
Set SH = CreateObject("WScript.Shell")
SH.RegWrite "HKCR\.ppt\", "PowerPointFile"
SH.RegWrite "HKCR\PowerPointFile\", ""
SH.RegWrite "HKCR\PowerPointFile\DefaultIcon\", IcoPath & "\pptico.exe,
1"
Set SH = Nothing

thankyou that worked.
"mayayana" <mayaXXyana@xxxxxx> wrote in message
news:eSUexrqEKHA.1376@xxxxxx