hi,
möchte gern ein kleines Programm schreiben welches mir die Daten meiner Netzwerkcomputer ausliest.
Habe dazu folgendes im Internet gefunden.
Delphi-Quellcode:
begin
try
Locator := CoSWbemLocator.Create;
Services := Locator.ConnectServer(wmiHost, '
root\cimv2', lUser, lPasswort, '
','
', 0,
nil);
ObjSet := Services.ExecQuery('
SELECT * FROM '+wmiClass, '
WQL',
wbemFlagReturnImmediately
and wbemFlagForwardOnly ,
nil);
Enum := (ObjSet._NewEnum)
as IEnumVariant;
while (Enum.Next(1, TempObj, Value) = S_OK)
do
begin
SObject := IUnknown(tempObj)
as ISWBemObject;
SProp := SObject.Properties_.Item(wmiProperty, 0);
if VarIsNull(SProp.Get_Value)
then
result := '
'
else
begin
SN := SProp.Get_Value;
result := SN;
end;
end;
except // Trap any exceptions (Not having WMI installed will cause one!)
on exception do
result := '
-';
end;
end;
Nur bei machen Werte die ich auslesen möchte funktioniert das nicht.
Bin auf der suche nach einer Klasse die eventuell schon mal jemand programmiert hat.
So in der Art.
Delphi-Quellcode:
var
SystemInfo : TWMISystemInfo;
begin
SystemInfo := TWMISystemInfo.create(Host,User,Passwort);
showmessage(SystemInfo.keineAhnung);
end;
Kann mir da jemand weiter helfen?