물리적 드라이브 경로와 드라이브 문자 연결을 가져오고 CDROM을 놓친 경우

Question

다음 WMI 스크립트를 실행하여 시스템의 드라이브 문자와 물리적 드라이브 간의 연결을 가져 오지만 어떤 이유로 CDROM/DVD-ROM이 누락됩니다. 누군가 그걸 어떻게 얻을 수 있는지 말해 줄 수 있습니까?

ComputerName = "." 
Set wmiServices = GetObject _ 
    ("winmgmts:{impersonationLevel=Impersonate}!//" & ComputerName) 
Set wmiDiskDrives = wmiServices.ExecQuery _ 
    ("SELECT DeviceID FROM Win32_DiskDrive") 

For Each wmiDiskDrive In wmiDiskDrives 
    strEscapedDeviceID = _ 
     Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare) 
    Set wmiDiskPartitions = wmiServices.ExecQuery _ 
     ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _ 
      strEscapedDeviceID & """} WHERE " & _ 
       "AssocClass = Win32_DiskDriveToDiskPartition") 

    For Each wmiDiskPartition In wmiDiskPartitions 
     Set wmiLogicalDisks = wmiServices.ExecQuery _ 
      ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _ 
       wmiDiskPartition.DeviceID & """} WHERE " & _ 
        "AssocClass = Win32_LogicalDiskToPartition") 

     For Each wmiLogicalDisk In wmiLogicalDisks 
      WScript.Echo wmiLogicalDisk.DeviceID & " = " & wmiDiskDrive.DeviceID 
     Next 
    Next 
Next 

Answer 1

, 여기에 CD-ROM 드라이브를 나열 할 수있는 기능을 추가하는 스크립트입니다.

ComputerName = "." 

Set dictDrives = CreateObject("Scripting.Dictionary") 
Set listDriveLetters = CreateObject("System.Collections.ArrayList") 

Set wmiServices = GetObject _ 
    ("winmgmts:{impersonationLevel=Impersonate}!//" & ComputerName) 
Set wmiDiskDrives = wmiServices.ExecQuery _ 
    ("SELECT DeviceID FROM Win32_DiskDrive") 

For Each wmiDiskDrive In wmiDiskDrives 
    strEscapedDeviceID = Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare) 
    Set wmiDiskPartitions = wmiServices.ExecQuery _ 
     ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _ 
      strEscapedDeviceID & """} WHERE " & _ 
       "AssocClass = Win32_DiskDriveToDiskPartition") 

    For Each wmiDiskPartition In wmiDiskPartitions 
     Set wmiLogicalDisks = wmiServices.ExecQuery _ 
      ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _ 
       wmiDiskPartition.DeviceID & """} WHERE " & _ 
        "AssocClass = Win32_LogicalDiskToPartition") 

     For Each wmiLogicalDisk In wmiLogicalDisks 
      listDriveLetters.Add wmiLogicalDisk.DeviceID 
      dictDrives.Add wmiLogicalDisk.DeviceID, wmiDiskDrive.DeviceID 
     Next 
    Next 
Next 

Set wmiCDROMDrives = wmiServices.ExecQuery _ 
    ("Select DeviceID, Drive, MediaLoaded from Win32_CDROMDrive") 

For Each wmiCDROMDrive in wmiCDROMDrives 
    If wmiCDROMDrive.MediaLoaded Then   ' Only show drives with inserted media 
     listDriveLetters.Add wmiCDROMDrive.Drive 
     dictDrives.Add wmiCDROMDrive.Drive, wmiCDROMDrive.DeviceID 
    End If 
Next 

listDriveLetters.Sort       ' List the drives in alphabetical order 

For Each strDriveLetter in listDriveLetters 
    WScript.Echo strDriveLetter & " = " & dictDrives.Item(strDriveLetter) 
Next 

Answer 2

난 당신이 CD-ROM 정보에 액세스 할 수 Win32_CDROMDrive WMI 클래스를 사용할 필요가 같으면 생각합니다. 위의 코드는 Win32_DiskDrive 클래스의 실제 드라이브를 찾고 있습니다. CD_ROM은 제외합니다.

유사한 데이터를 얻으려면 추가 행을 추가 할 수 있지만 동일한 CD-ROM에는 현재 코드가 아닌 파티션 특성이 없습니다. 5 월 부분을 내가 파티션 정보가 당신에게 관련되어 있다고 생각하지 말아로 -

ComputerName = "." 
Set wmiServices = GetObject _ 
        ("winmgmts:{impersonationLevel=Impersonate}!//" & ComputerName) 
Set wmiDiskDrives = wmiServices.ExecQuery _ 
        ("SELECT * FROM Win32_CDROMDrive") 
For Each wmiDiskDrive In wmiDiskDrives 
    MsgBox wmiDiskDrive.drive & "=" & wmiDiskDrive.DeviceID 
Next 

대신 나는이 다른 VBS 가 당신이 원하는 것을 할 수있다 생각한다.

vbs 버전

Dim objFSO 
Dim colDrives 
Dim strOut 
Dim strArray 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set colDrives = objFSO.Drives 
strArray = Array("Unknown", "Removable", "Fixed", "Network", "CD-ROM", "RAM Disk") 
On Error Resume Next 
'File system errors for virtual drives 
For Each objDrive In colDrives 
    strOut = "Drive letter: " & objDrive.DriveLetter & vbNewLine 
    strOut = strOut & ("Drive type: " & strArray(objDrive.DriveType) & vbNewLine) 
    strOut = strOut & ("File system: " & objDrive.FileSystem & vbNewLine) 
    strOut = strOut & ("Path: " & objDrive.Path) 
    wscript.echo strOut 
Next 
On Error GoTo 0 

vba 버전까지 의견을 모두 고려

Sub Test() 
Dim objFSO As Object 
Dim colDrives As Object 
Dim strOut As String 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set colDrives = objFSO.Drives 
On Error Resume Next 
'File system errors for virtual drives 
For Each objDrive In colDrives 
    strOut = "Drive letter: " & objDrive.DriveLetter & vbNewLine 
    strOut = strOut & ("Drive type: " & Choose(objDrive.DriveType + 1, "Unknown", "Removable", "Fixed", "Network", "CD-ROM", "RAM Disk") & vbNewLine) 
    strOut = strOut & ("File system: " & objDrive.FileSystem & vbNewLine) 
    strOut = strOut & ("Path: " & objDrive.Path) 
    MsgBox strOut 
Next 
On Error GoTo 0 
End Sub