Vbs

لا اعلم هل تشغل دوال API ربما بعض الدوال التي تسمح بذلك.

البرنامج المسوؤل عن عملها هو wscript.exe

وهي اقوى بكثير من باتشات الدوس .

عفواً ، ممكن توضيح أكثر ؟؟؟

شكراُ

هذه اللغة تملك ميزات كثيرة فهي تتعامل مع الرجستري و تطبيقات الأوفس والمتصفح والنظام هناك امثله كثيرة وكتب لها .

هذا مثال يفتح المفكره ويكتب فيها.

فقط أنشئ ملف جديد واعطه اي اسم فقط أجعل امتداده vbs

فعلاً أخي الكريم أنا أستخدمها في التعامل مع مسجل النظام من خلال الفيجوال 6.0 ، ولكن للأسف اليوم أنا أتعامل مع أوراكل ديفيلوبار ، فالأوامر الذي أمتلكها مجرد أوامر خفيفة وليست كلياً.

اقتباس

هذه اللغة تملك ميزات كثيرة فهي تتعامل مع الرجستري و تطبيقات الأوفس والمتصفح والنظام هناك امثله كثيرة

عفواً سيدي هذه ليست لغة ، بل هو مجرد برنامج جاهز لتنفيذ أوامر مدرجة في ملفات ذات إمتداد vbs ، بالإضافة الي ذلك أنه مكتبة عادية مسجلة علي الحاسب الآلي

بس بردو للأسف فية بعض أوامر ليس لدي مقدرة لتنفيذها ، يعني مثلاً إيجاد رقم الهارد ديسك الثابت وليس رقم القرص الذي يتغير بمجرد إجراء Format علي الهارد ديسك

ياريت لو تعرف حل هذا الموضوع أو مكتبة تعاونني علي ذلك لإيجاد رقم الهارد من خلال الـ WScript ، أكون شاكر جداً

HDD Serial Number = WD-WCBM8H464449

شركاً وجزاك الله كل خير

هل هذا ما تريد :

قبل أي شيء أشكرك كل الشكر علي المتابعة ،

في البداية حضرتك بدأت تفهمني ماذا أريد بالضبط ، ولكن ما تم جلبة هو مجرد Caption يعني عناوين وليس محتوي ، يعني بإختصار تم إحضار نوع الهارد وليس رقم الهارد !!!

سؤال آخر ، أنت أستخدمت دالة GetObject ، وتم الإتصال مع

قبل أي شيء أنا أشكرك كل الشكر علي المتابعة ،

هو تم جلب عناوين الهارد وليس المحتويات المطلوبة ، حيث أرغب في جلب رقم الهارد وليس إصدار أو نوع الهارد !!!

المسطلوب بالضبط هو رقم الهارد ديسك !!!

هناك شيء آخر ، أنت أستخدمت الدالة GetObject كما يلي :

Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//" & ComputerName)

دة غير أنك قمت بجلب جدول يدعي Win32_DiskDrive

دة غير أنك أستخدمت أسلوب ( قواعد بيانات ) !!!!

ممكن تشرح هذه الجزئية ، وكيفية جلب قاعدة البيانات المشار إليها ؟؟؟؟

وهل يمكنني إستخدام ADO بدلاً من هذه الطريقة ، وهل يمكن الربط المباشر ؟؟؟

شكراً

هذه روابط لعلها تفيدك إن شاء الله.

http://www.devguru.com/Technologies/ado/Qu...nd_execute.html

http://msdn.microsoft.com/en-us/library/ms675807(VS.85).aspx

http://www.tech-archive.net/Archive/Window...04-03/0046.html

http://www.technowledgebase.com/2007/06/13...ction-part-two/

http://www.tutorial-web.com/asp/database/asp.asp

http://www.visualbasicscript.com/m_59038/tm.htm

الأخ الكريم ، أنا منذ عام 2000 وأنا مبرمج فيجوال 6.0 مع أكسيس وسيكوال سيرفر وأوراكل ، دة غير أن لديا معلومات عن الويب سايت بإستخدام HTML/VBScript/ASP ، ولكن منذ حوالي سنة تقريباً بدأت مع أوراكيل صافي Oracle Develobar + Oracle Database ... يعني شغلي كلة متعلق بقواعد البيانات.

لكن سؤالي ليس متعلق بموضوع قواعد البيانات ، سؤالي متعلق بشرح الجملة التالية :

Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//" & ComputerName)

Set wmiDiskDrives = wmiServices.ExecQuery("SELECT * FROM Win32_DiskDrive")

فما هذه الجملة ؟؟؟ وما إستخداماتها ؟؟؟ وهل هي قاعدة بيانات رئيسية مدرجة بنظام التشغيل ( كما فهمت ) ؟؟؟ وكيف يمكنني الوصول إليها ؟؟؟ وهل يمكنني التعامل معها من خلال الآداة ADO ؟؟؟ ولو كانت مجرد قاعدة بيانات فهل تحتوي علي جداول شتي ؟؟؟

أشكرك مرة أخري علي المتابعة وإسرارك علي فك حاجز التشتت لدي

شكراً

نسيت أقل لك شيء ، الطريقة المذكورة لم تجلب لي رقم الهارد ديسك ، ولكن تجلب لي نوع الهارد ديس ؟؟؟

ولماذا هذا الكود لا يعمل لعد تعديلة :

ComputerName = "."

Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//" & ComputerName)

Set wmiDiskDrives = wmiServices.ExecQuery("SELECT * FROM Win32_DiskDrive")



For Each wmiDiskDrive In wmiDiskDrives

WScript.Echo wmiDiskDrive.Caption & " (" & wmiDiskDrive.SerialNumber & ")"

Next

ومن باب العلم بالشيء ، هناك طريقة أسهل وهي كما يلي :

Private Sub Command1_Click()
	'جلب رقم اللوحة الأمم.
	Dim R
	Dim Y
	Set R = CreateObject("winmgmts:")
	Set Y = R.instancesof("win32_baseboard")
	For Each T In Y
		MsgBox T.SerialNumber
	Next
End Sub

Private Sub Command2_Click()
	'جلب رقم المعالج.
	Dim Y
	Set R = CreateObject("winmgmts:")
	Set Y = R.instancesof("win32_processor")
	For Each T In Y
		MsgBox T.processorid
	Next
End Sub

لكن للأسف نفس المشكلة ما زالت موجودة عند جلب رقم الهارد ديسك بالأسلوب البسيط كما يلي :

Dim Y, R, T
Dim Arr() As Byte
Set R = CreateObject("winmgmts:")
Set Y = R.instancesof("win32_diskdrive")
For Each T In Y
	MsgBox T.SerialNumber
Next

إخواني الكرام ، رجاء رجاء رجاء المساعدة

شكراً