>>LOCAL loRegistry, lcRegBase, lcLoginServer >>loRegistry = CREATEOBJECT("WScript.Shell") >>lcRegBase = "some key" >>lcLoginServer = "some value" >> >>IF VARTYPE(loRegistry) == "O" >> Registry.RegWrite(lcRegBase + "Server Name", lcLoginServer, "REG_SZ") >>ENDIF >> >>>>
>>LOCAL loRegistry, lcRegBase, lcLoginServer, luRetVal >>loRegistry = CREATEOBJECT("WScript.Shell") >>lcRegBase = "some key" >>lcLoginServer = "some value" >> >>IF VARTYPE(loRegistry) == "O" >> luRetVal = .NULL. >> luRetVal = loRegistry.RegWrite(lcRegBase + "Server Name", lcLoginServer, "REG_SZ") >> IF VARTYPE(luRetVal) <> "C" >> MESSAGEBOX("You don't have enough windows security access...") >> ENDIF >>ENDIF >> >>>>