رسالة الوصول مرفوض
#1
السلام عليكم ورحمة الله


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

كود :
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

فربما النظام الوهمي له خصوصية مختلفة والكود سيعمل في البيئة الحقيقية
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم