«
»

WSHを使用して、OSの起動時間と起動してからの経過時間を表示する例です。
WMIで各値を取得するのですが、UTCで値が返ってきますので、このサイトで紹介した
UTCを変換する関数を利用しています。

Option Explicit

Call Uptime()

'===========================================================================

Sub Uptime()

Dim OBJ_WMIService
Dim OBJ_Item
Dim COL_Item

Dim STR_Computer
Dim STR_NameSpace

Dim STR_BootUpTime
Dim STR_LocalTime
Dim STR_Work
Dim STR_Day
Dim STR_Hour
Dim STR_Min

STR_Computer = "."
STR_NameSpace = "/root/cimv2"

Set OBJ_WMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & STR_Computer & STR_NameSpace)

If Err.Number <> 0 Then

WScript.Echo "Error=" & Err.Number
WScript.Echo "ERROR Code=" & Err.Number & " Description=" & Err.Description
Err.Clear
Exit Sub

End If

Set COL_Item = OBJ_WMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")

For Each OBJ_Item In COL_Item

STR_BootUpTime = OBJ_Item.LastBootUpTime
STR_LocalTime = OBJ_Item.LocalDateTime

Next

STR_BootUpTime = ConvertUTCToDate(STR_BootUpTime)
STR_LocalTime = ConvertUTCToDate(STR_LocalTime)

STR_Work = DateDIff("n", STR_BootUpTime, STR_LocalTime)

STR_Day = Fix((STR_Work / 60 ) / 24)
STR_Hour = (STR_Work / 60) Mod 24
STR_Min = STR_Work Mod 60

WScript.Echo "起動時刻: " & STR_BootUpTime
WScript.Echo "経過時間: " & STR_Day & " 日 " & STR_Hour & " 時間 " & STR_Min & " 分"

End Sub

'===========================================================================

Function ConvertUTCToDate(STR_DateTime)

ConvertUTCToDate = CDate(Mid(STR_DateTime, 5, 2) & "/" & _
Mid(STR_DateTime, 7, 2) & "/" & Left(STR_DateTime, 4) & " " & _
Mid(STR_DateTime, 9, 2) & ":" & _
Mid(STR_DateTime, 11, 2) & ":" & _
Mid(STR_DateTime, 13, 2))

End Function

This entry was posted by admin on 2009/11/24 at 22:38 under Windows, WSH. Tagged , , . You can leave a response, or trackback from your own site. Follow any responses to this entry through the RSS 2.0 feed.

