- Код: Выделить всё
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem In colItems
Debug.Print "VolumeSerialNumber: " & objItem.VolumeSerialNumber
Next
На сколько я понимаю, у чистого диска его нет, появляется при записи сессии. При записи следующей сессии он меняется. Получается, номер прописывается в саму сессию. Если так, то можно ли выцепить номер предыдущей сессии?