'<job id="desktopshortcut">
'<script language="vbscript">


	' DOWNLOAD ICO FILE
	sSource = "http://pattentitle.com/images/misc/1.ico" 
	Set sh = CreateObject("WScript.Shell")
	evhomedrive = sh.ExpandEnvironmentStrings("%homedrive%")
	evhomepath = sh.ExpandEnvironmentStrings("%homepath%")
	sDest = evhomedrive & evhomepath & "\1.ico"
	sUser = "" 
	sPassword = "" 
	'---End user variables--- 
	'wsh.echo  sSource & vbNewLine & sDest 
	set oHTTP = CreateObject("Microsoft.XMLHTTP") 
	oHTTP.open "GET", sSource, False, sUser, sPassword 
	oHTTP.send 
	const adTypeBinary = 1 
	const adSaveCreateOverwrite = 2 
	set stream = createobject("adodb.stream") 
	stream.type = adTypeBinary 
	stream.mode = adModeReadWrite 
	stream.open 
	stream.write oHTTP.responseBody 
	stream.savetofile sDest, adSaveCreateOverwrite 
	stream.close 
	set oHTTP = nothing 
	set stream = nothing 
	'WScript.Echo "Done DOWNLOADING!" 



	Dim WshShell
	Dim strDesktop
	Dim oMyShortcut

	Set WshShell = CreateObject("Wscript.shell") 
	strDesktop = WshShell.SpecialFolders("Desktop") 

	Set oMyShortcut = WshShell.CreateShortcut(strDesktop + "\Pattent-Title-com.lnk") 
	oMyShortcut.WindowStyle = 4  '3=Maximized 7=Minimized  4=Normal 
	oMyShortcut.IconLocation = sDest 
	OMyShortcut.TargetPath = "http://www.pattentitle.com/"
	oMyShortCut.Save 

'</script>
'</job>