Vbscript 显示多个驱动器信息的WMI脚本问题

Vbscript 显示多个驱动器信息的WMI脚本问题,vbscript,Vbscript,请注意,我是WMI的新手,一天中的大部分时间都在研究这个问题,尽管有上百篇文章,我仍在努力寻找关于这个特定问题的帮助 使用Win32_DiskDrive时遇到问题-标题和名称函数: 当我执行VB.script时: 尝试 将连接设置为新连接选项 connection.Username=userNameBox.Text connection.Password=密码框.Text connection.Authority=“ntlmdomain:ms1” 它正确地列出了我正在查询的服务器中的5个硬盘驱动

请注意,我是WMI的新手,一天中的大部分时间都在研究这个问题,尽管有上百篇文章,我仍在努力寻找关于这个特定问题的帮助

使用Win32_DiskDrive时遇到问题-标题和名称函数: 当我执行VB.script时: 尝试 将连接设置为新连接选项 connection.Username=userNameBox.Text connection.Password=密码框.Text connection.Authority=“ntlmdomain:ms1”

它正确地列出了我正在查询的服务器中的5个硬盘驱动器

但是当我在asp.net(vb)中执行它时,它只列出1个驱动器

    Dim query4 As New ObjectQuery("Select * from Win32_DiskDrive")

    Dim searcher4 As New ManagementObjectSearcher(scope, query4)


    For Each queryObj3 As ManagementObject In searcher4.Get()

        'Availability

        ' text15.Text = queryObj3("Name")

        text16.Text = queryObj3("Caption")

    Next
我的结果被绑定到一个文本字段,格式化为换行和多行

问候


Louis van Rooyen

似乎您一次又一次地编写了
text16.Text,因此最终的结果将只是最后一台设备的信息

请尝试连接字符串:

' TODO: Use proper string formating instead of simpy string concatenating  '
text16.Text = text16.Text & queryObj3("Caption")

这不是VBScript。它在Dim后面有'As'关键字,这表明它实际上是VB6或其他东西。你能更改标签吗?:)
' TODO: Use proper string formating instead of simpy string concatenating  '
text16.Text = text16.Text & queryObj3("Caption")