08-10-16, 02:45 AM
لماذا لا يعمل هذا الطود مع الجميع يعمل مع البعض و البعض الاخر يعطى رسالة خطاء
كود :
Public Shared Function GetRegistrationKey() As String
Try
Dim DiskID As String = Nothing
Dim DiskSerial As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
Dim DiskNo As ManagementObject
Dim array As New ArrayList
For Each DiskNo In DiskSerial.Get()
DiskID = DiskNo("Signature").ToString
array.Add(DiskID)
Next DiskNo
Return DiskID
Catch ex As Exception
End Try
End Function