60 Comments

  8. fullz cvv shop says:

    … [Trackback]

    […] Here you will find 38649 more Information to that Topic: dragon-ark.com/archives/302 […]

    2021/07/11, 12:50

  18. ถาดกระดาษ says:

    … [Trackback]

    […] Find More Info here on that Topic: dragon-ark.com/archives/302 […]

    2021/08/28, 08:24

  19. Psilocybe Cubensis says:

    … [Trackback]

    […] Here you will find 5247 more Information on that Topic: dragon-ark.com/archives/302 […]

    2021/10/17, 07:49

  20. Construction Surveillance says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/302 […]

    2021/11/28, 01:02

  21. হোটেল রেডিসন says:

    … [Trackback]

    […] Find More Info here on that Topic: dragon-ark.com/archives/302 […]

    2021/12/21, 09:04

  22. relx says:

    … [Trackback]

    […] Here you can find 82393 more Info to that Topic: dragon-ark.com/archives/302 […]

    2022/01/11, 10:39

  23. slot999 says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/302 […]

    2022/01/27, 08:58

  24. sexy girls of tik tok thots compilation says:

    … [Trackback]

    […] Read More here to that Topic: dragon-ark.com/archives/302 […]

    2022/02/07, 20:10

  25. 【WSH】起動時間・起動してからの経過時間を表示する | Dragon-Ark says:

    Best Proxies

    WSHを使用して、OSの起動時間と起動してからの経過時間を表示する例です。 WMIで各値…

    2022/03/30, 04:59

  26. Firearms For Sale says:

    … [Trackback]

    […] Info to that Topic: dragon-ark.com/archives/302 […]

    2022/04/04, 09:41

  27. สล็อตวอเลท ไม่มีขั้นต่ำ says:

    … [Trackback]

    […] Info on that Topic: dragon-ark.com/archives/302 […]

    2022/04/09, 18:18

  28. 【WSH】起動時間・起動してからの経過時間を表示する | Dragon-Ark says:

    Gsa Ser Proxy

    WSHを使用して、OSの起動時間と起動してからの経過時間を表示する例です。 WMIで各値…

    2022/04/10, 00:23

  29. 【WSH】起動時間・起動してからの経過時間を表示する | Dragon-Ark says:

    Orval Ainley

    WSHを使用して、OSの起動時間と起動してからの経過時間を表示する例です。 WMIで各値…

    2022/04/11, 23:41

  30. dumps pin sites says:

    … [Trackback]

    […] Here you can find 96857 additional Info to that Topic: dragon-ark.com/archives/302 […]

    2022/05/06, 12:36

  31. legit shop dumps says:

    … [Trackback]

    […] Find More Information here to that Topic: dragon-ark.com/archives/302 […]

    2022/05/06, 21:59

  32. คาสิโนออนไลน์เว็บตรง says:

    … [Trackback]

    […] Read More Information here to that Topic: dragon-ark.com/archives/302 […]

    2022/05/30, 08:17

  33. escorts near me says:

    … [Trackback]

    […] Find More on that Topic: dragon-ark.com/archives/302 […]

    2022/06/20, 15:56

  34. legit cvv website says:

    … [Trackback]

    […] Find More Information here on that Topic: dragon-ark.com/archives/302 […]

    2022/06/21, 13:53

  35. aetna insurance reviews says:

    … [Trackback]

    […] Find More Info here on that Topic: dragon-ark.com/archives/302 […]

    2022/06/30, 01:19

  36. Sig P938 Vs P365 says:

    … [Trackback]

    […] Read More on to that Topic: dragon-ark.com/archives/302 […]

    2022/07/04, 09:10

  37. scooters for rent in honolulu says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/302 […]

    2022/07/08, 07:26

  38. nova88 says:

    … [Trackback]

    […] Here you can find 16585 additional Info to that Topic: dragon-ark.com/archives/302 […]

    2022/07/16, 20:25

  39. เสริมหน้าผาก says:

    … [Trackback]

    […] Read More on to that Topic: dragon-ark.com/archives/302 […]

    2022/07/19, 08:15

  40. ดูหนัง says:

    … [Trackback]

    […] Info to that Topic: dragon-ark.com/archives/302 […]

    2022/08/11, 15:31

  41. www.spellcasting.biz/prayer-to-unlock-opportunities/ says:

    … [Trackback]

    […] Info to that Topic: dragon-ark.com/archives/302 […]

    2022/08/21, 23:14

  42. more information says:

    … [Trackback]

    […] Find More Info here to that Topic: dragon-ark.com/archives/302 […]

    2022/08/24, 05:59

  43. 贏家娛樂 says:

    … [Trackback]

    […] Find More on to that Topic: dragon-ark.com/archives/302 […]

    2022/08/24, 07:31

  44. 2partaken says:

    3spoonfuls

    2022/09/02, 21:40

  46. gay chat cam says:

    gay chat with married man https://gaychatcams.net/

    2022/09/03, 10:03

  55. buy benelli guns online says:

    … [Trackback]

    […] Read More Info here to that Topic: dragon-ark.com/archives/302 […]

    2022/09/10, 21:50

  56. sbo says:

    … [Trackback]

    […] Here you will find 92929 additional Info on that Topic: dragon-ark.com/archives/302 […]

    2022/09/14, 15:17

  57. Bassetti Handtuch günstig says:

    … [Trackback]

    […] Find More on on that Topic: dragon-ark.com/archives/302 […]

    2022/09/15, 19:23

  58. https://simdaiphat.vn/sim-ongdia.html says:

    … [Trackback]

    […] Info to that Topic: dragon-ark.com/archives/302 […]

    2022/09/20, 18:58

  59. pictures of ecstasy drug, says:

    … [Trackback]

    […] Here you will find 92162 additional Information on that Topic: dragon-ark.com/archives/302 […]

    2022/09/23, 10:13

  60. Hilton Head SC Beaches says:

    … [Trackback]

    […] Info on that Topic: dragon-ark.com/archives/302 […]

    2022/10/01, 08:50

Leave a Reply

You must be logged in to post a comment.