كود لمعرفة رقم Volume

#111 أغسطس 2006 في 02:19 صاحب الموضوع

الأخوة الأفاضل

أبحث عن كود لمعرفة رقم Volume الخاص بدرايف معين

اى الكود الذى يودى نفس وظيفة الأمرVol فى الدوس

ولكم جزيل الشكر

كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر

#211 أغسطس 2006 في 03:57

استخدم GetVolumeInformation

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس
حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم
و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "

#312 أغسطس 2006 في 14:48

او استخدم الكود التالي لمعرفة جميع اخبار و معلومات و دقائق و حراكيش الهارديسك

On Error Resume Next
Computer = "."
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\Win32_DiskDrive.txt", ForAppending, True)
TextFile.WriteLine "Script for Win32_DiskDrive Class by Karthikeyan"
TextFile.WriteLine 
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
For Each SubItems in Items
TextFile.WriteLine "********************************************************************"
	TextFile.WriteLine "Availability: " & SubItems.Availability
	TextFile.WriteLine "BytesPerSector: " & SubItems.BytesPerSector
	TextFile.WriteLine "Capabilities: " & SubItems.Capabilities
	TextFile.WriteLine "CapabilityDescriptions: " & SubItems.CapabilityDescriptions
	TextFile.WriteLine "Caption: " & SubItems.Caption
	TextFile.WriteLine "CompressionMethod: " & SubItems.CompressionMethod
	TextFile.WriteLine "ConfigManagerErrorCode: " & SubItems.ConfigManagerErrorCode
	TextFile.WriteLine "ConfigManagerUserConfig: " & SubItems.ConfigManagerUserConfig
	TextFile.WriteLine "CreationClassName: " & SubItems.CreationClassName
	TextFile.WriteLine "DefaultBlockSize: " & SubItems.DefaultBlockSize
	TextFile.WriteLine "Description: " & SubItems.Description
	TextFile.WriteLine "DeviceID: " & SubItems.DeviceID
	TextFile.WriteLine "ErrorCleared: " & SubItems.ErrorCleared
	TextFile.WriteLine "ErrorDescription: " & SubItems.ErrorDescription
	TextFile.WriteLine "ErrorMethodology: " & SubItems.ErrorMethodology
	TextFile.WriteLine "Index: " & SubItems.Index
	TextFile.WriteLine "InstallDate: " & SubItems.InstallDate
	TextFile.WriteLine "InterfaceType: " & SubItems.InterfaceType
	TextFile.WriteLine "LastErrorCode: " & SubItems.LastErrorCode
	TextFile.WriteLine "Manufacturer: " & SubItems.Manufacturer
	TextFile.WriteLine "MaxBlockSize: " & SubItems.MaxBlockSize
	TextFile.WriteLine "MaxMediaSize: " & SubItems.MaxMediaSize
	TextFile.WriteLine "MediaLoaded: " & SubItems.MediaLoaded
	TextFile.WriteLine "MediaType: " & SubItems.MediaType
	TextFile.WriteLine "MinBlockSize: " & SubItems.MinBlockSize
	TextFile.WriteLine "Model: " & SubItems.Model
	TextFile.WriteLine "Name: " & SubItems.Name
	TextFile.WriteLine "NeedsCleaning: " & SubItems.NeedsCleaning
	TextFile.WriteLine "NumberOfMediaSupported: " & SubItems.NumberOfMediaSupported
	TextFile.WriteLine "Partitions: " & SubItems.Partitions
	TextFile.WriteLine "PNPDeviceID: " & SubItems.PNPDeviceID
	TextFile.WriteLine "PowerManagementCapabilities: " & SubItems.PowerManagementCapabilities
	TextFile.WriteLine "PowerManagementSupported: " & SubItems.PowerManagementSupported
	TextFile.WriteLine "SCSIBus: " & SubItems.SCSIBus
	TextFile.WriteLine "SCSILogicalUnit: " & SubItems.SCSILogicalUnit
	TextFile.WriteLine "SCSIPort: " & SubItems.SCSIPort
	TextFile.WriteLine "SCSITargetId: " & SubItems.SCSITargetId
	TextFile.WriteLine "SectorsPerTrack: " & SubItems.SectorsPerTrack
	TextFile.WriteLine "Signature: " & SubItems.Signature
	TextFile.WriteLine "Size: " & SubItems.Size
	TextFile.WriteLine "Status: " & SubItems.Status
	TextFile.WriteLine "StatusInfo: " & SubItems.StatusInfo
	TextFile.WriteLine "SystemCreationClassName: " & SubItems.SystemCreationClassName
	TextFile.WriteLine "SystemName: " & SubItems.SystemName
	TextFile.WriteLine "TotalCylinders: " & SubItems.TotalCylinders
	TextFile.WriteLine "TotalHeads: " & SubItems.TotalHeads
	TextFile.WriteLine "TotalSectors: " & SubItems.TotalSectors
	TextFile.WriteLine "TotalTracks: " & SubItems.TotalTracks
	TextFile.WriteLine "TracksPerCylinder: " & SubItems.TracksPerCylinder
TextFile.WriteLine "********************************************************************"
Next
TextFile.Close
OutFile.Run "notepad.exe c:\Win32_DiskDrive.txt",1,True

كود لمعرفة رقم Volume

مواضيع مشابهة