用VBS修改（设置）系统时间和日期的代码

那天跟别人聊到 Y2K38 问题，于是想到一个恶作剧：用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后，这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢？

最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time 命令：


代码如下:

'Author: Demon
'Website: http://demon.tw
'Date : 2011/4/27
Dim WshShell
Set WshShell = CreateObject("wscript.Shell")
WshShell.Run "cmd.exe /c date 2038-01-19", 0
WshShell.Run "cmd.exe /c time 3:14:08", 0

比较有技术含量的方法是用 WMI 的 Win32_OperatingSystem 类的 SetDateTime 方法：


代码如下:

'Author: Demon
'Website: http://demon.tw
'Date : 2011/4/27
dtmNewDateTime = "20380119031408.000000+480" 'UTC时间
strComputer = "."
Set objWMIService = GetObject("winmgmts:{(Systemtime)}\\" & strComputer & "\root\cimv2")
Set colOSes = objWMIService.ExecQuery("Select * From Win32_OperatingSystem")
For Each objOS In colOSes
objOS.SetDateTime dtmNewDateTime
Next

Windows 7 在开启 UAC 的情况下需要管理员权限才能修改时间，一点也不好玩。

参考链接：Hey, Scripting Guy! How Can I Set the Date and Time on a Computer?

来自: http://demon.tw/programming/vbs-modify-system-time.html

赞 (0)

