ServerName=trim(ServerName)
ls_keyname="HKEY_LOCAL_MACHINE\Software\Microsoft"
li_rtn=RegistryKeys(ls_keyname,ls_subkeylist)
flag=false
for i=1 to upperbound(ls_subkeylist)
if ls_subkeylist[i] = "MSSQLServer" then
flag=true
end if
next
if not flag then
ls_keyname="HKEY_LOCAL_MACHINE\Software\Microsoft"
RegistrySet(ls_keyname, "MSSQLServer", RegString!,"")
end if
ls_keyname="HKEY_LOCAL_MACHINE\Software\Microsoft\MSSQLServer"
li_rtn=RegistryKeys(ls_keyname,ls_subkeylist)
flag2=false
for i=1 to upperbound(ls_subkeylist)
if ls_subkeylist[i] = "Client" then
//messagebox("dd","Client ok")
flag2=true
end if
next
if not flag2 then
ls_keyname="HKEY_LOCAL_MACHINE\Software\Microsoft\MSSQLServer"
RegistrySet(ls_keyname, "Client", RegString!,"")
end if