ASP取注册表信息

ASP取注册表信息

<%
set wscr=Server.CreateObject("WScript.Shell")
set net=Server.CreateObject("WScript.Network")
d="HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/DocFolderPaths/" & net.UserName
a ="我的文档目录是：" & wscr.RegRead(replace(d,"IUSR_","")) & "<BR>"
b ="我的收藏夹目录是：" & wscr.RegRead("HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders/Favorites") & "<BR>"
response.Write a & b
%>