윈 도 우 Move over there 우메뉴등록_제거 + 그룹정책 백복

2020.03.25 23:57

레마클로 조회:905 추천:11

지후아빠님 자료 https://windowsforum.kr/lecture/13049139  에 이어서 ...지후아빠님 강좌에서 많이 베꼈(?)습니다.

 

조금더 수정한 것으로 사용해보세요.

https://windowsforum.kr/lecture/13133811

 

MoveOverthere우메뉴등록_제거.7z

 

 

 

1. 우메뉴등록파일 실행

mot0.png

 

2. 폴더 선택창에서 대상폴더를 선택하면

    C:\Windows\System32\MoveOverthere.vbs의 백업 대상폴더가 수정됩니다.

 

 

mot3.png

 

 

mot4.png

 

 

 

mot1.png

 

 

 

 

3. 테스트 

   백업을 원하는 파일 마우스 우클릭(또는 여러파일 폴더 드래그 앤 우클릭)

       ;  OverwriteExisting + move(copy가 아님)

          copy로 바꾸려면 f.DeleteFolder Arg,OverwriteExisting를 지우면 됩니다

  

mot2.png

 

4. 백업대상 폴더 변경하려면

   바탕화면 아무 곳 마우스우클릭, 재설정...

   

 

mot.png

 

5. 제거는 제거파일....실행

 

MoveOverthere.vbs (C:\Windows\System32\MoveOverthere.vbs)

 

Const MyDestinationFolder = "D:\#_자료백업#\"

Const OverwriteExisting = True

Dim gFile, gFolder, f, a, s, o

Dim Arg

 

Set o = CreateObject("WScript.Shell")

Set f = CreateObject("Scripting.FileSystemObject")

 

If WScript.Arguments.Count = 0 Then

   w = WScript.ScriptFullName

   Set a = f.OpenTextFile(w, 1)

   a.SkipLine : s = chr(13) & Chr(10) & a.ReadAll : a.Close

   strPath = SelectFolder(strPath)

      If strPath = vbNull Then

          o.popup "   취소 중 ... 3초 후 닫혀요 ....   ", 3, "취소 중"   

      Else

          strPath = chr(34) & strPath & "\" & chr(34) 

          Set a = f.CreateTextFile(w, True)

          a.Write "Const MyDestinationFolder = " & strPath & s : a.Close

      End If

End If

 

If WScript.Arguments.Count > 0 Then

   For Each Arg in Wscript.Arguments

     Arg =  Trim(Arg)

       If InStr(Arg,".") Then

         Set gFile = f.GetFile(Arg)

         gFile.Copy MyDestinationFolder & gFile.Name,OverwriteExisting

         f.DeleteFile Arg,OverwriteExisting

       Else

         Set gFolder = f.GetFolder(Arg)

         gFolder.Copy MyDestinationFolder, OverwriteExisting

         f.DeleteFolder Arg,OverwriteExisting

       End If

   Next

End If

 

Const MY_COMPUTER = &H11&

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

Function SelectFolder(strPath)

Dim objFolder, objShell

On Error Resume Next

SelectFolder = vbNull

Set objShell  = CreateObject("Shell.Application")

            Set objFolder = objShell.Namespace(MY_COMPUTER)

            Set objFolderItem = objFolder.Self

            strPath = objFolderItem.Path

Set objFolder = objShell.BrowseForFolder(0, "초기설정 >>> 파일을 이동할 대상 폴더 선택", 0, strPath)

If IsObject(objfolder) Then SelectFolder = objFolder.Self.Path

Set objFolder = Nothing

Set objshell  = Nothing

On Error Goto 0

End Function

 

MoveOverthere우메뉴등록.vbs

 

On Error Resume Next

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 '-------------------------------------------------------------

Set WshShell = CreateObject("WScript.Shell")

Set FSO = CreateObject("Scripting.FileSystemObject")

curDir = FSO.GetParentFolderName(WScript.ScriptFullName) 

strREfile = curDir & "\RExplore.exe"

strSystem64 = WshShell.ExpandEnvironmentStrings("%SystemRoot%") & "\System32\"

