Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

LAN- Geschwindigkeit

LAN- Geschwindigkeit
Andre´
Hallo alle zuammen,
gibt es eine Möglichkeit, mit Hilfe von VBA die LAN- Geschwindigkeit auszulesen.
Problem ist, dass über das Heimnetzwerk die Geschwindigkeit langsamer ist, als die wenn ich direkt im Firmennetzwerk arbeite.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Sub mach_was_mit_WMI()
17.12.2011 10:54:49
ransi
HAllo
Lass diesen Code mal in einer leeren Tabelle laufen.
Der listet dir so einiges über deine Netzwerkadapter.
Option Explicit

Public Sub mach_was_mit_WMI()
    Dim objWMI As Object
    Dim Dinger As Object
    Dim Ding As Object
    Dim C, I, L
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set Dinger = objWMI.ExecQuery("Select * from Win32_NetworkAdapter")
    L = 2
    For Each Ding In Dinger
        I = 1
        For Each C In Ding.properties_
                If C.Name = "Speed" Then
                If C.Value > 0 Then
                    MsgBox Ding.properties_("ProductName").Value & vbCrLf & C.Value
                End If
            End If
            Cells(1, I) = C.Name
            Cells(L, I) = C.Value
            I = I + 1
        Next
        L = L + 1
    Next
End Sub


ransi
Anzeige
AW: Sub mach_was_mit_WMI()
17.12.2011 20:11:15
Andre´
Hallo,
danke für den Lösungsansatz.
Es wird so einiges aufgelistet, allerdings nichts über Speed.
Habe extra das Netzwerkkabel angesteckt, weil ich bis jetzt über WLAN verbunden bin.
Es kam aber auch nichts über Speed.
Gibt es da noch eine Lösung?
MFG Andre
LAN Geschwindigkeit
17.12.2011 21:18:34
Reinhard
Hallo Andre,
hier gibt es unter der Rubrik "vba test download speed
in introduction " als Shareware (5 $) den LAN Speed Tester 2.0
und ander diverse Speedtester.
Teste halt mal und berichte bitte.
Frage noch offen da ich nicht weiß ob du was fertiges suchst.
Gruß
Reinhard
Anzeige
AW: LAN Geschwindigkeit
17.12.2011 22:57:16
Andre´
Hallo Reinhard,
erstmals Danke für Deine Antwort.
Ich suche nichts fertiges.
Ist es vielleicht möglich zu prüfen, wie viel Zeit benötigt wird eine TXT Datei auf einem Laufwerk zu erstellen?
MFG Andre
erledigt oT.
17.12.2011 23:44:17
Andre´
Wie? o.w.T.
18.12.2011 00:01:20
Reinhard

so..
18.12.2011 00:15:54
Andre´
'Variable für Zeitermittlung
Dim DaZeit As Long
'API Funktion zur Zeitmessung
Private Declare 

Function GetTickCount Lib "kernel32" () As Long
Const TextDatei1 As String = "C:\1\1.txt"


Sub schreib()
DaZeit = GetTickCount  ' Startzeit auf Variable schreiben
Open TextDatei1 For Append Lock Read Write As #1
Close #1
MsgBox (GetTickCount - DaZeit) / 1000 & " Sekunden benötigt"
End Sub
Anzeige
Okay, danke o.w.T.
18.12.2011 00:53:53
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige