강좌 / 팁

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

2020.01.20 02:00

레마클로 조회:1974 추천: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

스크립트 끝

https://windowsforum.kr/lecture/12727969 홈으로 위로 목록
홈으로 위로 목록
번호 제목 글쓴이 조회 추천 등록일
[공지] 강좌 작성간 참고해주세요 gooddew - - -
3563 윈 도 우| PE DPI 조절 스크립트 V1.03 [14] 히이이잌 1848 19 02-09
3562 소프트웨어| [엑셀팁] 숫자를 숫자 <-> 문자 포멧 전환하기 [6] 지후빠 1883 4 02-09
3561 윈 도 우| ContextMenu on/off [5] 레마클로 1458 14 02-08
3560 윈 도 우| 파일명 변경(+확장자제거) - 수정완료 [17] 레마클로 1782 10 02-08
3559 윈 도 우| PE 우측하단 워터마크에 시스템 정보 넣기 [6] 히이이잌 1670 11 02-06
3558 윈 도 우| PESE로 기존 PE에 기능 추가하기(내용추가) [16] 히이이잌 2988 29 02-05
3557 윈 도 우| 윈도우 10 최적화 설정 하기 [30] gooddew 10372 44 02-02
3556 윈 도 우| PrincePE_V18.5 [164] %카리스마 205116 99 02-02
3555 윈 도 우| 무선랜 토글 만들기 + α [8] 레마클로 2621 6 02-01
3554 하드웨어| [Tip] 노트북 배터리 수명 확인 [9] asklee 3354 5 01-30
3553 소프트웨어| 파이어폭스 자체 스크린캡쳐 기능 사용하기 [8] 클라크 738 4 01-30
3552 소프트웨어| AdGuard 확장기능(스크립트)으로 브라우저에 날개를 [6] 오호라7 2594 11 01-28
3551 윈 도 우| grub2 로 부팅 단축키 설정하기 [7] gooddew 2056 11 01-27
3550 윈 도 우| 유용한 CMD 명령어 정리 [7] gooddew 4193 18 01-26
3549 기 타| [정보] 윈도우10 쓰는 사람 필독 [10] ♣OSISO™ 8900 19 01-25
3548 윈 도 우| 집앞의_큰나무님의 "우클 PE 부팅" 원클릭화 (TE... [5] 레마클로 2204 7 01-23
» 윈 도 우| 볼륨,소리 조절 nircmd.exe 이용 (vbscript) -- 수정된 첨... [7] 레마클로 1974 6 01-20
3546 윈 도 우| 기본 프린터 확인 및 테스트 페이지 인쇄 batch script [5] 컨피그 1527 9 01-19
3545 윈 도 우| backup2VHD & 토글스위치(수정) [7] 레마클로 1755 13 01-17
3544 윈 도 우| 자료 mover(파일 첨부) [11] 레마클로 2582 20 01-16
홈으로 위로 목록
XE1.11.6 Layout1.4.8