[해결] 틈틈이 v2-2

굿듀님, 지후빠님 배치파일 추가 했습니다.

스크립트 안에 레지를 수정하는 것들을 테스트하다가 

난감한 상황이 되어 공개가 늦어지고 있습니다.ㅠㅠ

폴더와 드라이브 만 제외하고 더블클릭으로 모든 것이 열립니다.

우클릭에 열기는 됩니다.

구글 검색등, 모든 조치를 취해도 고쳐지지않네요.ㅠㅠ

해결하면 공개하도록 하겠습니다.

UAC끄기켜기.vbs를 실행하니

더블클릭으로 안열리던 "폴더와 드라이브"가 열리네요.ㅠㅠ

그 이후 UAC를 껐다켜도 정상입니다.

레지를 건드려서 토글하는 것들은 해당 레지 백업을 추가하도록 수정할 예정입니다.

이전 자료는 오류가 여기저기 있어 많이 손본 상태입니다.

테스트도 완벽하게 했고요.

그리고 제 닉네임을 청락에서 까치와대구로 바꾸었습니다.

식당 상호를 바꾸었거든요.^^

'UAC끄기켜기.vbs

If Not WScript.Arguments.Named.Exists("elevate") Then

  CreateObject("Shell.Application").ShellExecute WScript.FullName _

    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1

  WScript.Quit

End If

UAC = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA"

Set Sh = WScript.CreateObject("WScript.Shell")

St = Sh.RegRead(UAC)

If St = 1 Then

Sh.RegWrite UAC, 0, "REG_DWORD"

x=msgbox("UAC 끔 _ 재부팅 요망" ,0, "www.sordum.net")

Set objShell = WScript.CreateObject( "WScript.Shell" )

objShell.Run("%WINDIR%\System32\UserAccountControlSettings.exe")

Set objShell = Nothing

Else

Sh.RegWrite UAC, 1, "REG_DWORD"

x=msgbox("UAC 켬 _ 재부팅 요망" ,0, "www.sordum.net")

Set objShell = WScript.CreateObject( "WScript.Shell" )

objShell.Run("%WINDIR%\System32\UserAccountControlSettings.exe")

Set objShell = Nothing

End If