윈 도 우 Move over there 등록_제거 final 2020-04-15

테스트 결과 폴더명에 점(.)은 오류 나고(예:새폴더.txt) ㅠㅠ

파일명에 점(.)이 없어도 정상작동하네요.^^

일단 수정해서 올렸습니다.

감수 부탁드려요.^^

C:\Windows\System32\MoveOverthere01.vbs

C:\Windows\System32\MoveOverthere02.vbs

C:\Windows\System32\MoveOverthere03.vbs

C:\Windows\System32\MoveOverthere04.vbs

C:\Windows\System32\MoveOverthere05.vbs 

한 파일로 되면 좋을 텐데 지식이 부족해서 못하겠네요.ㅠㅠ

늦은 시간에 고맙습니다.^^

If WScript.Arguments.Count > 1 Then

   For i = 1 To Wscript.Arguments.Count - 1

Arg = WScript.arguments.item(i)

       If (f.FolderExists(Arg)) Then

         Set gFolder = f.GetFolder(Arg)

         gFolder.Copy MyDestinationFolder, OverwriteExisting

         f.DeleteFolder Arg,OverwriteExisting   

       Else

         Set gFile = f.GetFile(Arg)

         gFile.Copy MyDestinationFolder & gFile.Name,OverwriteExisting

         f.DeleteFile Arg,OverwriteExisting

       End If

   Next i

End If

 i 빼고 테스트 ---> 잘 됩니다.

내일 더 자세히 보겠습니다.^^

백업폴더 등록은 잘 됨

백업실행 오류

내일 자세히 살펴보고 배우겠습니다.^^

넵, 사무실에 테스트 할 수 있는 컴이 있어서 출근해서 해보겠습니다. 레지스트리를 직접 열어봐야겠습니다.^^

일단 reg 파일 수정한 두가지 올려 놉니다. (사무실 가서 해보려구요...) MoveOverthere 수정1.reg MoveOverthere 수정2.reg

자세히 봐야 할 것 같습니다.

vbs 파일 수정 권한 문제도 걸리고 다음과 같은 오류도 나서요.

Dim Arg, arg0 : arg0 = WScript.arguments.item(0)

각 스크립트 첫줄에 각각 별개의 경로가 있는 것을 생각 못했습니다. 이 방법은 안될듯 합니다.

바빠서 집중해서 볼 시간이 안되네요 죄송합니다.ㅠㅠ

원본으로 다시 테스트 하겠습니다.^^

죄송한 건 저죠.

바쁜시간 내 주시는 것 만도 고맙습니다.^^

참고하겠습니다.^^

저 때문에 고생이 많으셨습니다.^^

바쁜시간 지나면 테스트 해 보겠습니다

단순 데이타 백업용 정도면 될 것 같습니다.^^

구글링 해 보니

https://gist.github.com/simply-coded/a89cc21b69bba3666e260292b7522071

RunAsAdminNoUAC.vbs

----------------------------

Sub RunAsAdminNoUAC(remove)

'@description: Run current script as administrator. Only prompts UAC once.

