delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله

احاول ان احصل على الرقم التسلسلي للقرص الصلب على شبكة بواسطة الدالة التالية

كود :
function  GetWMIstring(const WMIClass, WMIProperty:string): string;
   const
      wbemFlagForwardOnly = $00000020;
    var
      FWbemObjectSet: OLEVariant;
      FWbemObject   : OLEVariant;
      oEnum         : IEnumvariant;
      iValue        : LongWord;
    begin;
      Result:='';

          FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
   FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');



      FWbemObjectSet:= FWMIService.ExecQuery(Format('Select %s from %s',[WMIProperty, WMIClass]),'WQL',wbemFlagForwardOnly);
      oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
      if oEnum.Next(1, FWbemObject, iValue) = 0 then

  if not VarIsNull(FWbemObject.Properties_.Item(WMIProperty).Value) then

     Result:=FWbemObject.Properties_.Item(WMIProperty).Value;

    FWbemObject:=Unassigned;
    end;

طبعا مكان عبارة LocalHost اعطيته عنوان IP السيرفر
ولكن الرسالة التي تظهر هي access is denied فقط بدون اي تفاصيل

اوقفت جدار الحماية وبرنامج الحماية ولكن لازال الوصول مرفوض

فهل هناك شئ غائب عني

تم الوصول باستخدام كلمة المرور واسم المستخدم

كود :
WMIService   := SWbemLocator.ConnectServer('192.168.44.128', 'root\CIMV2', 'IEUser', 'Passw0rd!');

ولكن لا يظهر شئ مع انه يظهر رقم الجهاز الذي اعمل عليه

ملاحظة الجهاز الثاني هو في الاساس كنظام وهمي وليس حقيقي
وعند طلب رقم البيوس يرجع

كود :
VMware-56 4d d4 2f cd d2 a9 22-24 15 66 c2 0d e9 6a 77

فربما النظام الوهمي له خصوصية مختلفة والكود سيعمل في البيئة الحقيقية

Delphi4Us