+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : رسالة الوصول مرفوض (/showthread.php?tid=12147)
رسالة الوصول مرفوض - Delphi4Us - 16-11-2022
السلام عليكم ورحمة الله
احاول ان احصل على الرقم التسلسلي للقرص الصلب على شبكة بواسطة الدالة التالية
كود :
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فربما النظام الوهمي له خصوصية مختلفة والكود سيعمل في البيئة الحقيقية