利用 VBS 轻松显示当前标准时间

2023-09-09 15:57:45

使用 VBS 脚本轻松显示当前时间

在繁忙的数字世界中，准确了解时间至关重要。VBS（Visual Basic Scripting）是一种强大且易于使用的脚本语言，可用于轻松地在您的计算机上显示当前标准时间。

准备工作

在开始之前，您需要确保计算机上已经安装了 VBScript 运行环境。如果没有安装，请从微软官方网站下载并安装 VBScript 运行时库。

创建 VBS 脚本文件

创建新的文本文件。 使用记事本或其他文本编辑器创建一个新的文本文件。
复制并粘贴代码。 将以下代码复制并粘贴到文本文件中：

' 创建一个新对象，用于获取系统时间
Dim objWMI

Set objWMI = GetObject("winmgmts:\\.\root\CIMV2")

' 查询当前时间
Dim colItems

Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_LocalTime")

' 遍历查询结果，并显示当前时间
For Each objItem in colItems
    WScript.Echo "当前时间：" & objItem.LocalDateTime
Next

保存脚本文件

将文件另存为 .vbs。 将文本文件保存为具有 .vbs 扩展名的文件。例如，您可以将其命名为 "ShowCurrentTime.vbs"。
选择保存位置。 将脚本文件保存到一个方便您找到的位置，例如桌面或文档文件夹。

运行脚本

双击文件。 双击脚本文件 "ShowCurrentTime.vbs"。
查看输出。 脚本将运行，并在计算机屏幕上显示当前标准时间。

更多进阶应用

自动刷新时间： 您可以通过在脚本中添加一个循环来实现自动刷新时间的功能。例如，您可以使用以下代码在每隔一分钟刷新时间：

Do
    ' 查询当前时间并显示
    Dim objWMI

    Set objWMI = GetObject("winmgmts:\\.\root\CIMV2")

    Dim colItems

    Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_LocalTime")

    For Each objItem in colItems
        WScript.Echo "当前时间：" & objItem.LocalDateTime
    Next

    ' 等待一分钟
    WScript.Sleep 60000
Loop

将时间写入文件： 您可以通过将时间信息写入文件来实现记录时间的目的。例如，您可以使用以下代码将时间信息写入一个名为 "time_log.txt" 的文件中：

' 创建一个新对象，用于获取系统时间
Dim objWMI

Set objWMI = GetObject("winmgmts:\\.\root\CIMV2")

' 查询当前时间
Dim colItems

Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_LocalTime")

' 将时间信息写入文件
Dim objFSO, objTextFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("time_log.txt", True)

For Each objItem in colItems
    objTextFile.WriteLine "当前时间：" & objItem.LocalDateTime
Next

objTextFile.Close()