Prova con questo:
Dim objWMIService, colItems
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem", , 48)
For Each objItem In colItems
MsgBox "Name: " & objItem.Name
Next
Ti dà il nome del sistema operativo attivo e il disco dove è installato.
io però ho due sistemi operativi ma sullo stesso disco.
Non so che risultati da con due dischi diversi.
|