Bonjour,
Je récupère le Numéro de série du disque de la manière suivante (grosso modo la même façon que ce qui est décrit dans la faq):
Pas de problème dans l'exécution mais sur quelques postes, le numéro renvoyé varie, sans changement apparant, sur le disque, pas de reformatage ni subst...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Function GetDiskSerialNumber() As String Try Dim lettre As String = Environment.CurrentDirectory.Substring(0, 1) Dim disque As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid='" & lettre & ":'") disque.Get() Return disque.GetPropertyValue("VolumeSerialNumber") Catch ex As Exception Tableau.core.Messaging.LogMsg(ex) Return "" End Try End Function
Quelqu'un a-t-il une idée de l'origine du phénomène?
Partager