이 간단한 VBScript는 설명, 생성과 함께 컴퓨터에서 사용할 수 있는 모든 시스템 복원 지점을 나열합니다. 시간 및 시퀀스 번호.
스크립트를 실행하려면 다음 줄을 메모장 문서에 복사하고 파일로 저장합니다. .VBS 확장명(큰따옴표 사용)을 사용하여 파일을 두 번 클릭합니다.
' 시스템 복원 목록을 출력합니다. 텍스트 파일을 가리킨다
' 2005 라메시 스리니바산 - https://www.winhelponline.com/xp
' 최종 업데이트 날짜: 2005년 8월 20일
' 날짜/시간 형식을 올바르게 지정합니다.
'
옵션 명시적
Dim fso, b, objWMI, clsPoint, strComputer, 셸
희미한 fLine, dtmInstallDate, objOS, fName
fLine = "이 컴퓨터에서 찾은 시스템 복원 지점 목록"
쉘 설정 = CreateObject("Wscript. 껍데기")
fso = Wscript로 설정합니다. CreateObject("스크립팅. 파일 시스템 개체")
fName = 쉘. SpecialFolders("데스크톱")
fName = fName & "\ListSR.txt"
b = fso를 설정합니다. CreateTextFile(fName, true)
비. 쓰기 라인
b.writeline 문자열(52,"-")
b.writeblanklines 1
strComputer="."
설정 dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
설정 objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
설정 objOS = objWMI.ExecQuery( _
"Win32_OperatingSystem에서 * 선택")
설정 objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf("시스템 복원")
objWMI의 각 clsPoint에 대해
b.writeline "생성 시간 = " & getmytime(clsPoint.creationtime)
b.writeline "설명 = " & clsPoint.description
b.writeline "시퀀스 번호 = " & clsPoint.sequencenumber
b.writeblanklines 1
다음
함수 getmytime(wmitime)
dtm설치날짜. 값 = wmitime
getmytime = dtmInstallDate. GetVarDate
종료 기능
b.닫기
껍데기. "notepad.exe" 실행 및 fName, 1, True
설정 fso = 없음
쉘 설정 = 없음