'قم بإضافة System.Management
'عن طريق القائمة Project - > Add Reference
Public Function GetDriveSerial(ByVal DriveLetter As String) As String
Dim strSelectText As String = "Win32_logicaldisk='" & DriveLetter & "'"
Dim objMO As New System.Management.ManagementObject(strSelectText)
objMO.Get()
Return CType(objMO.Properties("VolumeSerialNumber").Value, String)
End Function
'الكود
MsgBox(GetDriveSerial("c:"))
Please SUBSCRIBE to get new articles directly into your Email inbox!
'عن طريق القائمة Project - > Add Reference
Public Function GetDriveSerial(ByVal DriveLetter As String) As String
Dim strSelectText As String = "Win32_logicaldisk='" & DriveLetter & "'"
Dim objMO As New System.Management.ManagementObject(strSelectText)
objMO.Get()
Return CType(objMO.Properties("VolumeSerialNumber").Value, String)
End Function
'الكود
MsgBox(GetDriveSerial("c:"))
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق