| ||
'Get RegEdit.Server object
Set S = CreateObject("RegEdit.Server")
'Get a key
Set MyKey = S.GetKey("HKLM\SOFTWARE\MyFirstKey")
'Delete subkeys
For Each Key In MyKey.SubKeys
Wscript.Echo Key.Name
Next |
| ||
'Get RegEdit.Server object
Set S = CreateObject("RegEdit.Server")
'Get a key
Set Key = S.GetKey("HKLM\SOFTWARE")
'Add a new key
'or Set MyKey = Key.SubKeys.Add("MyFirstKey") |