DLL Register

  'On Error Resume Next

dim objRun,objCmd,quote,path,fname

msgbox"Hi Sh1"

quote=chr(34)

Set objRun = CreateObject("WScript.Shell")

msgbox"Hi Sh2"

'path=objRun.ExpandEnvironmentStrings("%SystemRoot%")

'shimgvw.dll

path="C:\"

msgbox"Hi Sh3"

fname=path & "\shimgvw.dll"

objCmd = "regsvr32 /u " & quote & fname & quote

msgbox"Hi Sh4"

    objRun.Run objCmd,True

Set objRun = Nothing 

Click here to get more VBS

Script for OS                                    Script for Registries                Script for Addin

Script for File Operations

Script for WindowsService