listluns.vbs

SCSI 的虚拟磁盘驱动 需要 windows DDK 很易懂的 DDK 文件结构

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemService = objSWbemLocator.ConnectServer(, "root\wmi")
Set colLUNs = objSWbemService.Get("VDISKMP_LUN").Instances_
For Each LUN in colLUNs
	WScript.Echo("Bus " + CStr(LUN.Bus) + " Target " + CStr(LUN.Target) + _
                                            " LUN " + CStr(LUN.Lun) + " " + LUN.FileName)
Next