<%
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>"
%>
|