hm kay das funzt jetzt alles soweit wie ich mir das wünsche, hab nur ein Problem...
unter win2k funktioniert meine anmelde procedure nich so wirklich bzw ein spezieller teil geht nicht... kann mir einer verraten warum ?
Delphi-Quellcode:
const WMI_System_NameSpace='root\CIMV2'
try
pLoc := TSWBemLocator.Create(nil);
except
begin
CoUninitialize;
Specs.Values['LastError'] := ('Failed to Create Locator Object');
exit;
end;
end;
try IF Assigned(pLoc) then
pServ := pLoc.ConnectServer('.', WMI_System_Namespace, '', '', '', '', 128,
nil)
else
begin
CoUninitialize;
Specs.Values['LastError']:='Locator Objekt is not assigned';
exit;
end;
except
begin
CoUninitialize;
Specs.Values['LastError'] :=
('Failed to establish NameSpaceConnection Object');
exit;
end;
end;
um das ganze noch genauer einzugrenzen :
pServ := pLoc.ConnectServer('.', WMI_System_Namespace, '', '', '', '', 128, nil)
diese zeile verursachet jedesmal einen Fehler. so wer weiß es ?
