在vbscript中连接"changes“输出

Question

我对vbscript有一个“问题”。我检查cd是否加载了这段代码：

On Error Resume Next
Computer = "."
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_CDROMDrive WHERE DRIVE = 'F:'",,48)
For Each SubItems in Items
WScript.Echo "DRIVE: "&SubItems.MediaLoaded
Next

它返回"DRIVE: False“

但是，如果我更改打印输出的行：

WScript.Echo SubItems.MediaLoaded

返回-1

有人知道我是怎么得到"DRIVE:-1“的吗？

多亏了madzone，我用WScript.Echo "DRIVE："&cint(SubItems.MediaLoaded)解决了这个问题。

Answer 1

我的英语不好，我认为埃克哈德·霍纳的解释比我的要好。我所知道的是，字符串连接将Boolean数据类型转换为文字形式。

WScript.Echo "" & False, 0, False  '>> False 0 0
WScript.Echo "" & True, -1, True   '>> True -1 -1
WScript.Echo 0 = False, 0 = True   '>> -1 0
WScript.Echo -1 = False, -1 = True '>> 0 -1

Answer 2

使用CInt函数将字符串转换回整数。

WScript.Echo "Drive: " & CInt(SubItems.MediaLoaded)

Answer 3

根据the docs，.MediaLoaded的类型是布尔型的

MediaLoaded

数据类型:布尔访问类型:只读如果为True，则驱动器中有CD-ROM。

连接操作符&正确处理VBScript的(sub)类型：

>> bTrue = True
>> bFalse = False
>> n0 = 0
>> nM1 = -1
>> WScript.Echo "&" & bTrue & bFalse & n0 & nM1
>>
&TrueFalse0-1

WScript.Echo的内部字符串生成器组件不：

>> WScript.Echo ".Echo ,", bTrue, bFalse, n0, nM1
>>
.Echo , -1 0 0 -1

可能&运算符在内部调用CStr()：

>> WScript.Echo "CStr() ,", CStr(bTrue), CStr(bFalse), CStr(n0), CStr(nM1)
>>
CStr() , True False 0 -1

Join函数也很勤奋：

>> WScript.Echo "Join", Join(Array(bTrue, bFalse, n0, nM1))
>>
Join True False 0 -1

当然，您有权让您的输出看起来像这样

DRIVE: 0
DRIVE: -1

而不是：

MediaLoaded: False
MediaLoaded: True

但是，指责勤劳的人改变了一切是不公平的。