'Function RegSet()
'*1) 1208 - Allow previously unused ActiveX controls to run without prompt - Enabled
'*2) 1209 - Allow Scriptlets - Enabled
'*3) 2000 - Binary and script behaviors - Enabled
'*4) 1001 - Download signed ActiveX controls - Enabled
'*5) 1004 - Download unsigned ActiveX controls - Enabled
'*6) 1201 - Initialize and script ActiveX not marked as safe for scripting - Enabled
'*7) 1200 - Run ActiveX controls and plug-ins - Enabled
'*8) 1405 - Script ActiveX controls marked safe for scripting - Enabled
'*9) 2201 - Automatic prompting for ActiveX controls - Disabled
'*10) 120A - Display video and animation on a web page that does not use external media player - Disabled
'*11) 120B - Only allow approved domains to use ActiveX without prompt - - Disabled


'*
'*NOTE: The values for the various settings can be found at
'*http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q182/5/69.asp&NoWebContent=1
'*

'dim sUrl

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."
Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" _
    & "ZoneMap\Domains\jonesmotor.com"
'sUrl = "http://www.jonesmotor.com/aws.html"

objReg.CreateKey HKEY_CURRENT_USER, strKeyPath

strValueName = "http"
dwValue = 2

objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue




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

WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1208", "0", "REG_DWORD"

WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1209", "0", "REG_DWORD"

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2000", "0", "REG_DWORD"

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1001", "0","REG_DWORD"

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004", "0", "REG_DWORD" 

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1201", "0", "REG_DWORD" 

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1200", "0", "REG_DWORD" 

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1405", "0", "REG_DWORD" 

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2201", "3", "REG_DWORD" 

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\120A", "3", "REG_DWORD" 

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\120B", "0", "REG_DWORD" 

'dim ObjIE

'Set ObjIE = CreateObject("InternetExplorer.Application")
'ObjIE.navigate(sUrl)
'ObjIE.document.focus()

'set ObjIE = nothing


'     Sets up Actiev X download

' Set your settings
    strFileURL = "http://www.jonesmotor.com/ActiveWebScan_4.cab"
    strHDLocation = "C:\ActiveWebScan_4.cab"

' Fetch the file
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start

Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing

objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if

'Option Explicit

'Set Dimension
DIM fso

'Set Object
Set fso = CreateObject("Scripting.FileSystemObject")

'Create Condition
If (fso.FileExists("C:\WINDOWS\Downloaded Program Files\ActiveWebScan.ocx")) Then
'Alert User
WScript.Echo("ActiveX Previously Installed")
WScript.Quit()
Else
'Alert User
'WshShell.Run("expand -r c:\ActiveWebScan_4.cab ""c:\WINDOWS\Downloaded Program Files""")
WshShell.Run("http://www.jonesmotor.com/aws.hta")
End If

'Exit Script





Set objXMLHTTP = Nothing

MsgBox "You Must Restart Your Browser",64,"Jones Motor Group"

WScript.Quit()