r = new registry()
ckey = r:create("HKEY_LOCAL_MACHINE","SOFTWARE\\Ideal Systems Consultancy Ltd\\Test Script Runner\\TesterCreators\\IdealSystemsCon.Temp")
r:close(ckey)

key = r:open("HKEY_LOCAL_MACHINE","SOFTWARE\\Ideal Systems Consultancy Ltd\\Test Script Runner\\TesterCreators\\IdealSystemsCon.Temp")
r:close(key)
r:DeleteSubKey("HKEY_LOCAL_MACHINE","SOFTWARE\\Ideal Systems Consultancy Ltd\\Test Script Runner\\TesterCreators\\IdealSystemsCon.Temp")
key1 = r:open("HKEY_LOCAL_MACHINE","SOFTWARE\\Ideal Systems Consultancy Ltd\\Test Script Runner\\Variables")
r:SetMultiStringValue(key1,"Strings","Option1","Option2")
strings = r:QueryMultiStringValue(key1,"Strings")
r:SetGUIDValue(key1,"guid","GUID={F433F85C-4EA6-4f89-AA14-A3E98F36C49A}")

guid = r:QueryGUIDValue(key1,"guid")
sleep(10)
r:close(key1)
sleep(10)
key = r:open("HKEY_LOCAL_MACHINE","SOFTWARE\\Ideal Systems Consultancy Ltd\\Test Script Runner\\Variables")
values = r:EnumKey(key)
i = 0
while i < arraylength(values) do
    keyv = r:open(key,values[i])
    value = r.queryStringValue(keyv,"Value")
    sleep(2)
    r:close(keyv)
    i++
endwhile
sleep(10)
r:close(key)

delete r
sleep(10)