将UpTime JS代码转换为VBS

Question

我正在生成一个“正常运行”的Win7小工具，并试图复制在类似小工具中找到的.vbs代码。

我是一个.js程序员。

相关JS：

vbStr=GetUpTime();

相关VBS：

Function GetUpTime
    Set loc=CreateObject("WbemScripting.SWbemLocator")
    Set svc=loc.ConnectServer(MachineName, "root\cimv2")
    Set oss=svc.ExecQuery("SELECT * FROM Win32_OperatingSystem")
    For Each os in oss
        tim=os.LastBootUpTime
    Next
    GetUpTime=tim
End Function

由于目前只有1个os在运行，因此这个.vbs基本上做到了这一点。我想通过学习来扩展这一点：

1) MachineName的相关性是什么

如果我返回MachineName而不是tim，我会得到一个undefined值。

2)如何在没有For Each循环的情况下提取单独的.js，等价于.js：

os=oss[n];

3)如何返回与每个os相关的tim数组。

.vbs代码遍历可用的os并获得它们各自的运行时间，但开发人员只计划了1个os，因此没有代码返回tim的数组。在研究了.vbs数组之后，我发现如何创建一个'set-length‘数组，但这并不重要！

Answer 1

未定义

1. 计算机名称，因此将其视为零长度字符串。这意味着它被忽略了。通常情况下，您要查询的是网络上的计算机。它是可选的，因此它的未声明不会引发错误。使用COM缩写的
2. (其中Items是默认属性)

os=oss(1)

或全部

      os=oss.items(1)

1. 字典更简单(来自帮助)。

Set d= CreateObject("Scripting.Dictionary") d.Add "a"，“Add”‘添加一些键和项。开罗"b"，“贝尔格莱德”d.Add "c"，“d.Add”

注:与VBScript一样，JScript也使用COM。代码应该是类似的。