相关推荐

  • VBS的字符串及日期操作相关函数

    1. Asc(x),Chr(x):转换字符,字符码 2. Filter:搜寻字符串数组中的特定字符串 格式:v=filter(x,s[,include[,compare]]) 实例: Dim x()={"kjwang","wangkj","peter"} Dim v v=filter(x,"kj") '结果v(0)="kjwang",v(1)="wangkj" v=filter(x,&q

  • 用vbs判断一个日期是否在指定的时段内

    问: 您好,脚本专家! 如何判断一个日期是否在指定的时段内? -- JW 答: 您好,JW. 真是巧啊,今天早上在上班的路上,我们听到有两个不同公司的不同的广告,他们都用"七月中的圣诞节"招揽顾客. 这促使着我们一到办公室就立即回答您的问题. 毕竟,如果这些公司都有一份您正在寻找的脚本,他们可能就会知道七月没有圣诞节. 注意: 当然,我们也可能记错了圣诞节的时间,所以也许您应该给所有的脚本专家送一份礼物,以防万一. 那么我们如何才能知晓圣诞节不在七月呢? 只需运行以下脚本即可: 复制代

  • 用vbs实现按创建日期的顺序列出一个文件夹中的所有文件

    问: 你好,脚本专家!如何按创建日期的顺序列出一个文件夹中的所有文件? -- CL 答: 你好,CL.您知道,如果我们雄心勃勃并且努力工作,我们会坐下来为您写一个脚本,以使用 WMI 返回一个文件夹中的所有文件.该脚本将获取有关所有这些文件的信息,并将该数据存储在未连接的记录集中.然后,在该记录集中设置排序顺序以按创建日期和时间对文件进行排列.(接着,我们进行大量的重复性工作,以将 WMI 的日期时间值转换为易读的日期时间格式.)最后,我们将记录集中的所有值回显到屏幕上.它需要花费大量时间并编写

  • 使用VBS获取当前日期的前一天 并修正输出格式

    获取当前日期方法一: 复制代码 代码如下: Currentdate1=date() msgbox Currentdate1 获取当前日期方法二: 复制代码 代码如下: Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now) msgbox Currentdate2 补充一个:如果想获取的日期前面是1位数的前面补0的写法,例如 2016年5月16,如果目录是2016516不如20160516更

  • vbs下通过日期查找文件夹的代码

    On Error Resume Next dtmTargetDate = "20020301000000.000000-420" strComputer = "." Set objWMIService = GetObject _     ("winmgmts:" & "!\\" & strComputer & "\root\cimv2") Set colFolders = objWM

  • vbs获取当前时间日期的代码

    获取当前日期方法一: 复制代码 代码如下: Currentdate1=date()msgbox Currentdate1 获取当前日期方法二: 复制代码 代码如下: Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)msgbox Currentdate2 获取当前时间: 复制代码 代码如下: CurrentTime=Hour(Now)&":"&Min

  • 用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名

    简单的服务器文件备份办法压缩文件名自动按日期命名 dim FileName,WshShell,fs,MyCommandFileName=cstr(now)+".RAR" MyCommand="rar a "+FileName+" 要压缩的文件名或目录名" Set WshShell = WScript.CreateObject("WScript.Shell") Set fs=CreateObject("Scriptin

  • 用VBSrcipt判断是否是日期

    <SCRIPT LANGUAGE="vbScript"> <!-- '判断是否是日期 function thisdate(dt)     if not IsDate(dt) then         thisdate=false     elseif int(left(dt,4))<int(1750) then         thisdate=false     else         thisdate=true     end if end functio

  • 用VBS修改（设置）系统时间和日期的代码

    那天跟别人聊到 Y2K38 问题,于是想到一个恶作剧:用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后,这样某些依赖于 Unix 时间戳的程序就会出问题.那么怎样用 VBS 修改系统的时间呢? 最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time 命令: 复制代码 代码如下: 'Author: Demon 'Website: http://demon.tw 'Date : 2011/4/27 Dim WshShell Set WshShell = Cr

  • python脚本设置系统时间的两种方法

    本文为大家分享了两种python脚本设置系统时间的方法,供大家参考,具体内容如下 第一种方法,使用Python设置系统时间,即给系统校时 #电脑时间用了一段时间后,系统时间不准了,想更新一下 #在windows里面,更新系统时间,时常失败,而且速度很忙. #在网上拷贝的代码,发现很好用,比windows自带的实现要快. #-*- coding:utf-8 -*- import socket import struct import time import win32api TimeServer

  • CentOS7修改服务器系统时间的方法

    CentOS7修改服务器系统时间的方法

    未知何故,服务器上的系统时间不对,比实际的UTC快了将近63分钟.在涉及本地文件与远程服务器文件的时间戳校验时,容易产生混淆. 这里把系统时间更正的过程记录如下. 参考资料:http://www.centoscn.com/CentOS/config/2015/0723/5901.html 在CentOS 7里面有一个命令timedatectl可以帮助我们修改服务器的时区. 1. 查看服务器里的时间设置 timedatectl ,它等同于 timedatectl status : $ timeda

  • Delphi实现读取系统时间与日期完整实例

    本文讲述了Delphi读取系统时间与日期的实现方法,首先设置各个控件用于显示时间.读取时间与设置时间.再添加如下代码: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; pr

  • C#利用win32 Api 修改本地系统时间、获取硬盘序列号

    C#利用win32 Api 修改本地系统时间.获取硬盘序列号,可以用于软件注册机制的编写! 复制代码 代码如下: using System; using System.Collections.Generic; using System.Text; using System.Runtime.InteropServices; namespace Fengyun {     public class Win32     {         #region 修改本地系统时间         [DllIm

  • C++设置系统时间及系统时间网络更新的方法

    本文实例讲述了C++设置系统时间及系统时间网络更新的方法.分享给大家供大家参考.具体实现方法如下: 复制代码 代码如下: //根据返回的时间设置系统时间 void setTimeFromTP(ULONG ulTime) {      FILETIME ft;      SYSTEMTIME st;        //将基准时间转换成windows文件时间      st.wYear = 1900;      st.wMonth = 1;      st.wDay = 1;      st.wHo

  • CMD和vbs修改 IP地址及DNS的实现代码

    修改IP cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1 修改DNS cmd /c netsh interface ip set dns name="本地连接" source=static addr=202.99.192.66 配置或更新IP地址:

  • python脚本设置超时机制系统时间的方法

    python脚本设置超时机制系统时间的方法

    本文为大家介绍了python脚本设置系统时间的方法,一共有两种,其一是调用socket直接发送udp包到国家授时中心,其二是调用ntplib包.我在本地电脑ping 国家授时中心地址cn.pool.ntp.org有时出现丢包,然而,二者都没有检查udp是否丢包的机制,方法一在udp丢包后一直处于阻塞状态无法退出,方法二虽然会提示超时,但是不再做其它尝试,比如重新发包,或者向同一个域名的不同IP地址发包.于是,尝试在方法一的代码基础上,增加了超时机制,并且尝试向同一个域名的不同IP地址发包. 具体

  • C#实现修改系统时间的方法

    本文所述C#获取和修改系统时间的实现步骤为:系统的时间从 SystemTime 结构体中取出,并显示在textBox1上,从setDate,setTime控件中获取年,月,日,小时,分钟,秒信息,存入SystemTime结构体中,然后使用SetLocalTime(ref systemTime)设置为用户指定的时间.本代码编译后会有一个易于操作的窗体. 完整功能代码如下: using System; using System.Drawing; using System.Collections; u

  • 用“组策略”阻止病毒修改系统时间的方法

    最近有些针对卡巴的病毒,通过修改Windows系统时间来使卡巴自动监控失效.针对这一病毒,通过简单的系统设置来阻止它使卡巴监控失效.方法如下 1.打开"控制面版" - "管理工具" - "本地安全设置" 然后依次选择本地策略--用户权利指派--更改系统时间 ]2.然后双击打开"更新系统时间配置"属性对话框,把里面所有权限用户名全部删除,然后点击确定,重启计算机 3.依次删除下图中的Administrators和Power Us

随机推荐