vbs中怎么获取radmin注册表的信息，相信很多没有经验的人对此束手无策，为此本文总结了问题出现的原因和解决方法，通过这篇文章希望你能解决这个问题。
<% '========================================Main====================================== SetWSH=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"TheResultofRadminHash" Response.write"<br><br>" Response.writeParameter&":" '===========ReadPassWord========= IfIsArray(ParameterArray)Then Fori=0ToUBound(ParameterArray) IfLen(hex(ParameterArray(i)))=1Then strObj=strObj&"0"&CStr(Hex(ParameterArray(i))) Else strObj=strObj&Hex(ParameterArray(i)) EndIf Next response.writeLcase(strobj) Else response.write"Error!Can'tRead!" EndIf Response.write"<br><br>" '===========ReadPort========= PortArray=WSH.REGREAD(RadminPath&Port) IfIsArray(PortArray)Then Response.writePort&":" Response.writehextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0)))) Else Response.write"Error!Can'tRead!" EndIf '=============hexTOint========== Functionhextointer(strin) Dimi,j,k,result result=0 Fori=1ToLen(strin) IfMid(strin,i,1)="f"OrMid(strin,i,1)="F"Then j=15 EndIf IfMid(strin,i,1)="e"OrMid(strin,i,1)="E"Then j=14 EndIf IfMid(strin,i,1)="d"OrMid(strin,i,1)="D"Then j=13 EndIf IfMid(strin,i,1)="c"OrMid(strin,i,1)="C"Then j=12 EndIf IfMid(strin,i,1)="b"OrMid(strin,i,1)="B"Then j=11 EndIf IfMid(strin,i,1)="a"OrMid(strin,i,1)="A"Then j=10 EndIf IfMid(strin,i,1)<="9"AndMid(strin,i,1)>="0"Then j=CInt(Mid(strin,i,1)) EndIf Fork=1ToLen(strin)-i j=j*16 Next result=result+j Next hextointer=result EndFunction '================End========== %>
看完上述内容，你们掌握vbs中怎么获取radmin注册表的信息的方法了吗？如果还想学到更多技能或想了解更多相关内容，欢迎关注恰卡编程网行业资讯频道，感谢各位的阅读！
