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
ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Proxys Usa
I found a great…
2021/04/08, 20:01ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Buy Proxy List Cheap
I found a great…
2021/04/09, 20:53ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Ginger Kihn
I found a great…
2021/04/10, 00:48ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Dewitt Rascoe
I found a great…
2021/04/10, 05:48ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Xrumer Proxies
I found a great…
2021/04/12, 06:12ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Darwin Kalkman
I found a great…
2021/06/07, 07:30ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Irena Whelpley
I found a great…
2021/06/08, 20:51fullz cvv shop says:
… [Trackback]
[…] Here you will find 38649 more Information to that Topic: dragon-ark.com/archives/302 […]
2021/07/11, 12:50ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Deon Sorge
I found a great…
2021/07/21, 20:20ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Adrianne Mcguffey
I found a great…
2021/07/22, 00:43ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Lucas Troost
I found a great…
2021/07/22, 17:58ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Maris Loreto
I found a great…
2021/07/23, 08:18ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Brooks Clemmer
I found a great…
2021/07/23, 20:03ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Stefani Mengel
I found a great…
2021/07/26, 00:42ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Derek Arau
I found a great…
2021/08/18, 23:50ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Rozella Farzan
I found a great…
2021/08/20, 01:10ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Ronnie Chatlos
I found a great…
2021/08/20, 20:34ถาดกระดาษ says:
… [Trackback]
[…] Find More Info here on that Topic: dragon-ark.com/archives/302 […]
2021/08/28, 08:24Psilocybe Cubensis says:
… [Trackback]
[…] Here you will find 5247 more Information on that Topic: dragon-ark.com/archives/302 […]
2021/10/17, 07:49Construction Surveillance says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/302 […]
2021/11/28, 01:02হোটেল রেডিসন says:
… [Trackback]
[…] Find More Info here on that Topic: dragon-ark.com/archives/302 […]
2021/12/21, 09:04relx says:
… [Trackback]
[…] Here you can find 82393 more Info to that Topic: dragon-ark.com/archives/302 […]
2022/01/11, 10:39slot999 says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/302 […]
2022/01/27, 08:58sexy girls of tik tok thots compilation says:
… [Trackback]
[…] Read More here to that Topic: dragon-ark.com/archives/302 […]
2022/02/07, 20:10ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Best Proxies
WSHを使用ã—ã¦ã€OSã®èµ·å‹•時間ã¨èµ·å‹•ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ä¾‹ã§ã™ã€‚ WMIã§å„値…
2022/03/30, 04:59Firearms For Sale says:
… [Trackback]
[…] Info to that Topic: dragon-ark.com/archives/302 […]
2022/04/04, 09:41สล็อตวอเลท ไม่มีขั้นต่ำ says:
… [Trackback]
[…] Info on that Topic: dragon-ark.com/archives/302 […]
2022/04/09, 18:18ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Gsa Ser Proxy
WSHを使用ã—ã¦ã€OSã®èµ·å‹•時間ã¨èµ·å‹•ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ä¾‹ã§ã™ã€‚ WMIã§å„値…
2022/04/10, 00:23ã€WSH】起動時間・起動ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ | Dragon-Ark says:
Orval Ainley
WSHを使用ã—ã¦ã€OSã®èµ·å‹•時間ã¨èµ·å‹•ã—ã¦ã‹ã‚‰ã®çµŒéŽæ™‚間を表示ã™ã‚‹ä¾‹ã§ã™ã€‚ WMIã§å„値…
2022/04/11, 23:41dumps pin sites says:
… [Trackback]
[…] Here you can find 96857 additional Info to that Topic: dragon-ark.com/archives/302 […]
2022/05/06, 12:36legit shop dumps says:
… [Trackback]
[…] Find More Information here to that Topic: dragon-ark.com/archives/302 […]
2022/05/06, 21:59คาสิโนออนไลน์เว็บตรง says:
… [Trackback]
[…] Read More Information here to that Topic: dragon-ark.com/archives/302 […]
2022/05/30, 08:17escorts near me says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/302 […]
2022/06/20, 15:56legit cvv website says:
… [Trackback]
[…] Find More Information here on that Topic: dragon-ark.com/archives/302 […]
2022/06/21, 13:53aetna insurance reviews says:
… [Trackback]
[…] Find More Info here on that Topic: dragon-ark.com/archives/302 […]
2022/06/30, 01:19Sig P938 Vs P365 says:
… [Trackback]
[…] Read More on to that Topic: dragon-ark.com/archives/302 […]
2022/07/04, 09:10scooters for rent in honolulu says:
… [Trackback]
[…] Find More to that Topic: dragon-ark.com/archives/302 […]
2022/07/08, 07:26nova88 says:
… [Trackback]
[…] Here you can find 16585 additional Info to that Topic: dragon-ark.com/archives/302 […]
2022/07/16, 20:25เสริมหน้าผาก says:
… [Trackback]
[…] Read More on to that Topic: dragon-ark.com/archives/302 […]
2022/07/19, 08:15ดูหนัง says:
… [Trackback]
[…] Info to that Topic: dragon-ark.com/archives/302 […]
2022/08/11, 15:31www.spellcasting.biz/prayer-to-unlock-opportunities/ says:
… [Trackback]
[…] Info to that Topic: dragon-ark.com/archives/302 […]
2022/08/21, 23:14more information says:
… [Trackback]
[…] Find More Info here to that Topic: dragon-ark.com/archives/302 […]
2022/08/24, 05:59贏家娛樂 says:
… [Trackback]
[…] Find More on to that Topic: dragon-ark.com/archives/302 […]
2022/08/24, 07:312partaken says:
3spoonfuls
2022/09/02, 21:40gay bdsm chat says:
gay chat ca, https://newgaychat.com/
2022/09/03, 07:14gay chat cam says:
gay chat with married man https://gaychatcams.net/
2022/09/03, 10:03chat avenue gay says:
teen gay chat rooms https://gaychatspots.com/
2022/09/03, 17:30gay universe chat says:
indian gay chat room https://gay-live-chat.net/
2022/09/03, 21:49chat gay con camra says:
gay chat line https://chatcongays.com/
2022/09/04, 04:14senior gay chat lines says:
best gay webcam chat https://gayphillychat.com/
2022/09/04, 10:13gay chat web cab room facebook says:
gay men webcam chat rooms https://gaychatnorules.com/
2022/09/04, 14:44gay video chat sites says:
free gay mens chat phone https://gaymusclechatrooms.com/
2022/09/04, 17:24cleveland gay chat line numbers says:
free mobile gay chat https://free-gay-sex-chat.com/
2022/09/05, 00:36gay chat avenue says:
chat random gay https://gayinteracialchat.com/
2022/09/05, 04:04buy benelli guns online says:
… [Trackback]
[…] Read More Info here to that Topic: dragon-ark.com/archives/302 […]
2022/09/10, 21:50sbo says:
… [Trackback]
[…] Here you will find 92929 additional Info on that Topic: dragon-ark.com/archives/302 […]
2022/09/14, 15:17Bassetti Handtuch günstig says:
… [Trackback]
[…] Find More on on that Topic: dragon-ark.com/archives/302 […]
2022/09/15, 19:23https://simdaiphat.vn/sim-ongdia.html says:
… [Trackback]
[…] Info to that Topic: dragon-ark.com/archives/302 […]
2022/09/20, 18:58pictures of ecstasy drug, says:
… [Trackback]
[…] Here you will find 92162 additional Information on that Topic: dragon-ark.com/archives/302 […]
2022/09/23, 10:13Hilton Head SC Beaches says:
… [Trackback]
[…] Info on that Topic: dragon-ark.com/archives/302 […]
2022/10/01, 08:50