Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Reads Registry Information
- Thread starter clear88
- Start date
Use the RegRead method of the Shell object in the Windows Script Host. See: Jon Hawkins
- Thread starter
- #3
- Thread starter
- #4
Hi Jon,
I read the doc and try it in my htm page below, however, the key/value can't be create/read! Any suggestions?
I am going to add the function to HTM page. So, when user access it, I can list user information there!
Cheers
--------------code-------------------
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<SCRIPT LANGUAGE="VBScript">
<!--
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\"
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader"
-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>
I read the doc and try it in my htm page below, however, the key/value can't be create/read! Any suggestions?
I am going to add the function to HTM page. So, when user access it, I can list user information there!
Cheers
--------------code-------------------
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<SCRIPT LANGUAGE="VBScript">
<!--
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\"
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader"
-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>
Well, if the script is not being hosted in a .VBS or .WSF file, you'll need to change the following line of code:
Set WshShell = WScript.CreateObject("WScript.Shell"
to
Set WshShell = CreateObject("WScript.Shell"
and remove the following line:
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader"
I believe you'll also need to add the RUNAT=SERVER attribute to your script tag.
FWIW, for this type of tracking, you may want to explore using a database, such as Access, ISO the registry.
Jon Hawkins
Set WshShell = WScript.CreateObject("WScript.Shell"
to
Set WshShell = CreateObject("WScript.Shell"
and remove the following line:
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader"
I believe you'll also need to add the RUNAT=SERVER attribute to your script tag.
FWIW, for this type of tracking, you may want to explore using a database, such as Access, ISO the registry.
Jon Hawkins
- Thread starter
- #6
Hi Jon,
thanks for your help, the following code can create the key & value now. However, if I removed the line <<WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader">>
how can I get the value [MindReader] and write it to the htm page??
cheers
-------------------------------code------------------------
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<SCRIPT LANGUAGE="VBScript">
<!--
Dim WshShell, bKey
Set WshShell = CreateObject("WScript.Shell"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\"
-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>
------------------------------end-------------------------
thanks for your help, the following code can create the key & value now. However, if I removed the line <<WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader"
>>how can I get the value [MindReader] and write it to the htm page??
cheers
-------------------------------code------------------------
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<SCRIPT LANGUAGE="VBScript">
<!--
Dim WshShell, bKey
Set WshShell = CreateObject("WScript.Shell"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\"
-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>
------------------------------end-------------------------
The portion of code you must remove is the WScript.Echo because the script is not being hosted in Windows Scripting Host. The remaining portion of the code can be used to retrieve the value and then write it to your page, use a Msgbox, or whatever you choose. Jon Hawkins
- Status