如何区分是只读光驱还是刻录机 如何在VB中通过代码区分是光驱还是刻录机? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 看 FSO 中 Driver 对象的 FreeSpace 属性是否为 0 试试。 On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_cdromDrive")For Each objItem in colItems Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "DMA Buffer Size: " & objItem.DMABufferSize Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "MPU 401 Address: " & objItem.MPU401Address Wscript.Echo "Name: " & objItem.Name Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID Wscript.Echo "Product Name: " & objItem.ProductName Wscript.Echo "Status Information: " & objItem.StatusInfoNext F1 请问VB6 有无象delphi 中的 scrollbox 一样的控件? ======初学VB 请大家推荐几本好书======== 用VB有没有什么读写XML的好方法或API? 关于使用VB编写随机抽取的测试题请您帮忙!!要快! 关于导入数据的问题,请指教! 100分寻求高手提示一下!! 着急!!!!!!!!!!!!!!! 有没有vb学习的好网站 为什么!为什么!为什么!为什么我的LISTVIEW全变成的PICTUREBOX? 【200分】★★★★★继续问个难的问题:如何获取一个OLE对象的坐标?★★★★★ 查找算法,高手帮忙!!!
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_cdromDrive")
For Each objItem in colItems
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Device ID: " & objItem.DeviceID
Wscript.Echo "DMA Buffer Size: " & objItem.DMABufferSize
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "MPU 401 Address: " & objItem.MPU401Address
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
Wscript.Echo "Product Name: " & objItem.ProductName
Wscript.Echo "Status Information: " & objItem.StatusInfo
Next