Dim strComputer
Dim colDrives, strMsg
Dim WSHNetwork
strComputer = "."
Set NetworkPROP = WScript.CreateObject("WScript.Network")
Set objWMIService = GetObject _
("winmgmts:" & "!\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objAdapter in colAdapters
	Msgbox "UserName " & vbTab & "=" & NetworkPROP.UserName & vbCrLf & _
	"Host name: " & vbTab & "=" & objAdapter.DNSHostName & vbCrLf & _
	"IP address: " & vbTab & "=" & objAdapter.IPAddress(i) & vbCrLf & _
	"Description: " & vbTab & "=" & objAdapter.Description & vbCrLf & _
	"User Domain: " & vbTab & "=" & NetworkPROP.UserDomain & vbCrLf & _
	"Physical address: " & vbTab & "=" & objAdapter.MACAddress & vbCrLf & _
	"DHCP enabled: " & vbTab & "=" & objAdapter.DHCPEnabled, _
	vbinformation + vbOKOnly + vbmsgboxsetforeground, _
	"PROPRIETES RESEAU "
Next
Set colDrives = NetworkPROP.EnumNetworkDrives
If colDrives.Count = 0 Then
	MsgBox "AUCUN LECTEUR RESEAU ACTIF.", _
	vbInformation + vbOkOnly, _
	L_Welcome_MsgBox_Title_Text
Else
	strMsg = "CONNECTIONS ACTIVES : " & vbCrLf
	For i = 0 To colDrives.Count - 1 Step 2
		strMsg = strMsg & vbCrLf & colDrives(i) & vbTab & colDrives(i + 1)
	Next
	MsgBox strMsg, _
	vbInformation + vbOkOnly, _
	"CONNECTIONS RESEAU"
End If