使用VBScript获取时钟服务器时间

　　

使用VBScript获取时钟服务器时间的详细阐述

VBScript是一种微软拥有的脚本语言，它可以通过各种方法来执行与Windows操作系统交互的任务。获取网络上的时间和日期对于许多计算机应用程序和操作系统来说非常重要。因此，本文将从四个方面详细介绍如何使用VBScript获取时钟服务器时间并使用。

 

　　

1、VBScript获取时钟服务器时间的基础知识

在开始使用VBScript获取时钟服务器时间之前，我们需要了解一些基本概念。网络时间协议（NTP）是一个用于在计算机之间同步时钟的协议。根据此协议，计算机可以连接到可靠的NTP服务器并使用该服务器的时间同步其本地计算机的时钟。VBScript可以使用Windows API来连接到NTP服务器并获取其时间。我们将在后续的部分中探讨这个主题。

 

　　NTP服务器分为两类 :本地和互联网。本地NTP服务器是连接到您的网络的本地服务器，而互联网NTP服务器是连接到公共互联网的服务器。从互联网上获取NTP时间通常比从本地网络获取NTP时间更可靠，因为互联网NTP服务器通常比本地服务器更准确。

　　

1.1 VBScript如何连接到时钟服务器

要使用VBScript连接到NTP服务器，我们需要使用Windows API。这个API提供了一种名为W32TM的命令行工具，可以让我们连接到NTP服务器并检索时间。以下是连接到NTP服务器的VBScript代码片段:

 

　　```

　　Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

　　Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name=W32Time")

　　For Each objService In colServiceList

　　 objService.StartService()

　　Next

　　```

　　此代码片段从WMI中获取Win32_Service，并选择名称为W32Time的服务。此服务是Windows Time服务，它是Windows API中提供的一种访问NTP服务器的方法。然后，它启动此服务并允许我们使用此服务连接到时钟服务器并检索时间。

　　

2、VBScript如何获取与操作系统时钟同步的时钟服务器时间

要使用VBScript获取与操作系统时钟同步的时钟服务器时间，我们需要先通过W32Time服务启用Windows Time服务并将其配置为使用Internet上的可靠NTP服务器。以下是VBScript代码示例:

 

　　```

　　Set objShell = CreateObject("WScript.Shell")

　　strCommand = "cmd /c w32tm /config /manualpeerlist:" & Chr(34) & "0.north-america.pool.ntp.org 1.north-america.pool.ntp.org 2.north-america.pool.ntp.org 3.north-america.pool.ntp.org" & Chr(34) & " /syncfromflags:manual /reliable:yes /update"

　　objShell.Run strCommand, 0, True

　　```

　　此代码片段通过wtm命令行工具将Windows Time服务配置为使用四个NTP服务器（由north-america.pool.ntp.org提供）从Internet获取UTC时间。我们还可以使用另一个重要的参数"/syncfromflags：DOMHIER"，以自动从域控制器的时钟服务器获取时间。

　　

3、VBScript如何计算与操作系统时钟的时间差

要计算VBScript获取的NTP时间与操作系统时钟的时间差，我们需要先使用VBScript获取NTP时间。接下来，我们使用VBScript内置函数Now()获取操作系统时间。我们将NTP时间和操作系统时间之间的差异设置为一个变量，并将其用作时间差。以下是VBScript代码示例:

 

　　```

　　Set objShell = CreateObject("WScript.Shell")

　　strCommand = "cmd /c w32tm /query /status"

　　Set objExec = objShell.Exec(strCommand)

　　Set objStdOut = objExec.StdOut

　　strResults = objStdOut.ReadAll

　　arrResults = Split(strResults, vbcrlf)

　　For Each strResult in arrResults

　　 If InStr(strResult, "Leap Indicator:") > 0 Then

　　 intLeapIndicator = Mid(strResult, InStr(strResult, ":") + 2, 1)

　　 ElseIf InStr(strResult, "Time (UTC):") > 0 Then

　　 dtmUTC = Mid(strResult, InStr(strResult, ":") + 2)

　　 dtmUTC = CDate(dtmUTC)

　　 ElseIf InStr(strResult, "Time since last") > 0 Then

　　 lngLastSynched = CLng(Mid(strResult, InStr(strResult, ":") + 2))

　　 End If

　　Next

　　dtmLocalTime = Now()

　　lngTimeDifference = DateDiff("s", dtmUTC, dtmLocalTime)

　　```

　　此代码片段使用W32Time服务查询当前状态，并从其输出中提取时间信息。它还使用VBScript内置函数Now()以获取操作系统当前时间。最后，它计算NTP时间和操作系统时间之间的差异并将其视为时间差。

　　

4、VBScript如何使用时钟服务器时间

有了VBScript获取的时钟服务器时间，我们可以在许多地方使用它。以下是VBScript代码示例:

 

　　（1）使用WScript.Echo显示时间和日期：

　　```

　　WScript.Echo "The time is: " & TimeValue(dtmUTCTime) & vbcrlf & "The date is: " & DateValue(dtmUTCTime)

　　```

　　此代码片段使用VBScript函数TimeValue和DateValue将时间值和日期值提取出来，并使用WScript.Echo函数将它们显示在屏幕上。

　　（2）在文件名中使用时间和日期：

　　```

　　strFileName = "MyFile_" & Year(dtmUTCTime) & "-" & Month(dtmUTCTime) & "-" & Day(dtmUTCTime) & "_" & TimeValue(dtmUTCTime)

　　```

　　此代码片段使用VBScript函数Year，Month，Day和TimeValue将时间和日期提取出来并将它们组合成文件名。

　　（3）计算持续时间：

　　```

　　dtmStartTime = #8:30:00 AM#

　　dtmEndTime = #5:00:00 PM#

　　dblDuration = DateDiff("n", dtmStartTime, dtmEndTime) / 60 in hours

　　```

　　此代码片段使用VBScript函数DateDiff计算时间的持续时间，并将持续时间设置为以小时为单位的浮点值。

　　综上，VBScript是一种强大的脚本语言，它可以用来获取网络上的时间和日期以及执行与Windows操作系统交互的任务。通过使用Windows Time服务，我们可以连接到NTP服务器并获取其时间。我们还可以使用VBScript来计算与操作系统时钟的时间差并将时钟服务器时间用于计算持续时间或在文件名中使用它。使用VBScript获取时钟服务器时间是一个非常有用的技能，可以为您带来很多便利。

　　总结：

　　通过本文，您可以学习到使用VBScript获取时钟服务器时间的方式、VBScript如何获取与操作系统时钟同步的时钟服务器时间、VBScript如何计算与操作系统时钟的时间差以及VBScript如何使用时钟服务器时间。学会这些技能可以使您的计算机处理任务更为简单和高效。

　　

上一篇：设置Tomcat服务器启动时间，优化网站性能 下一篇：如何在Windows 7中设置NTP时间服务器