자유 게시판

OS 설치 날짜를 오늘로 바꾸는 방법 [추가]

2020.09.02 19:02

청락 조회:1213 추천:10

 

OS 설치 날짜를 오늘로 바꾸는 방법

 

OS InstallDate-Today.vbs

 

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If Not WScript.Arguments.Named.Exists("elevate") Then

  CreateObject("Shell.Application").ShellExecute WScript.FullName _

    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1

  WScript.Quit

End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

    strComputer & "\root\default:StdRegProv")

 

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"

strValueName = "InstallDate"

dwValue = UnixTime

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

 

 

Function UnixTime()

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", "1970-01-01 00:00:00", Now())

''''''''''UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now())

UnixTime = UnixTime - TimeZone * 60

End Function

 

 

''''''' Function 부분 : 출처 https://developpaper.com/the-function-code-of-getting-unix-time-stamp-with-vbs/

 

탐색기 재시작하시면 적용됩니다.

 

 

OS Install Date 확인 OS Install Date.vbs

 

 

OS설치날짜=TODAY(set+get)  OS설치날짜=TODAY.vbs

 

o.png

 

 

 

번호 제목 글쓴이 조회 등록일
[공지] 자유 게시판 이용간 유의사항 (정치, 종교, 시사 게시물 자제) gooddew - -
42436 탈모약..이거 [5] kmhh 555 01-15
42435 1주일이라는 시간과 추위!! 도뽱 593 01-14
42434 Windows 10 PE 이거 쓰시는분이나 만드신분 있으신지? [2] Rockeeter 1007 01-14
42433 ...댓글 달면 글 삭제 불가능 하지 않나요....????? [2] shimspeed 530 01-14
42432 자게에 자료 올리면서 가끔 생각나는 것들~~~ [6] 타천사둘리 708 01-14
42431 창문으로 들어 오는 케이블 선.. [9] 테츠로 1221 01-14
42430 파이어폭스 96 접속 오류 해결방법 [6] Day 423 01-14
42429 이제서야 알게된 사실 [2] 긍지버림 1258 01-14
42428 연초는 시간이 더 빠른거같아요 ㅎ [1] avidroscfg 281 01-13
42427 MpvU2 패치수정버전 [13] [벗님] 418 01-13
42426 shimspeed 님 보세요. [1] 메인보드 423 01-13
42425 아파트 유선케이블단자 연결 미스테리? [11] 할많하않 1994 01-13
42424 슬슬 Ai에 우리도 관심을 가져야 겠네요 [2] 시장돌이 389 01-13
42423 제가 요새 꽂힌 노래..금잔디의 오라버니 [2] 복두꺼비 465 01-13
42422 노래 제목 찾아주실분 찾습니다. 필리핀노래 같아요. [4] 문경세재 406 01-13
42421 윈도우 엔터프라이즈 에디숀이 [3] 복구시디 655 01-13
42420 H_OFFICE_DN_2022 다시 올립니다. [5] 타천사둘리 2120 01-13
42419 10년 된 PC 적정가격을 알고 싶습니다.. [14] ysinMotion 1120 01-13
42418 수도 동파 조심 하세요~ [5] 테츠로 711 01-13
42417 당신의 안구 나이는 몇 살일까요? 색감 시력테스트 [13] mansek 1219 01-12
XE1.11.6 Layout1.4.8