以前は、UTCタイムフォーマットから”YYYYMMDDHHMMSS”に変換するスクリプトでした。
今度は、逆です。YYYYMMDDやHHMMSSを取得するスクリプトの使用しています。
Option Explicit Dim STR_Computer Dim OBJ_SWbemServices Dim OBJ_TimeZone Dim COL_TimeZone Dim STR_Bias Dim DTMCurrentDate Dim DTMTargetDate Dim DTMMonth Dim DTMDay STR_Computer = "." Set OBJ_SWbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & STR_Computer & "\root\cimv2") Set COL_TimeZone = OBJ_SWbemServices.ExecQuery("SELECT * FROM Win32_TimeZone") For Each OBJ_TimeZone In COL_TimeZone STR_Bias = OBJ_TimeZone.Bias Next DTMTargetDate = Get_YYYYMMDD(0) & Get_HHMMSS(0) DTMTargetDate = DTMTargetDate & ".000000" DTMTargetDate = DTMTargetDate & CStr(STR_Bias) WScript.Echo DTMTargetDate Private Function Get_YYYYMMDD(ByVal STR_Flag) Dim STR_Temp Dim STR_YYYYMMDD If Not IsNumeric(STR_Flag) Then Exit Function End If STR_Temp = Year(Now) If Len(STR_Temp) = 2 Then STR_Temp = "20" & STR_Temp End If If STR_Flag >= 1 Then STR_Temp = STR_Temp & "/" End If STR_YYYYMMDD = STR_Temp STR_Temp = Month(Now()) If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If If STR_Flag >= 1 Then STR_Temp = STR_Temp & "/" End If STR_YYYYMMDD = STR_YYYYMMDD & STR_Temp STR_Temp = Day(Now()) If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If STR_YYYYMMDD = STR_YYYYMMDD & STR_Temp GET_YYYYMMDD = STR_YYYYMMDD End Function Private Function GET_HHMMSS(ByVal STR_Flag) Dim STR_Temp Dim STR_HHMMSS If Not IsNumeric(STR_Flag) Then Exit Function End If STR_Temp = Hour(Now()) If Len(Hour(Now())) = 1 Then STR_Temp = "0" & Hour(Now()) If STR_Flag >= 1 Then STR_Temp = STR_Temp & ":" End If STR_HHMMSS = STR_Temp STR_Temp = Minute(Now()) If Len(Minute(Now())) = 1 Then STR_Temp = "0" & Minute(Now()) If STR_Flag >= 1 Then STR_Temp = STR_Temp & ":" End If STR_HHMMSS = STR_HHMMSS & STR_Temp STR_Temp = Second(Now()) If Len(Second(Now())) = 1 Then STR_Temp = "0" & Second(Now()) STR_HHMMSS = STR_HHMMSS & STR_Temp GET_HHMMSS = STR_HHMMSS End Function
Scriptのダウンロードは こちら です。
kurumsal sunucu yapılandırma says:
… [Trackback]
[…] There you will find 50246 more Info to that Topic: dragon-ark.com/archives/80 […]
2021/07/07, 08:23토토사이트,토토커뮤니티 says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/80 […]
2021/07/16, 11:10ã€WSH】UTCタイムフォーマットã«å¤‰æ›ã™ã‚‹ | Dragon-Ark says:
Sheilah Nuccitelli
I found a great…
2021/07/21, 21:44ã€WSH】UTCタイムフォーマットã«å¤‰æ›ã™ã‚‹ | Dragon-Ark says:
Amber Korona
I found a great…
2021/07/22, 01:40ã€WSH】UTCタイムフォーマットã«å¤‰æ›ã™ã‚‹ | Dragon-Ark says:
Eddy Monske
I found a great…
2021/07/22, 16:06ã€WSH】UTCタイムフォーマットã«å¤‰æ›ã™ã‚‹ | Dragon-Ark says:
Ron Ringhouse
I found a great…
2021/07/23, 08:33ã€WSH】UTCタイムフォーマットã«å¤‰æ›ã™ã‚‹ | Dragon-Ark says:
Becki Riede
I found a great…
2021/07/23, 19:06ã€WSH】UTCタイムフォーマットã«å¤‰æ›ã™ã‚‹ | Dragon-Ark says:
Michiko Vile
I found a great…
2021/07/26, 14:11World Market URL says:
… [Trackback]
[…] Read More Info here to that Topic: dragon-ark.com/archives/80 […]
2021/07/29, 08:41dark0de market says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/80 […]
2021/08/31, 19:32online sleepaway euthanasia solution says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/80 […]
2021/09/19, 08:29Microsoft office 2016 clave says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/80 […]
2021/10/30, 00:53สล็อตเว็บตรง says:
… [Trackback]
[…] Here you will find 83040 more Information to that Topic: dragon-ark.com/archives/80 […]
2021/11/12, 23:24relx says:
… [Trackback]
[…] Info to that Topic: dragon-ark.com/archives/80 […]
2021/11/27, 10:33คาสิโนออนไลน์เว็บตรง says:
… [Trackback]
[…] Read More Info here on that Topic: dragon-ark.com/archives/80 […]
2021/12/19, 09:08hemp seed oil uses says:
… [Trackback]
[…] Info to that Topic: dragon-ark.com/archives/80 […]
2021/12/28, 10:01car dealership surveillance says:
… [Trackback]
[…] Find More here on that Topic: dragon-ark.com/archives/80 […]
2022/01/04, 10:1715042 plumbers says:
… [Trackback]
[…] Info to that Topic: dragon-ark.com/archives/80 […]
2022/02/15, 08:44Quality replica watchesknockoff Bulgari Imitations Watches702 replica watches says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/80 […]
2022/03/19, 00:09darkfox market url says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/80 […]
2022/03/27, 02:11匿名 says:
… [Trackback]
[…] Read More Information here to that Topic: dragon-ark.com/archives/80 […]
2022/03/29, 01:46kardinal stick says:
… [Trackback]
[…] There you can find 81578 additional Information on that Topic: dragon-ark.com/archives/80 […]
2022/04/02, 07:55good track 1/2 shop says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/80 […]
2022/04/07, 06:20beer777 says:
… [Trackback]
[…] Read More on to that Topic: dragon-ark.com/archives/80 […]
2022/05/01, 07:50departamentos la paz says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/80 […]
2022/05/21, 00:48สล็อตวอเลท ไม่มีขั้นต่ำ says:
… [Trackback]
[…] Here you can find 17930 more Info on that Topic: dragon-ark.com/archives/80 […]
2022/05/22, 09:06강남셔츠룸 says:
… [Trackback]
[…] Read More to that Topic: dragon-ark.com/archives/80 […]
2022/05/24, 13:30