Re: Predkosc polaczenia sieciowego (LAN) w rejestrze

Odpowiem sam sobie :

strComputer = "FullComputerName"
strDomain = "DOMENA"
Wscript.StdOut.Write "Please enter your user name:"
strUser = Wscript.StdIn.ReadLine
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()
Wscript.Echo

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _
    "root\WMI", _
    strUser, _
    strPassword, _
    "MS_409", _
    "ntlmdomain:" + strDomain)
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM MSNdis_LinkSpeed WHERE Active = True",,48)
For Each objItem in colItems
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "MSNdis_LinkSpeed instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Active: " & objItem.Active
    Wscript.Echo "InstanceName: " & objItem.InstanceName
    Wscript.Echo "NdisLinkSpeed: " & objItem.NdisLinkSpeed
Next

Oczywiscie nie jestem taki masta, uzylem WMICodeCreator.exe :)

-- 
-------
blonDIE