소프트웨어 바탕화면 마우스 우클릭 통합

 

1. rexplorer + Icon Cache 리셋 통합

====== 소스 내용 ======

 

cmd /c taskkill /f /im Rexplorer.exe & del /a %userprofile%\AppData\Local\IconCache.db & start Rexplorer

 

 

 

2. 숨김 보기 전환 

    1) 숨김 폴더 보기 숨김 

    2) 파일 확장자 보기 숨김

    3) 보호된 운영체제 보기 숨김 

 

    4) hidden 파티션 

       소스 파악이 불가능하여 보기 후 숨김 전환이 안되어 제외

 

 

====== 소스 내용 ======

' Created by: safercom

 

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

Dim WSFShell

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

if WSFShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") =0 then

WSFShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"

WSFShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"

WSFShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "0", "REG_DWORD"

WScript.CreateObject("WScript.Shell").Run "%systemdrive%\windows\system32\Rexplorer.exe"

 

 

else

WSFShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"

WSFShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"

WSFShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"

WScript.CreateObject("WScript.Shell").Run "%systemdrive%\windows\system32\Rexplorer.exe"

 

end if

Set WSFShell = Nothing

WScript.Quit(0)

end if

 

 

 

 (RocketDock+Rainmeter = windows와 PE겸용으로 copy후 바로 사용 가능하도록 셋팅함)

 

 

3. 블랙&화이트 : 시작메뉴와 테마 동시에 전환 

 

====== 소스 내용 ======

' Created by: safercom

 

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

Dim WSFShell

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

if WSFShell.RegRead("HKCU\SOFTWARE\OpenShell\StartMenu\Settings\SkinC1") ="DogmaX4 port" then

WScript.CreateObject("WScript.Shell").Run "%systemdrive%\windows\MRClick\StartBlack.cmd"

WScript.CreateObject("WScript.Shell").Run "%systemdrive%\windows\MRClick\ThemeReset.cmd"

WScript.CreateObject("WScript.Shell").Run "%systemdrive%\windows\system32\Rexplorer.exe"

 

else

WScript.CreateObject("WScript.Shell").Run "%systemdrive%\windows\MRClick\StartDogma.cmd"

WScript.CreateObject("WScript.Shell").Run "%systemdrive%\windows\MRClick\ThemeReset.cmd"

WScript.CreateObject("WScript.Shell").Run "%systemdrive%\windows\system32\Rexplorer.exe"

 

end if

Set WSFShell = Nothing

WScript.Quit(0)

end if

 

 

 

 

 

4. 내 컴퓨터 우클릭은 기본만 등록

   xxx.wim\ProgramData\Microsoft\Windows\Start Menu\Programs\컴퓨터 관리자\

   xxx.wim\ProgramData\Microsoft\Windows\Start Menu\Programs\명령 프롬프트\

   아래와 같이 따로 링크 걸어서 사용 가능

   

 

 

 

 

 

 

 

 

5. 닷넷 : 통째로 USB에서 windows\microsoft.net 링크  

 

 

 

 

6. 아래와 같이 설정하면

   ISO일 때는 Y: 드라이브

   USB일 때는 U:드라이브로 바뀝니다.  

 

 

 

 

 

제가 개조 중인 sergei 기준입니다.

 

각 PE마다 환경이 다르니 참조하시기 바랍니다.