ATIVAR E DESATIVAR PLACA DE REDE

MALA 23/11/2010 17:55:55
#358067
Boa amigos, estou aki de novo precisando da ajuda de vcs, preciso ativar e desativar placa de rede via vb.net ou vb6.


agradeço desde ja a atenção de vcs.
RODRIGOFERRO 28/11/2010 19:24:22
#358371 Resposta escolhida
nao sei se é interessante pra tu mas eu tenho em VBS..
segue


strComputer = [Ô].[Ô]
Set objWMIService = GetObject([Ô]winmgmts:\\[Ô] & strComputer & [Ô]oot\cimv2[Ô])

set colAdapters = objWMIService.Execquery ([Ô]Select * from Win32_NetworkAdapter Where NetEnabled=True[Ô])
For Each Adapter in colAdapters
    WScript.Echo Adapter.DeviceId & [Ô]    [Ô] & Adapter.Name
Next
errReturn = colAdapters.ItemIndex(0).Disable()
If errReturn <> 0 Then
    WScript.Echo [Ô]Enable Network adapter failed for adapter= [Ô] & colAdapters.ItemIndex(0).DeviceId
Else 
    WScript.Echo [Ô]Enable Network adapter succeeded for adapter= [Ô] & colAdapters.ItemIndex(0).DeviceId 
End If 
WScript.Echo [Ô]NetEnabled= [Ô] & colAdapters.ItemIndex(0).NetEnabled
Tópico encerrado , respostas não são mais permitidas
Voltar