| Create one key and set its default value. | |
|---|---|
'Get RegEdit.Server object
Set S = CreateObject("RegEdit.Server")
'Get a key
Set Key = S.GetKey("HKLM\SOFTWARE")
'Add a new key
Set MyKey = Key.CreateKey("MyFirstKey")
'or Set MyKey = Key.SubKeys.Add("MyFirstKey")
'Set String and DWORD values
MyKey.Values("") = "C:\Program Files\My" | |