Keine Cache-Version

Caching deaktiviert Standardeinstellung für diese Seite:aktiviert (code LNG204)
Wenn die Anzeige zu langsam ist, können Sie den Benutzermodus deaktivieren, um die zwischengespeicherte Version anzuzeigen.

Informations réseau (VBScript)

Inhaltsverzeichnis

Le script suivant affiche une boîte de message avec les informations réseau, comme un ipconfig sous DOS.

  1. Dim strComputer
  2. Dim colDrives, strMsg
  3. Dim WSHNetwork
  4. strComputer = "."
  5. Set NetworkPROP = WScript.CreateObject("WScript.Network")
  6. Set objWMIService = GetObject _
  7. ("winmgmts:" & "!\" & strComputer & "\root\cimv2")
  8. Set colAdapters = objWMIService.ExecQuery _
  9. ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
  10. For Each objAdapter in colAdapters
  11. 	Msgbox "UserName " & vbTab & "=" & NetworkPROP.UserName & vbCrLf & _
  12. 	"Host name: " & vbTab & "=" & objAdapter.DNSHostName & vbCrLf & _
  13. 	"IP address: " & vbTab & "=" & objAdapter.IPAddress(i) & vbCrLf & _
  14. 	"Description: " & vbTab & "=" & objAdapter.Description & vbCrLf & _
  15. 	"User Domain: " & vbTab & "=" & NetworkPROP.UserDomain & vbCrLf & _
  16. 	"Physical address: " & vbTab & "=" & objAdapter.MACAddress & vbCrLf & _
  17. 	"DHCP enabled: " & vbTab & "=" & objAdapter.DHCPEnabled, _
  18. 	vbinformation + vbOKOnly + vbmsgboxsetforeground, _
  19. 	"PROPRIETES RESEAU "
  20. Next
  21. Set colDrives = NetworkPROP.EnumNetworkDrives
  22. If colDrives.Count = 0 Then
  23. 	MsgBox "AUCUN LECTEUR RESEAU ACTIF.", _
  24. 	vbInformation + vbOkOnly, _
  25. 	L_Welcome_MsgBox_Title_Text
  26. Else
  27. 	strMsg = "CONNECTIONS ACTIVES : " & vbCrLf
  28. 	For i = 0 To colDrives.Count - 1 Step 2
  29. 		strMsg = strMsg & vbCrLf & colDrives(i) & vbTab & colDrives(i + 1)
  30. 	Next
  31. 	MsgBox strMsg, _
  32. 	vbInformation + vbOkOnly, _
  33. 	"CONNECTIONS RESEAU"
  34. End If

Deutsche Übersetzung

Sie haben gebeten, diese Seite auf Deutsch zu besuchen. Momentan ist nur die Oberfläche übersetzt, aber noch nicht der gesamte Inhalt.

Wenn Sie mir bei Übersetzungen helfen wollen, ist Ihr Beitrag willkommen. Alles, was Sie tun müssen, ist, sich auf der Website zu registrieren und mir eine Nachricht zu schicken, in der Sie gebeten werden, Sie der Gruppe der Übersetzer hinzuzufügen, die Ihnen die Möglichkeit gibt, die gewünschten Seiten zu übersetzen. Ein Link am Ende jeder übersetzten Seite zeigt an, dass Sie der Übersetzer sind und einen Link zu Ihrem Profil haben.

Vielen Dank im Voraus.

Dokument erstellt 11/06/2004, zuletzt geändert 26/10/2018
Quelle des gedruckten Dokuments:https://www.gaudry.be/de/vbs-ipconfig.html

Die Infobro ist eine persönliche Seite, deren Inhalt in meiner alleinigen Verantwortung liegt. Der Text ist unter der CreativeCommons-Lizenz (BY-NC-SA) verfügbar. Weitere Informationen auf die Nutzungsbedingungen und dem Autor.