Dim Path
Dim NSPath
Dim sName
DIM FSO
Dim WshShell
Dim WshScriptExec 
Dim ExecCmd 
Dim StdOut

'*************************************************
' Netscape 6 target Path
NSPath="C:\Program Files\Netscape\Netscape 6.1\"

set FSO=CreateObject("Scripting.FileSystemObject")
set WshShell = WScript.CreateObject("WScript.Shell")

' Find Path
sName =wscript.scriptfullname
Path = left(sName,instrrev(sName,"\"))

'Copy XPT file
call FSO.CopyFile(Path & "NPScol.xpt",NSPath & "Components\npscol.xpt")

'Copy Bin file
call FSO.CopyFile(Path & "Debug\NPScol.dll",NSPath & "Components\npscol.dll")

'Lauch Netscape 6.1
WshShell.Exec(NSPath & "netscp6.exe")