要在VBScript中判断电脑运行多久，你可以使用`Timer`对象来记录程序开始执行的时间，然后在程序结束时计算并显示运行时长。以下是一个简单的示例：
```vbscript
' 在程序开头用一个变量保存Timer值
Dim t
t = Timer
' 你的程序代码
' ...
' 在程序结尾计算并显示运行时长
MsgBox "执行时间: " & Timer - t
```
将上述代码保存为一个VBScript文件（例如：`run_time.vbs`），然后运行它。程序执行完毕后，会弹出一个消息框显示从程序开始执行到结束所经过的时间。
如果你需要更精确的时间测量，可以考虑使用`GetTickCount`函数，该函数返回自Windows启动以来经过的毫秒数。以下是一个使用`GetTickCount`的示例：
```vbscript
Private Declare Function GetTickCount Lib "kernel32" () As Integer
Sub Main()
Dim resRunTime As Long
Dim temp As Double
Dim tempHour, tempMinute, tempSecond As Integer
' 获取自windows启动以来经历的时间长度(毫秒)
resRunTime = GetTickCount
' 计算秒
temp = resRunTime / 1000
' 计算小时
tempHour = temp / 3600
' 计算分
tempMinute = (temp / 3600 - tempHour) * 60
' 计算秒
tempSecond = ((temp / 3600 - tempHour) * 60 - tempMinute) * 60
' 显示运行时长
MsgBox "Windows运行时间: " & tempHour & ":" & tempMinute & ":" & tempSecond
End Sub
Main()
```
将上述代码保存为一个VBScript文件（例如：`run_time_精确.vbs`），然后运行它。程序执行完毕后，会弹出一个消息框显示从Windows启动以来经过的精确时间。
请注意，`GetTickCount`返回的是DWORD值，因此在Windows 2000年1月1日00:00:00之后重启的系统，`GetTickCount`的值会在2147483647（即`2^32 - 1`）后溢出并回绕到0，这可能会导致计算结果不准确。如果需要处理这种情况，可以考虑使用其他方法来记录系统启动时间，例如通过读取注册表或使用WMI事件。