|
 |
 |
 |
| |
Propriétés Réseaux 
A copier dans un module :
Sub ProprietesReseau()
If Dir$(RepertoireSystem() + "\Netcpl.cpl") <> "" Then
Dummy& = Shell("Rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")
Else
MsgBox "Impossible de trouver la boîte de dialogue des propriétés du réseau !", vbInformation, "Propriétés du Réseau"
End If
End Sub
Code à placer n’importe où pour lancer la fenêtre de propriétés du réseau:
ProprietesReseau
ATTENTION : ce code ne fonctionne que si vous avez la fonction RepertoireSystem() qui se trouve
ICI
|
|
 |
|
 |
|
IDDN Certification
