Sub OnLoaded
		ReadRegistry()
		setTimeOut "SubmitForm()", 3000
End Sub

Dim RegArray

Sub ReadRegistry()
	On Error Resume Next
	'MsgBox("Starting to Read")
	Set WshShell = CreateObject( "WScript.Shell" )
	Dim  OfficeArray, ValArray
	Dim RegVal, ErrMsg,SuccMsg, IncSetMsg
	Dim index
	Dim OfficeFound
	Set OfficeFound = False
	Set index = 0
	
	ValArray = Array("0","0","0","0","2","3","","1","3","")
	OfficeArray = Array("12.0","11.0","10.0","9.0")
	
						
	For Each str in RegArray
		
		RegVal =  WshShell.RegRead(str)
		If Err.number <> 0 Then
		'MsgBox Err.Description
			
			If InStr(str,"SOFTWARE\Microsoft\Office") > 0 Then
				Err.Clear
				Dim ver
				For Each ver in OfficeArray
					str = Replace(str,"10.0",ver)
					RegVal =  WshShell.RegRead(str)
					If Err.number <> 0 Then
						Err.Clear
					Else
						OfficeFound = True
						Exit For
					End If
				Next
				
				If OfficeFound = False Then
					ErrMsg = ErrMsg & "(new) Unable to Locate Registry Key - " & RegArray(index)
				Else
					SuccMsg = SuccMsg & "(new) Client Office Version " & GetOfficeVersion(ver)
					If ValArray(index) <> Trim(RegVal) Then
						IncSetMsg = IncSetMsg & "(new) Incorrect Registry Setting - " & str & " Value Should be - " & ValArray(index)  & ", Found - " &  RegVal
					End If
				End If
				
			Else
				If err.number = 2147024894 Or err.number = -2147024894 then
					ErrMsg = ErrMsg & "(new) Unable to Locate Registry Key - " & str
				Else
					ErrMsg = ErrMsg & "(new) " &  Err.Description & err.number
				End If
				Err.Clear
			End If
			
			
			
		Else
			If ValArray(index) <> Trim(RegVal) Then
				IncSetMsg = IncSetMsg & "(new) Incorrect Registry Setting - " & str & " Value Should be - " & ValArray(index)  & ", Found - " &  RegVal
			End If
		End If
		
		index = index + 1
		
	Next
	
	'MsgBox ErrMsg
	'MsgBox SuccMsg
	'MsgBox IncSetMsg
	
	Document.getElementById("hdnRegErrmsg").value = ErrMsg
	Document.getElementById("hdnRegIncSetMsg").value = IncSetMsg
	Document.getElementById("hdnRegSuccMsg").value = SuccMsg
	
	On Error GoTo 0
	
	
End Sub

Sub SubmitForm()
	Document.getElementById("spnConfigTest").style.visibility = "visible"
	Document.getElementById("imgGreenSlider").style.display = "none"
	Document.getElementById("lblConnecting").style.display = "none"
	Form1.submit()
End Sub
	
Function GetOfficeVersion(num)
	Select Case num
	Case "12.0" 
		GetOfficeVersion = "2007"
	Case num = "11.0" 
		GetOfficeVersion = "2003"
	Case num = "10.0" 
		GetOfficeVersion = "2002 XP"
	Case num = "9.0" 
		OfficeArray = "2000"
	End Select
End Function