On Error Resume Next 'Declare variables Dim WSHShell, p Dim GUID, InstallLocation 'Set the Windows Script Host Shell and assign values to variables Set WSHShell = WScript.CreateObject("WScript.Shell") GUID = "{2ef50289-0ea7-482e-a30b-4947a81e44cf}" InstallLocation = InputBox("Enter the path to the Trillian EXE file:","File Location","C:\Program Files\Trillian\") If InstallLocation <> "" Then If Right(InstallLocation,1) <> "\" Then InstallLocation = InstallLocation & "\" End If p = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\" WshShell.RegWrite P & GUID & "\ButtonText","Trillian" WshShell.RegWrite P & GUID & "\clsid","{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}" WshShell.RegWrite P & GUID & "\Default Visible","YES" WshShell.RegWrite P & GUID & "\Exec", InstallLocation & "Trillian" WshShell.RegWrite P & GUID & "\HotIcon",InstallLocation & "Trillian.exe,117" WshShell.RegWrite P & GUID & "\Icon",InstallLocation & "Trillian.exe,191" WshShell.RegWrite P & GUID & "\MenuText","Trillian" Set WshShell = Nothing MsgBox "Trillian has been added to Internet" & vbCR & " Explorer's Tools Menu and Toolbar",4096,"Finished!" Else MsgBox "Operation cancelled!", 4096, "User Cancelled!" End If