강좌 / 팁

윈 도 우 볼륨,소리 조절 nircmd.exe 이용 (vbscript) -- 수정된 첨부파일로 교체--

2020.01.20 02:00

레마클로 조회:1934 추천:6

vbb.png

 

 

 

 

brightness40.vbs (nircmd.exe 이용)

 

스크립트 시작

Const OverwriteExisting = True

Const strComputer = "."

Dim Fso, objShell, WshShell, objWMIService, colProcessList

'--------------

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")

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'Vb.exe'")

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

'--------------

For Each objProcess in colProcessList

 objProcess.Terminate()

Next

'--------------

WshShell.Run "nircmd setbrightness 40"

'--------------

 

End If

스크립트 끝

 

 

nircmd.vbs(windows폴더에 복사)

스크립트 시작

Const OverwriteExisting = True

Const strComputer = "."

Dim Fso, objShell, WshShell

'--------------

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")

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

curDir = FSO.GetParentFolderName(WScript.ScriptFullName)

'--------------

If not FSO.FileExists("C:\Windows\nircmd.exe") Then

  If OSArchCheck = "x64" Then

  FSO.CopyFile curDir & "\nircmd64.exe", "C:\Windows\nircmd.exe", OverwriteExisting

  Else

  FSO.CopyFile curDir & "\nircmd86.exe", "C:\Windows\nircmd.exe", OverwriteExisting

  End If

Else

End If

'--------------

Nir = "C:\Windows\nircmd.exe"

WshShell.Run Chr(34) & Nir & Chr(34)

WshShell.Run "nircmd sendkey enter press"

'--------------

 

End If

스크립트 끝

번호 제목 글쓴이 조회 추천 등록일
[공지] 강좌 작성간 참고해주세요 gooddew - - -
3589 소프트웨어| [엑셀팁] 숫자를 숫자 <-> 문자 포멧 전환하기 [6] 지후빠 1833 4 02-09
3588 윈 도 우| ContextMenu on/off [5] 레마클로 1416 14 02-08
3587 윈 도 우| 파일명 변경(+확장자제거) - 수정완료 [17] 레마클로 1736 10 02-08
3586 윈 도 우| PE 우측하단 워터마크에 시스템 정보 넣기 [6] 히이이잌 1613 11 02-06
3585 윈 도 우| PESE로 기존 PE에 기능 추가하기(내용추가) [16] 히이이잌 2943 29 02-05
3584 윈 도 우| 윈도우 10 최적화 설정 하기 [31] gooddew 10251 44 02-02
3583 윈 도 우| PrincePE_V18.5 [164] %카리스마 204975 99 02-02
3582 윈 도 우| 무선랜 토글 만들기 + α [8] 레마클로 2585 6 02-01
3581 하드웨어| [Tip] 노트북 배터리 수명 확인 [9] asklee 3295 5 01-30
3580 소프트웨어| 파이어폭스 자체 스크린캡쳐 기능 사용하기 [8] 클라크 706 4 01-30
3579 소프트웨어| AdGuard 확장기능(스크립트)으로 브라우저에 날개를 [6] 오호라7 2526 11 01-28
3578 윈 도 우| grub2 로 부팅 단축키 설정하기 [7] gooddew 1975 11 01-27
3577 윈 도 우| 유용한 CMD 명령어 정리 [7] gooddew 4139 18 01-26
3576 기 타| [정보] 윈도우10 쓰는 사람 필독 [10] ♣OSISO™ 8830 19 01-25
3575 윈 도 우| 집앞의_큰나무님의 "우클 PE 부팅" 원클릭화 (TE... [5] 레마클로 2173 7 01-23
» 윈 도 우| 볼륨,소리 조절 nircmd.exe 이용 (vbscript) -- 수정된 첨... [7] 레마클로 1934 6 01-20
3573 윈 도 우| 기본 프린터 확인 및 테스트 페이지 인쇄 batch script [5] 컨피그 1468 9 01-19
3572 윈 도 우| backup2VHD & 토글스위치(수정) [7] 레마클로 1712 13 01-17
3571 윈 도 우| 자료 mover(파일 첨부) [11] 레마클로 2545 20 01-16
3570 윈 도 우| 저장공간 확인 및 정리 [16] 레마클로 3145 17 01-15
XE1.11.6 Layout1.4.8