encontre esto lo cual despues de transcribirlo en vb6, no puedo hacer que funcionen las 2 alternativas [ Enable / Disable ].
Aca dejo lo que tengo hasta ahora:
Código
Private Enum What Disable = 0 Enable = 1 End Enum Private Function zarazaConAdaptor(SoWhat As What) As Boolean Dim objWMIService As Object Dim colAdapters As Object Dim Adapter As Object Dim errReturn As Integer On Error GoTo Ups Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colAdapters = objWMIService.Execquery("Select * from Win32_NetworkAdapter Where NetEnabled=True") 'For Each Adapter In colAdapters ' Debug.Print Adapter.DeviceId & " " & Adapter.Name 'Next If SoWhat = Disable Then errReturn = colAdapters.ItemIndex(0).Disable() If SoWhat = Enable Then errReturn = colAdapters.ItemIndex(0).Enable() If (errReturn <> 0) Then zarazaConAdaptor = False Else zarazaConAdaptor = True End If Set objWMIService = Nothing Set colAdapters = Nothing Exit Function Ups: zarazaConAdaptor = False Set objWMIService = Nothing Set colAdapters = Nothing End Function Private Sub Command1_Click() 'Debug.Print zarazaConAdaptor(Disable) Debug.Print zarazaConAdaptor(Enable) End Sub
no logro darme cuenta como solucionar el errror
Citar
Verdadero
-2147217400 Parámetro no válido
-2147217400 Parámetro no válido
¿alguien conoce otra forma de hacer esto? mediante API o algo similar me seria mejor por que usar wmi no me convence mucho....