Public Function UnixTime(dDate)
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", dDate)
UnixTime = UnixTime - TimeZone * 60
End Function
程序卡在页面的时候,停止运行,显示停在TimeZone = objItem.CurrentTimeZone 这行上面,有什么原因可能导致这行代码卡住吗?