Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
Delphi 7 Enterprise
|
Re: Auslesen der Bandbreite der Netzwerkkarte
29. Jul 2006, 20:15
Bei WMI gibts das hier:
Code:
SELECT * FROM Win32_NetworkAdapter
Und mit
soltest du den Type ermitteln können, aber bei mir gibts da nur null zurück.
Code:
var wbemFlagReturnImmediately = 0x10;
var wbemFlagForwardOnly = 0x20;
var arrComputers = new Array("PCNAME");
for (i = 0; i < arrComputers.length; i++) {
WScript.Echo();
WScript.Echo("==========================================");
WScript.Echo("Computer: " + arrComputers[i]);
WScript.Echo("==========================================");
var objWMIService = GetObject("winmgmts:\\\\" + arrComputers[i] + "\\root\\CIMV2");
var colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL",
wbemFlagReturnImmediately | wbemFlagForwardOnly);
var enumItems = new Enumerator(colItems);
for (; !enumItems.atEnd(); enumItems.moveNext()) {
var objItem = enumItems.item();
WScript.Echo("AdapterType: " + objItem.AdapterType);
WScript.Echo("AdapterTypeId: " + objItem.AdapterTypeId);
WScript.Echo("AutoSense: " + objItem.AutoSense);
WScript.Echo("Availability: " + objItem.Availability);
WScript.Echo("Caption: " + objItem.Caption);
WScript.Echo("ConfigManagerErrorCode: " + objItem.ConfigManagerErrorCode);
WScript.Echo("ConfigManagerUserConfig: " + objItem.ConfigManagerUserConfig);
WScript.Echo("CreationClassName: " + objItem.CreationClassName);
WScript.Echo("Description: " + objItem.Description);
WScript.Echo("DeviceID: " + objItem.DeviceID);
WScript.Echo("ErrorCleared: " + objItem.ErrorCleared);
WScript.Echo("ErrorDescription: " + objItem.ErrorDescription);
WScript.Echo("Index: " + objItem.Index);
WScript.Echo("InstallDate: " + WMIDateStringToDate(objItem.InstallDate));
WScript.Echo("Installed: " + objItem.Installed);
WScript.Echo("LastErrorCode: " + objItem.LastErrorCode);
WScript.Echo("MACAddress: " + objItem.MACAddress);
WScript.Echo("Manufacturer: " + objItem.Manufacturer);
WScript.Echo("MaxNumberControlled: " + objItem.MaxNumberControlled);
WScript.Echo("MaxSpeed: " + objItem.MaxSpeed);
WScript.Echo("Name: " + objItem.Name);
WScript.Echo("NetConnectionID: " + objItem.NetConnectionID);
WScript.Echo("NetConnectionStatus: " + objItem.NetConnectionStatus);
try { WScript.Echo("NetworkAddresses: " + (objItem.NetworkAddresses.toArray()).join(",")); }
catch(e) { WScript.Echo("NetworkAddresses: null"); }
WScript.Echo("PermanentAddress: " + objItem.PermanentAddress);
WScript.Echo("PNPDeviceID: " + objItem.PNPDeviceID);
try { WScript.Echo("PowerManagementCapabilities: " + (objItem.PowerManagementCapabilities.toArray()).join(",")); }
catch(e) { WScript.Echo("PowerManagementCapabilities: null"); }
WScript.Echo("PowerManagementSupported: " + objItem.PowerManagementSupported);
WScript.Echo("ProductName: " + objItem.ProductName);
WScript.Echo("ServiceName: " + objItem.ServiceName);
WScript.Echo("Speed: " + objItem.Speed);
WScript.Echo("Status: " + objItem.Status);
WScript.Echo("StatusInfo: " + objItem.StatusInfo);
WScript.Echo("SystemCreationClassName: " + objItem.SystemCreationClassName);
WScript.Echo("SystemName: " + objItem.SystemName);
WScript.Echo("TimeOfLastReset: " + WMIDateStringToDate(objItem.TimeOfLastReset));
}
}
function WMIDateStringToDate(dtmDate)
{
if (dtmDate == null)
{
return "null date";
}
var strDateTime;
if (dtmDate.substr(4, 1) == 0)
{
strDateTime = dtmDate.substr(5, 1) + "/";
}
else
{
strDateTime = dtmDate.substr(4, 2) + "/";
}
if (dtmDate.substr(6, 1) == 0)
{
strDateTime = strDateTime + dtmDate.substr(7, 1) + "/";
}
else
{
strDateTime = strDateTime + dtmDate.substr(6, 2) + "/";
}
strDateTime = strDateTime + dtmDate.substr(0, 4) + " " +
dtmDate.substr(8, 2) + ":" +
dtmDate.substr(10, 2) + ":" +
dtmDate.substr(12, 2);
return(strDateTime);
}
André "A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann
Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
|
|
Zitat
|