Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/06/2009, 09:49
jrcoronel
 
Fecha de Ingreso: junio-2009
Mensajes: 2
Antigüedad: 14 años, 11 meses
Puntos: 0
Exclamación Vb.net registro. Crear valor binario como reg_multi_sz

Estimados,
He usado hasta ahora un vbscript que realicé hace un tiempo para crear claves, valores, etc. en este caso el valor debe ser binario y se guarda en el registro como multi_sz. el problema es que realizando la tarea con el código que brindan en la web para vb.net me lo guarda al valor pero como string(multi_sz) y no como binario. la pregunta es como puedo hacer para resolverlo.
valor bueno img514.imageshack.us/i/valor.jpg/
valor malo img193.imageshack.us/i/valor2.jpg/
gracias a todos!
el código usado en el vbscript es:
strKeyPath = "SOFTWARE\MICROSOFT\MSSQLSERVER\FIRMSRV"
MultValueName = "ListenOn"
strComputer = "."
iValues = Array("ssmsso70," & firmsrvport)
Set oReg=GetObject("winmgmts:{impersonationLevel=imper sonate}!\\" & _
strComputer & "\root\default:StdRegProv")
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,_
MultValueName,iValues

el código recomendado en la web para vb.net 2008 es:
MultValueName = "ListenOn"
'iValues = ("ssmsso70," & adminport)
Dim rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey ("SOFTWARE\MICROSOFT\MSSQLSERVER\ADMIN")
rk.SetValue(MultValueName, New String() {"ssmsso70,", adminport}, RegistryValueKind.MultiString)
rk.Close()