Local WSHShell WSHShell = Createobject("WScript.Shell") *!* Abbreviation Root Name *!* HKCR HKEY_CLASSES_ROOT *!* HKCU HKEY_CURRENT_USER *!* HKLM HKEY_LOCAL_MACHINE *!* HKU HKEY_USERS *!* HKCC HKEY_CURRENT_CONFIG *!* *!* Create Registry Keys *!* WSHShell.Popup( "Create key HKCU\MyRegKey with value 'Top level key'") *!* WSHShell.RegWrite( "HKCU\MyRegKey\", "Top level key") *!* *!* Read Registry Keys *!* lcValue1 = WSHShell.RegRead("HKCU\MyRegKey\") *!* WSHShell.Popup("Value of HKCU\MyRegKey: " + lcValue1) *!* *!* Delete Registry Keys *!* WSHShell.Popup( "Delete value HKCU\MyRegKey\") *!* WSHShell.RegDelete( "HKCU\MyRegKey\") WSHShell.RegWrite( "HKCU\TESTX\", "") WSHShell.RegWrite( "HKCU\TESTX\P\Pabcdefghi", "") WSHShell.RegWrite( "HKCU\TESTX\H\Habcdefghi", "") Local TESTX,P,H *m.TESTX = WSHShell.RegRead( "HKCU\TESTX\" ) m.TESTX = "HKCU\TESTX\" If ! "registry.vcx" $ Set("CLASSLIB") Set Classlib To Home()+"ffc\REGISTRY.VCX" Additive Endif Local oReg oReg=Newobject("registry") oReg.iskey(m.TESTX,"") Wait Window oReg && result (object) :(