'@author: Jeremy England (SimplyCoded)  

  With CreateObject("WScript.Shell")    

    If WScript.Arguments.length = 0 Then

      If .Run("schtasks /Query /FO CSV /NH /TN """ & WScript.ScriptName & """", 0, True) = 0 Then

        .Run "schtasks /Run /TN """ & WScript.ScriptName & """", 0, True

      Else

        CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & _

        WScript.ScriptFullName & """ AdminArg", "", "runas", 1

      End If

    ElseIf WScript.Arguments.Item(0) = "AdminArg" Then

      .Run "schtasks /Create /SC ONCE /TN """ & WScript.ScriptName & """ /TR ""wscript.exe \""" & _

        WScript.ScriptFullName & "\"" TaskArg"" /ST 00:01 /IT /F /RL HIGHEST", 0, True

      Exit Sub

    ElseIf WScript.Arguments.Item(0) = "TaskArg" Then

      If remove Then .Run "schtasks /Delete /TN """ & WScript.ScriptName & """ /F", 0, True : _

        .Popup "Task Deleted", 2 : WScript.Quit 

      Exit Sub  

    End If

    WScript.Quit

  End With

End Sub : RunAsAdminNoUAC(False)

 usage.vbs

------------

'Pass in True to delete the Task from Task Scheduler.

Call RunAsAdminNoUAC(False)

'Example code that needs admin permissions to run.

set owss = createobject("wscript.shell")

owss.run("cmd /k net user administrator /active:yes")

'owss.run("cmd /k net user administrator /active:no")

'==================================================

Sub RunAsAdminNoUAC(remove)

'@description: Run current script as administrator. Only prompts UAC once.

'@author: Jeremy England (SimplyCoded)  

  With CreateObject("WScript.Shell")    

    If WScript.Arguments.length = 0 Then

      If .Run("schtasks /Query /FO CSV /NH /TN """ & WScript.ScriptName & """", 0, True) = 0 Then

        .Run "schtasks /Run /TN """ & WScript.ScriptName & """", 0, True

      Else

        CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & _

        WScript.ScriptFullName & """ AdminArg", "", "runas", 1

      End If

    ElseIf WScript.Arguments.Item(0) = "AdminArg" Then

      .Run "schtasks /Create /SC ONCE /TN """ & WScript.ScriptName & """ /TR ""wscript.exe \""" & _

        WScript.ScriptFullName & "\"" TaskArg"" /ST 00:01 /IT /F /RL HIGHEST", 0, True

      Exit Sub

    ElseIf WScript.Arguments.Item(0) = "TaskArg" Then

      If remove Then .Run "schtasks /Delete /TN """ & WScript.ScriptName & """ /F", 0, True : _

        .Popup "Task Deleted", 2 : WScript.Quit 

      Exit Sub  

    End If

    WScript.Quit

  End With

End Sub

저는 uac 끄고, vbs 관리자권한 주고 컴을 사용합니다.

If WScript.Arguments.length = 0 Then

Set objShell = CreateObject("Shell.Application")

objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1

End If

이 부분이 uac,admin 해결사 인가요?

이부분 넣고 .vbs를 관리자권한으로 실행하면 실행이 안되는 것 같습니다....

MoveOverthere.Reg 일부 수정 후(@="wscript.exe C:\\Windows\\MoveOverthere.vbs 0 \" \"%1\"")

백업 폴더 설정 후 백업 해 봤습니다. 폴더든 파일이든 똑같은 에러가 납니다.ㅠㅠ

백업 받은 레지는 "wscript.exe C:\\Windows\\MoveOverthere.vbs 0 \"%1\"" 입니다. 중간에 뭐가 더 끼어든 것 같습니다..

\" \"%1\"" -> \"%1\"" 로 바꾸셔야 할 것 같습니다. 기본 레지로만 해보심이...

위 어드민 코드가 맞는데 이 코드는 argument를 넘겨줄 수 없게 만듭니다.ㅠㅠ arg 가 없어야 Else 이후를 관리자 권한으로 실행합니다.

uac 라는 가짜 arg를 넘겨줘서 갯수가 0이 아닌 것 처럼 해서 관리자 권한으로 실행합니다. 그래서 arg 없을때만 가능합니다.

그래서 UAC가 필요한 부분은 따로 스크립트를 빼서 작성하는 것이 필요할 것 같습니다. 위쪽의 어드민 코드는 살펴보겠습니다.^^

아 제가 잘못 건드려서..ㅠㅠ

주신 MoveOverthere.Reg로 잘됩니다

RExplore.exe 없어도 레지 적용되니 불필요합니다.^^

--------------------

※ 관리자 권한으로 실행 메뉴 등록

이것은 아래와 같은 레지스트리를 통해 구성하게 됩니다.

[HKEY_CLASSES_ROOT\VBSFile\Shell\Runas]

@="관리자 권한으로 실행"

[HKEY_CLASSES_ROOT\VBSFile\Shell\Runas\Command]

@=hex(2):22,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\

  00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,57,00,\

  73,00,63,00,72,00,69,00,70,00,74,00,2e,00,65,00,78,00,65,00,22,00,20,00,22,\

  00,25,00,31,00,22,00,20,00,25,00,2a,00,00,00

이 때 Command 키의 (기본값) 값은 레지스트리 등록 파일 .reg 에서는 위와 같이 헥스 값으로 표현이 됩니다. 하지만 이는 원래 REG_EXPAND_SZ 형식으로 내용은 "%SystemRoot%\System32\WScript.exe" "%1" %* 입니다. [이러한 내용을 헥스 값으로 표현하면 위의 내용이 되는 겁니다.] 배치 파일에서 reg add 명령으로 처리할 땐 이렇게 원래의 형식으로 처리를 해야 합니다.

※ 관리자 권한으로 실행을 기본으로 지정

이것은 아래와 같은 레지스트리를 통해 구성하게 됩니다.

[HKEY_CLASSES_ROOT\VBSFile\Shell]

@="Runas"

기본 값은 실행인 Open 이며 이를 Runas 로 바꿔주기 위해선 위의 관리자 권한으로 실행 메뉴가(Runas 키) 먼저 등록이 되어야 합니다.

런원스로 레지 적용했다가 기본값으로 되돌리는 것도 방법 중 하나 일겁니다만 ...ㅠㅠ

------------------

다음 두 가지 사항에주의하십시오.

1. 매개 변수는 AllFilesystemObjects 하위 키에 추가됩니다 . 우리는 파일을 다루 곤했지만 종종 아카이브에 폴더를 추가해야합니다. 이 하위 섹션은 파일 시스템의 모든 객체, 즉 파일 및 폴더.
2. REG 파일에서 슬래시의 큰 따옴표와 큰 따옴표로 인해 명령이 혼란스러워 보이지만 레지스트리에서는 더 명확 해 보입니다.

   1	nircmd elevate "C:\Program Files\7-Zip\7z.exe" a "%1".7z "%1"

   첫 번째 매개 변수 % 1 은 (는) 아카이브의 위치 7z에 대한 전체 경로를 설정하며 해당 이름은 아카이브 된 오브젝트의 이름과 동일합니다. 즉, 아카이브는 이름이 같은 아카이브 된 폴더 또는 파일과 동일한 레벨에서 작성됩니다. 두 번째 매개 변수 % 1 은 (는) 아카이브에 추가 할 폴더 또는 파일을 나타냅니다.

이 방법의 한계

불행히도 이러한 메뉴 항목은 완벽하게 작동하지 않습니다. 여러 폴더 나 파일을 선택하면 각 개체가 별도의 아카이브에 배치됩니다. 시스 (도체)에 순차적으로 제 인수로서 아카이브 파일명 송신 % 1 , 즉, 각 파일 또는 폴더의 전체 경로.

% 1 의 첫 번째 인스턴스 대신 고정 된 아카이브 이름 (예 : archive.7z ) 을 지정하여이를 피할 수 있습니다 .

이 경우 각 파일이 추가 될 때 아카이브가 순차적으로 업데이트됩니다.

물론 아카이브의 영구적 인 이름은 그리 편리하지는 않지만, 두 번째 제한이 없다면 아카이브를 따라갈 수 있습니다. 여러 개체에 대한 동시 액세스와 관련이 있습니다. 각각에 대해 UAC 요청이 표시됩니다. 나는 이미이 문제를 고려했다 . 아카이버와 관련하여 선택된 일부 객체가 아카이브에 속하지 않는다는 사실로 표현됩니다.

따라서 권장되는 UAC 수준 (보안 데스크톱 사용)에서이 방법은 하나의 폴더 또는 하나의 파일을 보관할 때만 실패하지 않습니다.

보시다시피 레지스트리에 추가 된 수제 컨텍스트 메뉴 항목은 아카이버가 탐색기에 통합 된 전체 셸 확장만큼 편리하지 않습니다. 그러나 모든 권한을 가진 아카이버 실행을 제공하지는 않습니다.

큰따옴표(" ")가 안 보이게 하려면?...

그 부분만 수정했습니다. ^^ MoveOverthere.vbs

확인해보니 문제 없는 것 같습니다. 기존 세팅 다시 하시면 될거 같습니다.^^

uac 기본값으로 하고 실행 한 스샷입니다.ㅠㅠ

EcMenu_x64.exe

잘 살펴보시고 삭제 하시면됩니다

일단 지후빠님이 도와주고 계셔서 완성되면 다시 올려 드립니다.

그때 받으세요.

지후아빠님이 파일 갯수를 더 줄여 주실겁니다만(?),

완성본이라 볼 수 있습니다.

암호 없으니 받으셔서 유용하게 사용하시기 바랍니다.^^

고맙습니다.^^

저도 일단 3개 파일로 줄였습니다.(파일 갯수만 줄인 것에 불과함)

지후아빠님 파일은 내일 살펴보고 많이 배우겠습니다.^^

테스트 해 보니 거의 완벽합니다.^^

설치시 ---> " 제거하시겠습니까" 와

제거시 ---> "설치하시겠습니까" 부분만 안 보이면 완벽합니다.

그리고 MoveOverThere.vbs와 MoveOverUAC.vbs까지 C:\Windows 에 생성되게

MoveOverThere 설치 제거.vbs를 고치면

단일 파일(MoveOverThere 설치 제거.vbs)이 될 것 같습니다.

완성 해 주시면 제 파일, 지후아빠님 파일 함께 소개하겠습니다. 

 (제가 개인적으로 사용할 파일은 따로 지후아빠님 파일 뜯어(?)보고(^^) 수정할겁니다)

고생 많으셨습니다.^^

PS

도 1~2초 만 보이게....

c:\Windows\MoveOverThere.vbs 파일이 있으면 제거, 없으면 설치 과정이 되게 수정하였습니다.^^ MoveOverThere final 2020-04-03.zip

제거 후 메세지도 popup으로 바꿨습니다.^^ 파일 하나로 합치는 것도 될 것 같긴한데... 시간될때 해보겠습니다.

PS. 제가 탐색기를 잘 안써서 그렇지 편의성이 돋보이는 것 같습니다.^^

고맙습니다.^^

테스트 해 보니 잘 됩니다.

본문에 지후아빠님 파일 링크걸었습니다

아이디어가 좋은 것이죠. 완벽하진 않을듯... 수고 하셨습니다.^^

집에서 PC 만지면 눈치가 보여서 많이 못합니다ㅠㅠ 자주 잠깐씩 눈팅하는 정도인데... 많이 늦어진것 같아서 뒷북 느낌입니다...

고맙습니다.^^^^

고맙습니다.^^