자유 게시판

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

2020.09.02 19:02

청락 조회:1160 추천: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 - -
39050 무슨 뜻일까요? [6] gooddew 973 11-12
39049 뒷좌석 뒷자석 어느것이 맞는 표현인가요. [27] 하늘은높고 1181 11-11
39048 집이 신경이 많이쓰이네요 혹시 요기에 기초수급자이신분계... [2] 알파궁상 793 11-11
39047 IDM 분류별로 폴더 자동 생성 못하게 하는 방법 없는거죠. [5] ws원이 411 11-11
39046 삼성 센스 NT-R40 노트북 기사회생 이야기 [1] joyleehk 474 11-11
39045 AMD 4세대 CPU [9] gooddew 1416 11-11
39044 원키 고스트 오류 문제 도와주세요 DOS모드서 MBR작업 실패 [4] 살며사랑하 500 11-11
39043 ipTIME A1004NS 펌웨어 PC에서 업데이트하니 정상적으로 작... [5] ws원이 674 11-11
39042 iptime A1004NS 공유기 최신 펌웨어 업데이트 하지마세요. [11] ws원이 858 11-10
39041 나만의 비밀을 ... 알고 있다...? [5] 디폴트 1326 11-10
39040 위챗과 Adguard(유료 버전) [1] damoa 513 11-10
39039 크헉, 그게 그, 이런데도 [4] 집앞의_큰 1026 11-10
39038 왕초보 짜증나서 탈퇴합니다. [37] %Random% 2744 11-10
39037 왜 나왔는지 알 수 없는 윈도우 업데이트 파일입니다 [7] suk 1353 11-10
39036 저질 사양에도 xp가 설치되네요.. -_-;; [7] 메인보드 957 11-10
39035 LH 에서하는 매입임대인데요 당첨됐다고왔는데 계약후 바로... [3] 알파궁상 1028 11-09
39034 제 삼성 데스크탑도 윈도우 10 엔터프라이즈 2016 LTSB으로... [3] 김재민 909 11-09
39033 Windows XP SP3 Professional "N" 버전을 찾습니다. [3] 바이오스 968 11-09
39032 New PC [8] 달리기 1774 11-09
39031 사진 수정 요청드립니다. [7] 달리기 948 11-09
XE1.11.6 Layout1.4.8