[WSH] レジストリの読み出し

  実行結果



  
[Windows Script Host Shell Object]
CLSID : {F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}
InProcServer32 : C:\WINNT\System32\wshom.ocx
ProgID : WScript.Shell.1
TypeLib : {F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}

[WebPost]
Path : C:\WINNT\System32\POSTWPP.DLL
Provider : HTTP Post
Priority : 0x30
  



  ソース



  
<%

Set WshShell = Server.CreateObject("Wscript.Shell")

Response.Write "[" & WshShell.RegRead("HKEY_CLASSES_ROOT\Wscript.Shell\") & "]<br>"

strClassID = WshShell.RegRead("HKEY_CLASSES_ROOT\Wscript.Shell\CLSID\")
Response.Write "CLSID : " & strClassID & "<br>"

strName = "HKEY_CLASSES_ROOT\CLSID\" & strClassID & "\InProcServer32\" 
Response.Write "InProcServer32 : " & WshShell.RegRead( strName ) & "<br>"

strName = "HKEY_CLASSES_ROOT\CLSID\" & strClassID & "\ProgID\" 
Response.Write "ProgID : " & WshShell.RegRead( strName ) & "<br>"

strName = "HKEY_CLASSES_ROOT\CLSID\" & strClassID & "\TypeLib\" 
Response.Write "TypeLib : " & WshShell.RegRead( strName ) & "<br>"

Response.Write "<br>"

Response.Write "[WebPost]<br>"
strKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WebPost\Providers\{8B14B770-748C-11D0-A309-00C04FD7CFC5}"
Response.Write "Path : " & WshShell.RegRead( strKey & "\Path" ) & "<br>"
Response.Write "Provider : " & WshShell.RegRead( strKey & "\Provider" ) & "<br>"
Response.Write "Priority : 0x" & Hex( WshShell.RegRead( strKey & "\Priority" ) ) & "<br>"

%>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