HOWTO: Use the Windows Script Host to Read, Write, and Delete Registry Keys
Dit artikel is eerder gepubliceerd onder NL244675
IMPORTANT: This article contains information about editing the registry. Before you edit the registry, make sure you understand how to restore it ifa problem occurs. For information about how to do this, view the "Restoring the Registry" Help topic in Regedit.exe or the "Restoring a Registry Key" Help topic in Regedt32.exe.
The Microsoft Windows Script Host (WSH) is a tool that allows you to run Microsoft Visual Basic Scripting Edition and Microsoft JScript natively within the base operating system, either on Microsoft Windows 95 or Microsoft Windows NT 4.0. It also includes several COM automation methods that allow you to do several handy tasks easily through the Windows Script Host Object Model.
The Microsoft Windows Script Host is integrated in Windows 98. It is available for Windows NT 4.0 from within the Windows NT 4.0 Option Pack.It is also available for download from the following site:
WARNING: Using Registry Editor incorrectly can cause serious problems thatmay require you to reinstall your operating system. Microsoft cannotguarantee that problems resulting from the incorrect use of Registry Editorcan be solved. Use Registry Editor at your own risk.
For information about how to edit the registry, view the "Changing Keys andValues" Help topic in Registry Editor (Regedit.exe) or the "Add and DeleteInformation in the Registry" and "Edit Registry Data" Help topics inRegedt32.exe. Note that you should back up the registry before you edit it.If you are running Windows NT or Windows 2000, you should also update your EmergencyRepair Disk (ERD).
The Microsoft Visual FoxPro code below demonstrates several examples of reading, writing, and deleting registry keys and values.
WSHShell = CreateObject("WScript.Shell") *!* Create Registry KeysWSHShell.Popup( "Create key HKCU\MyRegKey with value 'Top level key'")WSHShell.RegWrite( "HKCU\MyRegKey\", "Top level key") WSHShell.Popup( "Create key HKCU\MyRegKey\Entry with value 'Second level key'")WSHShell.RegWrite( "HKCU\MyRegKey\Entry\", "Second level key") WSHShell.Popup( "Set value HKCU\MyRegKey\Value to REG_SZ 1")WSHShell.RegWrite ("HKCU\MyRegKey\Value", 1) WSHShell.Popup( "Set value HKCU\MyRegKey\Entry to REG_DWORD 2")WSHShell.RegWrite( "HKCU\MyRegKey\Entry", 2, "REG_DWORD") WSHShell.Popup( "Set value HKCU\MyRegKey\Entry\Value1 to REG_BINARY 3")WSHShell.RegWrite( "HKCU\MyRegKey\Entry\Value1", 3, "REG_BINARY") *!* Read Registry KeyslcValue1 = WSHShell.RegRead("HKCU\MyRegKey\")WSHShell.Popup("Value of HKCU\MyRegKey: " + lcValue1) lcValue2 = WSHShell.RegRead("HKCU\MyRegKey\Entry\")WSHShell.Popup("Value of HKCU\MyRegKey\Entry\: " + lcValue2) lcValue3 = WSHShell.RegRead("HKCU\MyRegKey\Value")WSHShell.Popup("Value of HKCU\MyRegKey\Value: " + lcValue3) lnValue1 = WSHShell.RegRead("HKCU\MyRegKey\Entry")WSHShell.Popup("Value of HKCU\MyRegKey\Entry: " + ALLTRIM(STR(lnValue1))) lnValue3 = WSHShell.RegRead("HKCU\MyRegKey\Entry\Value1")WSHShell.Popup("Value of HKCU\MyRegKey\Entry\Value1: " + ALLTRIM(STR(lnValue3(1)))) *!* Delete Registry KeysWSHShell.Popup( "Delete value HKCU\MyRegKey\Entry\Value1")WSHShell.RegDelete( "HKCU\MyRegKey\Entry\Value1") WSHShell.Popup ("Delete key HKCU\MyRegKey\Entry")WSHShell.RegDelete( "HKCU\MyRegKey\Entry\") WSHShell.Popup ("Delete key HKCU\MyRegKey")WSHShell.RegDelete( "HKCU\MyRegKey\")
You can find the papers below on the following Web site:
Technical Paper: Windows Script Host Programmer's Reference
For additional information about using Visual FoxPro and the Windows Script Host, please click the article numbers below to view the article in the Microsoft Knowledge Base:
244677HOWTO: Create a Desktop Shortcut Using the Windows Script Host
244676HOWTO: Map, Delete and Enumerate Network Drives Using the Windows Script Host
Artikel-id: 244675 - Laatst bijgewerkt: 10/16/2003 20:12:00 - Revisie: 1.0
Microsoft Visual FoxPro 3.0 Standard Edition, Microsoft Visual FoxPro 3.0b Standard Edition, Microsoft Visual FoxPro 5.0 Standard Edition, Microsoft Visual FoxPro 5.0a, Microsoft Visual FoxPro 6.0 Professional Edition
- kbhowto kbvfp300 kbvfp300b kbvfp500 kbvfp600 kbvfp500a kbcodesnippet kbgrpdsfox kbwsh KB244675