Change Defualt Image Editor Program Globally

[stevo1565]

Anyone know how to asign the default image editor program via an ADM or Script ??

[stevo1565]

I think ive found one if anyone needs it :

 

Option Explicit

Dim objShell

 

Set objShell = WScript.CreateObject("Wscript.Shell")

 

' Change jpg extension

objShell.Run("cmd.exe /c assoc .jpg=jpegfile")

' Sets default icon in explorer

objShell.RegWrite "HKEY_CLASSES_ROOT\jpegfile\DefaultIcon\","shimgvw.dll,0"

 

' Change gif extension

objShell.Run("cmd.exe /c assoc .gif=giffile")

' Sets default icon in explorer

objShell.RegWrite "HKEY_CLASSES_ROOT\giffile\DefaultIcon\", "shimgvw.dll,0"

 

' Change png extension

objShell.Run("cmd.exe /c assoc .png=pngfile")

' Sets default icon in explorer

objShell.RegWrite "HKEY_CLASSES_ROOT\pngfile\DefaultIcon\", "shimgvw.dll,4"

 

' Change bmp extension

objShell.Run("cmd.exe /c assoc .bmp=Paint.Picture")

 

Set objShell=Nothing

 

steve