用VBS获取Unix时间戳的函数代码

vbs中没有类似c标准库中的time函数，怎么获取unix时间戳呢？乍一看很简单：

function unixtime()
unixtime = datediff("s", "01/01/1970 00:00:00", now())
end function

一个很想当然的方法，仅仅注意到了“1970年1月1日0时0分0秒”，而忽略了“协调世界时”。

协调世界时，又称世界标准时间或世界协调时间，简称utc，从英文“coordinated universal time”而来。在*的本地时间比utc快8小时，就会写作utc+8。如果是在本地时间比utc时间慢的地区，例如夏威夷的时间是比utc时间慢10小时，就会写作utc-10。

而vbs中的now()函数返回的时间是包括时区的，所以获取unix时间戳要做一些修正。

function unixtime()
set objwmiservice = _
getobject("winmgmts:\\.\root\cimv2")
set colitems = objwmiservice.execquery _
("select * from win32_operatingsystem",,48)
for each objitem in colitems
timezone = objitem.currenttimezone
next
unixtime = datediff("s", "01/01/1970 00:00:00", now())
unixtime = unixtime - timezone * 60
end function

这才是正确的写法。
参考链接：epoch & unix timestamp conversion tools
原文：http://demon.tw/programming/vbs-unix-time-stamp.html