[VB6] Ottenere ID di un disco CD-ROM

[L'Aquila]

Ciao ragazzi, potreste dirmi come posso fare a riconoscere un disco mediante qualche identificatore del disco stesso?

:rollo:

[alka]

L'argomento è stato trattato in passato: leggi questa discussione.

Ciao!

[L'Aquila]

alka, io non voglio conoscere l'ID del disco fisso ma dei cd-rom

Per favore, protresti inserire un altro titolo alla discussione perchè quello che hai messo non mi servirà a molto.

[alka]

Originariamente inviato da L'Aquila
alka, io non voglio conoscere l'ID del disco fisso ma dei cd-rom

Quando pensavi di dirlo?

Originariamente inviato da L'Aquila
Per favore, protresti inserire un altro titolo alla discussione perchè quello che hai messo non mi servirà a molto.

Beh, neanche il titolo originale "Disc ID" mi sembrava alquanto esplicativo.

Ti serva di lezione così la prossima volta provvedi tu a mettere un titolo consono, chiaro ed esplicito.

Ciao!

[ans]

    Dim objSet As Object, objItem As Object

    Set objSet = GetObject("winmgmts:").ExecQuery("Select * from Win32_CDROMDrive ")

    For Each objItem In objSet
        If Not objItem.Availability = "Null" Then
            Debug.Print "Availability: " & objItem.Availability
        Else
            Debug.Print "Availability: "
        End If
        If Not objItem.Caption = "Null" Then
            Debug.Print "Caption: " & objItem.Caption
        Else
            Debug.Print "Caption: "
        End If
        If Not objItem.CompressionMethod = "Null" Then
            Debug.Print "CompressionMethod: " & objItem.CompressionMethod
        Else
            Debug.Print "CompressionMethod: "
        End If
        If Not objItem.ConfigManagerErrorCode = "Null" Then
            Debug.Print "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
        Else
            Debug.Print "ConfigManagerErrorCode: "
        End If
        If Not objItem.ConfigManagerUserConfig = "Null" Then
            Debug.Print "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
        Else
            Debug.Print "ConfigManagerUserConfig: "
        End If
        If Not objItem.CreationClassName = "Null" Then
            Debug.Print "CreationClassName: " & objItem.CreationClassName
        Else
            Debug.Print "CreationClassName: "
        End If
        If Not objItem.DefaultBlockSize = "Null" Then
            Debug.Print "DefaultBlockSize: " & objItem.DefaultBlockSize
        Else
            Debug.Print "DefaultBlockSize: "
        End If
        If Not objItem.Description = "Null" Then
            Debug.Print "Description: " & objItem.Description
        Else
            Debug.Print "Description: "
        End If
        If Not objItem.DeviceID = "Null" Then
            Debug.Print "DeviceID: " & objItem.DeviceID
        Else
            Debug.Print "DeviceID: "
        End If
        If Not objItem.Drive = "Null" Then
            Debug.Print "Drive: " & objItem.Drive
        Else
            Debug.Print "Drive: "
        End If
        If Not objItem.DriveIntegrity = "Null" Then
            Debug.Print "DriveIntegrity: " & objItem.DriveIntegrity
        Else
            Debug.Print "DriveIntegrity: "
        End If
        If Not objItem.ErrorCleared = "Null" Then
            Debug.Print "ErrorCleared: " & objItem.ErrorCleared
        Else
            Debug.Print "ErrorCleared: "
        End If
        If Not objItem.ErrorDescription = "Null" Then
            Debug.Print "ErrorDescription: " & objItem.ErrorDescription
        Else
            Debug.Print "ErrorDescription: "
        End If
        If Not objItem.ErrorMethodology = "Null" Then
            Debug.Print "ErrorMethodology: " & objItem.ErrorMethodology
        Else
            Debug.Print "ErrorMethodology: "
        End If
        If Not objItem.FileSystemFlags = "Null" Then
            Debug.Print "FileSystemFlags: " & objItem.FileSystemFlags
        Else
            Debug.Print "FileSystemFlags: "
        End If
        If Not objItem.FileSystemFlagsEx = "Null" Then
            Debug.Print "FileSystemFlagsEx: " & objItem.FileSystemFlagsEx
        Else
            Debug.Print "FileSystemFlagsEx: "
        End If
        If Not objItem.Id = "Null" Then
            Debug.Print "Id: " & objItem.Id
        Else
            Debug.Print "Id: "
        End If
        If Not objItem.InstallDate = "Null" Then
            Debug.Print "InstallDate: " & objItem.InstallDate
        Else
            Debug.Print "InstallDate: "
        End If
        If Not objItem.LastErrorCode = "Null" Then
            Debug.Print "LastErrorCode: " & objItem.LastErrorCode
        Else
            Debug.Print "LastErrorCode: "
        End If
        If Not objItem.Manufacturer = "Null" Then
            Debug.Print "Manufacturer: " & objItem.Manufacturer
        Else
            Debug.Print "Manufacturer: "
        End If
        If Not objItem.MaxBlockSize = "Null" Then
            Debug.Print "MaxBlockSize: " & objItem.MaxBlockSize
        Else
            Debug.Print "MaxBlockSize: "
        End If
        If Not objItem.MaximumComponentLength = "Null" Then
            Debug.Print "MaximumComponentLength: " & objItem.MaximumComponentLength
        Else
            Debug.Print "MaximumComponentLength: "
        End If
        If Not objItem.MaxMediaSize = "Null" Then
            Debug.Print "MaxMediaSize: " & objItem.MaxMediaSize
        Else
            Debug.Print "MaxMediaSize: "
        End If
        If Not objItem.MediaLoaded = "Null" Then
            Debug.Print "MediaLoaded: " & objItem.MediaLoaded
        Else
            Debug.Print "MediaLoaded: "
        End If
        If Not objItem.MediaType = "Null" Then
            Debug.Print "MediaType: " & objItem.MediaType
        Else
            Debug.Print "MediaType: "
        End If
        If Not objItem.MinBlockSize = "Null" Then
            Debug.Print "MinBlockSize: " & objItem.MinBlockSize
        Else
            Debug.Print "MinBlockSize: "
        End If
        If Not objItem.Name = "Null" Then
            Debug.Print "Name: " & objItem.Name
        Else
            Debug.Print "Name: "
        End If
        If Not objItem.NeedsCleaning = "Null" Then
            Debug.Print "NeedsCleaning: " & objItem.NeedsCleaning
        Else
            Debug.Print "NeedsCleaning: "
        End If
        If Not objItem.NumberOfMediaSupported = "Null" Then
            Debug.Print "NumberOfMediaSupported: " & objItem.NumberOfMediaSupported
        Else
            Debug.Print "NumberOfMediaSupported: "
        End If
        If Not objItem.PNPDeviceID = "Null" Then
            Debug.Print "PNPDeviceID: " & objItem.PNPDeviceID
        Else
            Debug.Print "PNPDeviceID: "
        End If
        If Not objItem.PowerManagementSupported = "Null" Then
            Debug.Print "PowerManagementSupported: " & objItem.PowerManagementSupported
        Else
            Debug.Print "PowerManagementSupported: "
        End If
        If Not objItem.RevisionLevel = "Null" Then
            Debug.Print "RevisionLevel: " & objItem.RevisionLevel
        Else
            Debug.Print "RevisionLevel: "
        End If
        If Not objItem.SCSIBus = "Null" Then
            Debug.Print "SCSIBus: " & objItem.SCSIBus
        Else
            Debug.Print "SCSIBus: "
        End If
        If Not objItem.SCSILogicalUnit = "Null" Then
            Debug.Print "SCSILogicalUnit: " & objItem.SCSILogicalUnit
        Else
            Debug.Print "SCSILogicalUnit: "
        End If
        If Not objItem.SCSIPort = "Null" Then
            Debug.Print "SCSIPort: " & objItem.SCSIPort
        Else
            Debug.Print "SCSIPort: "
        End If
        If Not objItem.SCSITargetId = "Null" Then
            Debug.Print "SCSITargetId: " & objItem.SCSITargetId
        Else
            Debug.Print "SCSITargetId: "
        End If
        If Not objItem.Size = "Null" Then
            Debug.Print "Size: " & objItem.Size
        Else
            Debug.Print "Size: "
        End If
        If Not objItem.Status = "Null" Then
            Debug.Print "Status: " & objItem.Status
        Else
            Debug.Print "Status: "
        End If
        If Not objItem.StatusInfo = "Null" Then
            Debug.Print "StatusInfo: " & objItem.StatusInfo
        Else
            Debug.Print "StatusInfo: "
        End If
        If Not objItem.SystemCreationClassName = "Null" Then
            Debug.Print "SystemCreationClassName: " & objItem.SystemCreationClassName
        Else
            Debug.Print "SystemCreationClassName: "
        End If
        If Not objItem.SystemName = "Null" Then
            Debug.Print "SystemName: " & objItem.SystemName
        Else
            Debug.Print "SystemName: "
        End If
        If Not objItem.TransferRate = "Null" Then
            Debug.Print "TransferRate: " & objItem.TransferRate
        Else
            Debug.Print "TransferRate: "
        End If
        If Not objItem.VolumeName = "Null" Then
            Debug.Print "VolumeName: " & objItem.VolumeName
        Else
            Debug.Print "VolumeName: "
        End If
        If Not objItem.VolumeSerialNumber = "Null" Then
            Debug.Print "VolumeSerialNumber: " & objItem.VolumeSerialNumber
        Else
            Debug.Print "VolumeSerialNumber: "
        End If
    Next

credo che di + non puoi sapere, vedi se qualcosa puo' servirti.