Dim Path
Dim sName
Dim ccIDL
Dim IDLFile
Dim IDLIncPath
Dim WshShell
Dim WshScriptExec 
Dim ExecCmd 
Dim StdOut


set WshShell = WScript.CreateObject("WScript.Shell")

if WshShell is Nothing then
	msgbox "Can't Create Shell Object"
end if

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

ccIDL=Path & "MozTools\xpidl.exe"
IDLFile= "IDLFile\nsIScolPluginInstance.idl"
IDLincPath=Path & "IdlFile"

ExecCmd=ccIDL & " -m header -I """ & IDLIncPath & """ -o ""nsIScolPluginInstance"" " & IDLFile
'ExecCmd=ccIDL & " -m header -o """ & Path & "nsIScolPluginInstance"" " & IDLFile
set WshScriptExec = WshShell.Exec(ExecCmd)

Stdout=WshScriptExec.stdout.ReadAll()

if Stdout<>"" then
	Msgbox StdOut 
end if

set WshScriptExec = WshShell.Exec(ccIDL & " -m typelib -I ""IdlFile"" -o ""NPScol"" " & IDLFile)

Stdout=WshScriptExec.stdout.ReadAll()

if Stdout<>"" then
	Msgbox StdOut 
end if