on error resume next
RegPath = "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\VisualStudio\14.0\VC\Runtimes\x86\Version"
set ws=CreateObject("Wscript.Shell")
RegValue =ws.RegRead(RegPath)
if err.number=-2147024894 then
	msgbox "Not Found VC++ Runtime 2015(Ver14)£¬Please DownLoad",16,"Fail"
	Url="https://download.microsoft.com/download/9/3/F/93FCF1E7-E6A4-478B-96E7-D4B285925B00/vc_redist.x86.exe"
	ws.run Url
else
	if err.number = 0 then
		msgbox "Found " & RegValue,0,"Success"
	else
		msgbox "Error " & err.Description ,48,"Unknow " & err.number
	end if
end if
