'Get RegEdit.Server object Set S = CreateObject("RegEdit.Server") 'Add a new key Set Key = S.GetKey("HKLM\SOFTWARE").CreateKey("MyFirstKey")