윈 도 우 backup2VHD & 토글스위치(수정)
2020.01.17 23:57
backup2VHD 는 드래그 앤 드롭 시 W:\backup 폴더에 복사가 실행됩니다.
backup2VHD 폴더명 변경시 폴더명에 공백이 없게 해주세요.
아니면, 수정된 Backup-W-vhd.vbs로 교체하세요.(첨부파일)
드래그 앤 드롭 시 -> 여러파일, 폴더를 한번에 드래그 해도 됩니다.
실행파일은 Backup-W-vhd.vbs
BitLockDrive.exe 로 W:에 암호걸면 W:\Claunch.exe가 자동실행 안됩니다. Backup-W-vhd.vbs를 "많이" 손봐야합니다.
Backup-W-vhd.vbs (수정 -> curDir2 추가)
스크립트 시작
'--------------
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
'--------------
On Error Resume Next
Dim objFSO, outFile, curDir
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set outFile = objFSO.CreateTextFile(".\vhdmt.txt", True)
Set outaFile = objFSO.CreateTextFile(".\vhdmta.txt", True)
Set outdFile = objFSO.CreateTextFile(".\vhdmtd.txt", True)
curDir = objfso.GetParentFolderName(WScript.ScriptFullName)
curDir2 = Chr(34) & curDir & Chr(34)
outFile.WriteLine "select vdisk file= """ & curDir & "\backup00.vhd"""
outFile.WriteLine "attach vdisk"
outFile.WriteLine "exit"
outFile.Close
outaFile.WriteLine "select vdisk file= """ & curDir & "\backup00.vhd"""
outaFile.WriteLine "select partition=1"
outaFile.WriteLine "assign letter=w"
outaFile.WriteLine "exit"
outaFile.Close
outdFile.WriteLine "select vdisk file= """ & curDir & "\backup00.vhd"""
outdFile.WriteLine "detach vdisk"
outdFile.WriteLine "exit"
outdFile.Close
objShell.Run "C:\Windows\System32\diskpart.exe /s " & curDir2 & "\vhdmt.txt""", 0, True
objShell.Run "C:\Windows\System32\diskpart.exe /s " & curDir2 & "\vhdmta.txt""", 0, True
objFSO.DeleteFile(".\vhdmt.txt")
objFSO.DeleteFile(".\vhdmta.txt")
'--------------
if objShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\AutoCheckSelect") = 0 then
objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\AutoCheckSelect", "1", "REG_DWORD"
objShell.Run"W:\utils\RExplore.exe", 1
else
end if
'--------------
filepath = Chr(34) & "W:\Claunch.exe" & Chr(34)
objShell.Run filepath, , True
'--------------
msgbox "★ 백업 완료하셨나요? ★" +vbCrLf+ "" +vbCrLf+ "--- 아래 <확인>을 누르면 ," +vbCrLf+ "" +vbCrLf+ " 언마운트를 진행합니다.", &h51000, "백업용 VHD"
'--------------
if objShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\AutoCheckSelect") = 1 then
objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\AutoCheckSelect", "0", "REG_DWORD"
objShell.Run"W:\utils\RExplore.exe", 1
else
end if
objFSO.DeleteFolder("w:\$RECYCLE.BIN"), True
objShell.Run "C:\Windows\System32\diskpart.exe /s " & curDir2 & "\vhdmtd.txt""", 0, True
objFSO.DeleteFile(".\vhdmtd.txt")
'--------------
objShell.Popup "★ <백업용 VHD> 언마운트 완료 ★★" +vbCrLf+ "" +vbCrLf+ ".....수고하셨습니다.....", 2, "백업용 VHD", 4096
End If
스크립트 끝
참고로 이즈백히어,데어 = 일본프로그램입니다.
최신버전이고, 영어,일어 만 설정 가능.
사용법 - 이즈백세팅.exe 실행하여 설정 후 사용합니다.
이즈백히어,데어.exe = 드래그앤드롭 방식.....
VHD 마운트 후 숨김해제 하면 utils 폴더 안에 있습니다.
숨김해제시 사용하세요.
tgl-Hidden.vbs
--------------
스크립트 시작
Const strComputer = "."
Dim WSHShell, OBJShell, curDir, objWMIService, colProcessList
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set OBJShell = CreateObject("Shell.Application")
Set WSHShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetParentFolderName(WScript.ScriptFullName)
strREfile = curDir & "\RExplore.exe"
If WScript.Arguments.length =0 Then
OBJShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
else
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'Toggle.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 2, "REG_DWORD"
else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD"
end if
WSHShell.Run Chr(34) & strREfile & Chr(34), 1
Set WSHShell = Nothing
Set OBJShell = Nothing
Set fso = Nothing
WScript.Quit(0)
end if
스크립트 끝
댓글 [7]
-
레마클로 2020.01.18 01:43 -
그냥그렇다 2020.01.18 03:46
유용하게 잘 사용 하겠습니다.
감사합니다.
-
cungice 2020.01.18 08:33
수고 많으셨습니다. 감사합니다.
-
왕초보 2020.01.18 08:49
좋은 프로그램 감사합니다...
웃음이 가득한 일만 있으길 바랍니다.
-
바람타고산으로 2020.01.18 14:11
사용법을 잘 익혀야겠네요. 감사합니다.
-
고프로 2020.01.18 19:25
유용하게 잘 사용 하겠습니다.
감사합니다.
-
rhflffk88 2020.01.19 03:02
유용한 플그램~~
고맙습니다!!! ^^
번호 | 제목 | 글쓴이 | 조회 | 추천 | 등록일 |
---|---|---|---|---|---|
[공지] | 강좌 작성간 참고해주세요 | gooddew | - | - | - |
4040 | 윈 도 우| 윈도우 11/10, 빈폴더 무작위 생성 버그 해결하기 [12] | gooddew | 1390 | 12 | 11-20 |
4039 | 윈 도 우| pe 에서 간단히 다른pc 공유폴더를 네트워크 드라이브로 잡기 [1] | heykevin | 986 | 6 | 11-20 |
4038 | 소프트웨어| 엑셀 추가기능; Reading Layout(셀 좌표) 1.4 [25] | 지후빠 | 2124 | 27 | 11-18 |
4037 | 윈 도 우| 한글판 IoT Enterprise (LTSC 2021) 만들기 [8] | 디폴트 | 3520 | 15 | 11-18 |
4036 | 윈 도 우| DriveSnapshot 백업 복구 [17] | 슈머슈마 | 2862 | 18 | 11-13 |
4035 | 소프트웨어| [Tip] AnyDesk 화이트리스트 등록 [5] | asklee | 1489 | 11 | 11-13 |
4034 | 윈 도 우| PNG_ICO (이미지 아이콘 변환) [7] | 슈머슈마 | 1171 | 6 | 11-12 |
4033 | 소프트웨어| [추가기능1.1]엑셀 셀의 행-열 Auto-Highlight 하는 방법들 [77] | 지후빠 | 2812 | 103 | 11-10 |
4032 | 윈 도 우| 윈도우11 암호 입력없이 로그인 만들기 [7] | 하늘은높고 | 2704 | 8 | 11-10 |
4031 | 서버 / IT| 네트워크를 통해서 윈도우 동시 설치하기 (G4L) [12] | gooddew | 2971 | 14 | 11-08 |
4030 | 윈 도 우| 드라이브 스냅샷 백업 복구 - 재배포 [30] | 슈머슈마 | 2679 | 43 | 11-07 |
4029 | 윈 도 우| 윈도우 11에서 윈도우 10 타일 시작메뉴 + 작업표시줄 그룹... [5] | chosu | 3871 | 0 | 11-04 |
4028 | 윈 도 우| 윈도우11 업데이트 후 캡처도구 단축키 안먹힐 때 해결 방법 [4] | 깜인비랑 | 1833 | 3 | 11-03 |
4027 | 윈 도 우| EFI 파티션 관리하기 우클릭 메뉴에 넣기(추가) [12] | maniaa | 2274 | 19 | 11-01 |
4026 | 윈 도 우| Windows 11 에 핸드폰 연결해서 양방향 복사하기. [5] | 펨토 | 2327 | 2 | 10-31 |
4025 | 윈 도 우| 시스템 종료 컨텍스트 메뉴 [13] | 슈머슈마 | 1829 | 18 | 10-30 |
4024 | 기 타| 앱손 스캐너 드라이버 설치 [2] | 슈머슈마 | 822 | 5 | 10-30 |
4023 | 윈 도 우| 윈도우11 메모리 누수를 막을 수 있다? [5] | maniaa | 3230 | 1 | 10-29 |
4022 | 윈 도 우| 윈도우 11 시작 단추 화면에서 '맞춤' 없애는 방법 [1] | 하늘은높고 | 1461 | 1 | 10-29 |
4021 | 윈 도 우| 윈도우11 메모리 누수가 장난 아닙니다. [9] | maniaa | 4805 | 6 | 10-28 |
설 전 까지 부지런히 올려드립니다.
자료 뒤져보고, 추려서 유용한 것 들 만...
조금 전 안된다는 분 계셨는데,
폴더명에 공백이 들어가도 되게 수정했습니다.