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

[MItaly]

Se le protezioni si potessero "schivare" a cosa servirebbero? Piuttosto da amministratore puoi agire su questa policy di gruppo per far sì che anche i non amministratori possano abilitare/disabilitare le connessioni di rete.

[cesco]

Grazie, ma da codice che faccio,
perchè cmq sia il programma funziona bene, come faccio ad usare questo policy di gruppo

[MItaly]

Devi impostarla manualmente tramite l'editor delle policy di gruppo (gpedit.msc) quando installi il programma.

[cesco]

Grazie Provo subito..
ciao

[cesco]

Ci sto provando ma nn riesco a trovare le connessioni di rete....
e non so manco dove e come poter abilitare questi criteri al profilo power user...

[stex1984]

ciao
premetto che non sono un programmatore vb ma in qualche modo cerco sempre di adattarmi.
ho trovato il tuo script googlando e credo si adatti perfettamente a ciò che vorrei fare io. capita a volte che windows non mi fa accedere ad internet, e disabilitando e riabilitando la scheda di rete torna tutto a funzionare. quindi il tuo script mi sembra molto utile ed azzeccato!

ora mi trovo però su vista, dove nel pannello di controllo la voce "Connessioni di rete" non esiste (credo sia solo una sorta di alias del "Centro connessioni di rete e condivisione").

Private Const sNetConn = "Centro connessioni di rete e condivisione"

l'ho sostituita con "Centro connessioni di rete e condivisione", tuttavia non riesco ad arrivare alla voce "Connessione alla rete locale (LAN)"

o meglio, debuggando non entra mai in questo else

...
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
                    oLanConnection = oFolder
                    Exit For
                End If
            Next
...

andando direttamente in

If oLanConnection Is Nothing Then
                MsgBox("La connessione '" & sConnName & "' non e' stata trovata.", vbCritical, "Attenzione")

sai darmi una mano?

grazie infinite
stex