OSArchCheck = WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

   If OSArchCheck = "x86" Then

      strSystem86 = strSystem64

   Else

      strSystem86 = WshShell.ExpandEnvironmentStrings("%SystemRoot%") & "\SysWOW64\"

   End If

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

strDir = strSystem64 & "MoveOverthere.vbs"

sRegFile = curDir & "\MoveOverthere.reg"

 

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

FSO.CopyFile curDir & "\MoveOverthere.vbs", strSystem64, true

WshShell.Run "regedit.exe /s " & Chr(34) & sRegFile & Chr(34), 0, True 

WshShell.Run Chr(34) & strREfile & Chr(34), 0, true

WshShell.popup "   5초 만 기다려요 ....   ", 5, "작업 중"      

WshShell.Run Chr(34) & strDir & Chr(34), 1, true

'현 폴더 자폭

'strCurDir = WshShell.CurrentDirectory

'WshShell.CurrentDirectory = ".."

'FSO.DeleteFolder(strCurDir)

End If

 

 

 

그룹정책 백업복원  GPO.7z

https://www.autoitscript.com/forum/files/file/461-gpo-tool/

 

GPO폴더명 유지해야 백업됩니다.

사용 후, 4개 파일 삭제 필요...

 

g.png

 

G2.png

 

 

번호 제목 글쓴이 조회 추천 날짜
[공지] 강좌 작성간 참고해주세요 gooddew - - -
3700 소프트웨어| (추가3) 클립보드로 파일명 복사, VBScript에서, 유틸 소개 [16] update 지후빠 703 8 04-06
3699 기 타| 원격 PC 종료 [7] gooddew 1497 9 04-06
3698 윈 도 우| Win PE에서 윈도우 UEFI설치를 합니다. [13] update 하늘은높고 1373 24 04-05
3697 윈 도 우| [초/중급용]윈도우7 업데이트 오프라인 통합하기! [8] Geheimnis 1262 21 04-04
3696 윈 도 우| file_folder2Hide&show, vbe <--> vbs [2] 레마클로 440 8 04-03
3695 소프트웨어| Mountain Duck 추천 네트워크 드라이브 관리 프로그램(암... [1] 윙도10 1144 2 03-31
3694 윈 도 우| Move over there 등록_제거 final [45] 레마클로 1379 16 03-29
3693 하드웨어| 메인보드 모델명 확인하기 [5] gooddew 2176 21 03-28
3692 소프트웨어| 진행바와 함께 URL 다운로드 VBS + AHK [14] 지후빠 870 10 03-28
3691 윈 도 우| Windows 10 버전별 CPU 지원 리스트.. [4] 은주얌 1818 4 03-27
3690 윈 도 우| Gpedit.msc는 무엇 이죠? (구글링) [4] 레마클로 679 1 03-27
3689 기 타| 특정 프로그램이 32비트? 64 비트? 여부 확인하기 [5] gooddew 882 6 03-27
3688 윈 도 우| 레노버 노트북 충천USB 사용시 마우스 버벅거림 [1] 번개 397 1 03-26
» 윈 도 우| Move over there 우메뉴등록_제거 + 그룹정책 백복 [10] 레마클로 905 11 03-25
3686 윈 도 우| 탐색기 화면에 글자가 부실해 보일 때 설정 방법 하늘은높고 951 3 03-25
3685 소프트웨어| VBScript 기능 확장하기 개요 - API, COM server [7] 지후빠 605 8 03-24
3684 소프트웨어| 압축 프로그램으로 삭제할 수 없는 파일 및 폴더 삭제하기 [7] 5테라 1330 14 03-23
3683 윈 도 우| 윈도우10 작업표시줄 시계 초 단위 표시하는 방법 [12] gooddew 2038 15 03-22
3682 소프트웨어| 디스크 다중 복사 ( HDCLONE ) [5] gooddew 1958 16 03-21
3681 윈 도 우| [스크립트] Windows 7 January 2020 ISO 만들기 [5] VenusGirl 1544 13 03-21
XE1.11.6 Layout1.4.8