[Mohamed20]

لماذا لا يعمل هذا الطود مع الجميع يعمل مع البعض و البعض الاخر يعطى رسالة خطاء

كود :

   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