key_test.vbs

通达和信达OA 密钥认证模块 请先备份OA系统

	'插件引用
	Document.write("<OBJECT classid=clsid:D40EEC21-337A-45E5-82C7-430BADAF2D92 id=ET99 name=ET99 STYLE='LEFT: 0px; TOP: 0px' width=0 height=0></OBJECT>")

	'测试是否安装，安装过返回true
	function Check()	
		On Error Resume Next
		dim	Ts
			Ts = ET99.Test
			If Err Then 
				Check = false
			else
				Check = true
			End If
	End Function
	
	'用户已经安装客户端就自动启动，没有安装则下载
	If not Check() Then
		'没有安装Ukey驱动 
  	window.parent.document.form1.ready.value = ""
		window.parent.document.getElementById("sErr").innerHTML = "<a href='/inc/key/ukey_driver_10.exe' target='_blank'><font color='#0000CC'><b>安装驱动！</b></font></a>"
	Else
		Dim snID
		snID=ET99.GetSN
		
		Dim Digest
		ET99.RndData = window.parent.document.getElementById("RndData").value
		'MsgBox window.parent.document.getElementById("RndData").value
		Digest=ET99.MD5HMAC
		
		if snID="Error" or Digest="Error" then 
		  'Ukey错误
			window.parent.document.form1.ready.value = ""
			window.parent.document.getElementById("snID").innerHTML =  "<input type='hidden' name='snID' Value=''>"
			window.parent.document.getElementById("Digest").innerHTML =  "<input type='hidden' name='Client_Digest' Value=''>"
			window.parent.document.getElementById("sErr").innerHTML = "<font color='#cc0000'><b>插入UKEY！</b></font>"
		Else 
		  'Ukey正确
			window.parent.document.form1.ready.value = "1"
			window.parent.document.getElementById("snID").innerHTML =  "<input type='hidden' name='snID' Value='" & snID & "'>"
			window.parent.document.getElementById("Digest").innerHTML =  "<input type='hidden' name='Client_Digest' Value='" & Digest & "'>"
			window.parent.document.getElementById("sErr").innerHTML = "<font color='#00cc00'><b>找到UKEY！</b></font>"
		end if

	End If