رسالة الوصول مرفوض

[Delphi4Us]

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


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

كود :

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

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