Code:
Function Vensupp($model,$setag) 
	Select 
	Case InStr($vendor,'dell')
		$url = 'http://support.euro.dell.com/uk/en/index.asp?referrer=%2Fuk%2Fen%2Fhome%2Easp&segment=BSD'+Join($setag,"+") 
	Case InStr($vendor,'compaq')
		$url = 'http://productfinder.support.hp.com/tps/ProductFinder?h_query='+Join(Split($model),'+') 
	Case InStr($vendor,'Hewlett-Packard')
		$url = 'http://productfinder.support.hp.com/tps/ProductFinder?h_query='+Join(Split($model),'+') 
	Case "True"
		$url = '' 
	EndSelect 
	If $url 
; Create Internet Explorer object
		$oIE = CreateObject("InternetExplorer.Application")
		$oIE.Visible=1
		$oIE.Navigate($url)
; Wait for page to stop loading...
		While $oIE.busy AND $oIE.readystate <> 4 AND @ERROR = 0 Loop
	EndIf 
EndFunction