VBScript判断客户端是否需要下载控件
<script language="vbscript">
sub windo(ip,port,loginname,pass,contact,initiator)
Dim WebSetupObj2
On Error Resume Next
set WebSetupObj2=CreateObject("WebStarter.WebEngine2")
if WebSetupObj2 is nothing then
Dim WebSetupObj
On Error Resume Next
set WebSetupObj = CreateObject("WebStarter.WebEngine")
if WebSetupObj is nothing then
if MsgBox("本地没有安装客户端，点击Ok后进行自动下载！",vbYesNo,"8分钟视频")=vbYes then
window.open("要下载的程序所在的地址及程序名称" )
end if
else
if MsgBox("客户端有重大更改，要继续必须重新安装客户端，是否下载安装？",vbYesNo,"8分钟视频")=vbYes then
window.open("要下载的程序所在的地址及程序名称" )
end if
end if
set WebSetupObj = nothing
else
WebSetupObj2.AddUpdateParam "服务器IP","端口","/messenger/"
WebSetupObj2.UpdateFileVersion "VideoChat.exe","1.0.0.20"
WebSetupObj2.UpdateFileVersion "a.wav","NOVER"
if WebSetupObj2.StartUpdate then
WebSetupObj2.AddServerParam ip,port
WebSetupObj2.AddUserParam loginname,pass,contact,initiator
WebSetupObj2.StartExe "VideoChat.exe"
else
if MsgBox("升级程序失败，点击OK后重新下载！",vbYesNo,"8分钟视频")=vbYes then
window.open("要下载的程序所在的地址及程序名称" )
end if
end if
end if
set WebSetupObj2=nothing
end sub
</script>
