Mensajes

Clickeo en el link de descarga y me lleva a otra pagina con monton de dlls... y no aparece nada de pnputil....

otro intento?. jejejje

Disculpa... pero tu link, me lleva a la descarga de egon... que ni idea de lo que es.

Si pudieras poner otro link.

Muchas gracias

Alguien me puede decir de donde descargar el PNPUTIL.EXE.

Juraria que viene con algun kit de windows, pero no doy con el.
Alguna informacion al respecto?.

Gracias

el comando "netsh lan export profile" exporta toda la configuracion lan?.

Osea, importa el grupo de trabajo, netbios, compartir impresoras y archivos...???

Esto es lo que e hecho por ahora. va muy bien.

Código (vbnet) [Seleccionar] Expandir


Imports System
Imports Microsoft.Win32

Class Reg
   

   Public Shared Sub Main()
       Dim rk As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Network", False)
       PrintKeys(rk)
       Console.ReadKey()
   End Sub


   Public Shared Sub PrintKeys(ByVal rkey As RegistryKey)

       Dim names As String() = rkey.GetSubKeyNames()
       Dim i As Integer = 0
       Dim s As String
       For Each s In names

           Dim registro As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Network\" & s, False)

           Dim e

           For Each e In registro.GetSubKeyNames()

               'MsgBox("SYSTEM\CurrentControlSet\Control\Network\" & s & e)

               Dim res As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Network\" & s & "\" & e, False)
               Dim ase As String

               For Each ase In res.GetSubKeyNames()
                   MsgBox("SYSTEM\CurrentControlSet\Control\Network\" & s & "\" & e & "\" & ase)
                   Dim res1 As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Network\" & s & "\" & e & "\" & ase, False)
                   Dim ase1 As String

                   For Each ase1 In res1.GetValueNames()

                       If ase1 = "PnpInstanceID" Then
                           Console.WriteLine(ase1)
                       End If

                   Next ase1
               Next ase
           Next e
       Next s
   End Sub
End Class


Ahora me falta ver el contenido de esa clave y compararla con la que tengo.

Tienes razon... es null.
Pero ahora como hago para detectar si es null para seguir con el for?

Código [Seleccionar] Expandir


  Dim res As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Network\" & s & resultado, False)






                Dim ase As String
                For Each ase In res.GetValueNames() <---- aki da el error

                    MsgBox(ase)
                Next ase



Al final e optado por buscar en el regedit el valor que me da el programa que es "ROOT\NET\XXXX"
Y a esa key le cambio el parametro name.

Aver que tal.

No sabras donde ahi algun ejemplo de getadapterinfo en vb.net verdad?.

Todo lo que encuentro esta en vb 6 o c#

No, en serio... te quedas conmigo o que...

Claro que es a codigo hombre claro.