Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
Delphi 7 Enterprise
|
Re: Onboard Soundchip auslesen
5. Dez 2006, 13:28
zum Beispeil über WMI. Da sind schon alle sachen dabei, die du wissen willst.
Code:
var wbemFlagReturnImmediately = 0x10;
var wbemFlagForwardOnly = 0x20;
var arrComputers = new Array("NOTEBOOK");
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_SoundDevice", "WQL",
wbemFlagReturnImmediately | wbemFlagForwardOnly);
var enumItems = new Enumerator(colItems);
for (; !enumItems.atEnd(); enumItems.moveNext()) {
var objItem = enumItems.item();
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("DMABufferSize: " + objItem.DMABufferSize);
WScript.Echo("ErrorCleared: " + objItem.ErrorCleared);
WScript.Echo("ErrorDescription: " + objItem.ErrorDescription);
WScript.Echo("InstallDate: " + WMIDateStringToDate(objItem.InstallDate));
WScript.Echo("LastErrorCode: " + objItem.LastErrorCode);
WScript.Echo("Manufacturer: " + objItem.Manufacturer);
WScript.Echo("MPU401Address: " + objItem.MPU401Address);
WScript.Echo("Name: " + objItem.Name);
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("Status: " + objItem.Status);
WScript.Echo("StatusInfo: " + objItem.StatusInfo);
WScript.Echo("SystemCreationClassName: " + objItem.SystemCreationClassName);
WScript.Echo("SystemName: " + objItem.SystemName);
}
}
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);
}
Sonst sollte noch DMI gehen. Hatte nicht mal jemand im Forum eine Funktion um PCI-Geräte auszulesen?
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
|