Sub Get_DeviceID As String
Dim sb As StringBuilder
sb.Initialize
Dim sr As String
Try
Dim sr As String = pdd.Get_MotherboardSN
If sr <> Null And Not(sr.Contains("O.E.M")) Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_CPUID
If sr <> Null Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_MachineID
If sr <> Null Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_HddID1
If sr <> Null Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_HddID2
If sr <> Null Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_MacId
If sr <> Null Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_BiosVersion
If sr <> Null Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_CPUName
If sr <> Null Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_GpuID
If sr <> Null Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_MotherboardSN2
If sr <> Null Then sb.Append(sr)
Catch
End Try
Try
sr = pdd.Get_HWID1
If sr <> Null Then sb.Append(sr)
Catch
End Try
sr = sb.ToString
If sr.Trim.Length < 8 Then
sr = sr & GetEnvironmentVariable("computername","") & GetSystemProperty("user.name","")
End If
sr = sr.Replace(" ", "").Replace("\", "").Replace("/", "").Replace(":", "")
sr = Main.appname & "_" & sr
If sr.Length > 48 Then
sr = sr.SubString2(0, 48)
End If
Return sr.ToLowerCase
End Sub