ページ : 1 2
<この記事を全て表示する場合はこちらをクリック>
Hey, Scripting Guy!の記事を読みつつ、コンピュータの起動時間を表示するVBスクリプトを作ってみました。
算数嫌いには秒を時分秒に変換する部分が辛いです。
以下のコードをメモ帳等に貼り付けて、ファイル名を[SystemUpTime.vbs]に変更して、コマンドプロンプトから以下のように実行します。
cscript //nologo SystemUpTime.vbs
実行結果は、以下のようになります。
このコンピュータの起動時間は02時間22分24秒です。
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOS in colOperatingSystems dtmBootup = objOS.LastBootUpTime dtmLastBootupTime = WMIDateStringToDate(dtmBootup) dtmSystemUptime = DateDiff("s", dtmLastBootUpTime, Now) Wscript.Echo "このコンピュータの起動時間は" & Second2Time(dtmSystemUptime,1) & "です。" Next 'UTC時間を時刻に変換 Function WMIDateStringToDate(dtmBootup) WMIDateStringToDate = CDate(Mid(dtmBootup, 5, 2) & "/" & _ Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) _ & " " & Mid (dtmBootup, 9, 2) & ":" & _ Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup,13, 2)) End Function '秒を時分秒に変換 Function Second2Time(intSec,int) Dim Hour Dim Minute Dim Second Hour = intSec \ 3600 Minute = (intSec - Hour * 3600) \ 60 Second = intSec - Hour * 3600 - Minute * 60 Select Case int Case 0 Second2Time = LeadingZero(Hour) & ":" & LeadingZero(Minute) & ":" & LeadingZero(Second) Case 1 Second2Time = LeadingZero(Hour) & "時間" & LeadingZero(Minute) & "分" & LeadingZero(Second) & "秒" Case Else Second2Time = "" End Select End Function '数値の整形 Function LeadingZero(intNumber) If intNumber < 10 Then LeadingZero = "0" & intNumber Else LeadingZero = intNumber End If End Function
さらに日時分秒で表示させたい場合には以下のように記載します。
'秒を日時分秒に変換 Function Second2Time(intSec,int) Dim Day Dim Hour Dim Minute Dim Second Day = intSec \ 86400 Hour = (intSec - Day * 86400) \ 3600 Minute = (intSec - Day * 86400 - Hour * 3600) \ 60 Second = intSec - Day * 86400 - Hour * 3600 - Minute * 60 Select Case int Case 0 Second2Time = Day & ":" & LeadingZero(Hour) & ":" & LeadingZero(Minute) & ":" & LeadingZero(Second) Case 1 Second2Time = Day & "日" & LeadingZero(Hour) & "時間" & LeadingZero(Minute) & "分" & LeadingZero(Second) & "秒" Case Else Second2Time = "" End Select End Function
ページ : 1 2
<この記事を全て表示する場合はこちらをクリック>
1 2