[VB6] Abilitare o disabilitare schede di rete, verificandone lo stato

[cesco]

Ciao a tutti vorrei sapere se si possono abilitare o disabilitare con codice visual basic, utilizzando anche delle api, delle periferiche che in questo caso sono delle schede di rete???
GRAZIE
anticipatamente...
Francesco

[oregon]

Qualcosa del genere

Option Explicit

Private Const sNetConn = "Connessioni di rete"
Private Const sConnName = "Connessione alla rete locale (LAN)"

Private Sub Command1_Click()
    DoNetVerb "&Abilita"
End Sub

Private Sub Command2_Click()
    DoNetVerb "&Disabilita"
End Sub

Private Sub DoNetVerb(ByVal NetVerb As String)
    Dim oShellApp As Object
    Dim oCtrlPanel As Object
    Dim oNetConnections As Object
    Dim oFolder As Object
    Dim oLanConnection As Object
    Dim oNetVerb As Object
    Dim oVerb As Object
    Dim Wait As Boolean

    Set oShellApp = CreateObject("Shell.Application")
    Set oCtrlPanel = oShellApp.Namespace(3)

    Set oNetConnections = Nothing
    For Each oFolder In oCtrlPanel.items
      If LCase(oFolder.Name) = LCase(sNetConn) Then
        Set oNetConnections = oFolder.GetFolder
        Exit For
      End If
    Next

    If oNetConnections Is Nothing Then
        MsgBox "Il folder '" & sNetConn & "' non e' stato trovato.", vbCritical, "Attenzione"
    Else
        For Each oFolder In oNetConnections.items
            MsgBox oFolder.Name
            If LCase(oFolder.Name) = LCase(sConnName) Then
                Set oLanConnection = oFolder
                Exit For
            End If
        Next

        If oLanConnection Is Nothing Then
            MsgBox "La connessione '" & sConnName & "' non e' stata trovata.", vbCritical, "Attenzione"
        Else
            Set oNetVerb = Nothing
            For Each oVerb In oLanConnection.verbs
                If oVerb.Name = NetVerb Then
                    Set oNetVerb = oVerb
                    Exit For
                End If
            Next

            If oNetVerb Is Nothing Then
                MsgBox "Impossibile eseguire il verbo '" & NetVerb & "'", vbCritical, "Attenzione"
            Else
                oNetVerb.DoIt
                Do
                    Wait = False
                    DoEvents
                    For Each oVerb In oLanConnection.verbs
                        If oVerb.Name = NetVerb Then
                            Wait = True
                            Exit For
                        End If
                    Next
                Loop While Wait

                MsgBox "Operazione eseguita."
            End If
        End If
    End If

    Set oVerb = Nothing
    Set oNetVerb = Nothing
    Set oLanConnection = Nothing
    Set oFolder = Nothing
    Set oNetConnections = Nothing
    Set oCtrlPanel = Nothing
    Set oShellApp = Nothing
End Sub

[cesco]

GRAZIE ADESSO PROVO SUBITO

[cesco]

SEI STATO DAVVERO UN GRANDE..GRAZIE...

[oregon]

Originariamente inviato da cesco
SEI STATO DAVVERO UN GRANDE..GRAZIE...

Di nulla ...

[cesco]

CIAO DI NUOVO,
MI HANNO CHIESTO SE è POSSIBILE VISUALIZZARE QUELLE CHE SONO ATTIVE,IN MODO DA DISABILITARLE....
SI PUò FARE?

[cesco]

Sapete aiutarmi...??

[oregon]

Mi sembrava che avessi risolto ... comunque, se ho capito, nel ciclo

For Each oVerb In oLanConnection.verbs

potresti controllare se esiste il verbo "&Disabilita". In questo caso la scheda e' attiva e la puoi inserire nell'elenco di quelle disattivabili.

Non hai fatto nessuna prova?

[cesco]

OK OK
HO FATTO L'ELENCO..SI..TUTTO OK..GRAZIE....OREGON DAVVERO GRAZIE

[cesco]

Ciao Oregon
volevo farti una domanda a seguito di quel programmino, che ho poi personalizzato grazie a te, che funziona benissimo. Adesso il programmino lo lancio con una riga di comando che
a seconda di quale profilo sia, si abilita o disabilita, la connessione di rete, qui tutto ok,
il problema è che se l'utente nn è amministratore nn funziona, il messaggio (di windows) dice che nn può abilitare una scheda perchè nn si hanno i privilegi per farlo, se l'utente è un power users.
Sai come posso schivare questa protezione di windows senza che l'utente sia amministratore
grazie anticipatamente.
PS: lo so dopo due mesi mi chiedono dell'utente...
grazie...