강좌 / 팁

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

2020.01.20 02:00

레마클로 조회:1936 추천: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 - - -
470 윈 도 우| 윈도우 10 디스크에서 바로 설치 하기 (WinToHDD) [11] gooddew 4157 10 10-28
469 윈 도 우| 윈도우 10 만능 복구 이미지 만들기 [49] gooddew 12586 28 11-02
468 윈 도 우| OS 마이그레이션 [12] gooddew 4327 9 11-02
467 윈 도 우| 윈도우 시스템 에러 복구하기 [7] gooddew 4657 12 11-11
466 윈 도 우| MBR2GPT 사용법 [13] gooddew 5032 16 11-18
465 윈 도 우| Windows-ISO-Downloader 짜증나는 광고제거 [6] sTarTrak 2237 13 11-23
464 윈 도 우| 초보자도 따라하는 전화 인증 [7] gooddew 6919 12 11-23
463 윈 도 우| 그림으로 보는 복원영역 만들기 [50] 디폴트 5539 42 12-22
462 윈 도 우| [UEFI] 부팅 PE 파티션 설치하기 [19] gooddew 6344 29 12-28
461 윈 도 우| PE 부팅 파티션 만들기 (legacy) [13] gooddew 3776 15 01-05
460 윈 도 우| 마이크로소프트 윈도우 라이선스 정리 [7] gooddew 5215 14 01-11
459 윈 도 우| 설치된 기본프린터 확인 및 테스트페이지 인쇄 vbscript [25] 레마클로 2554 23 01-14
458 윈 도 우| 저장공간 확인 및 정리 [16] 레마클로 3148 17 01-15
457 윈 도 우| 자료 mover(파일 첨부) [11] 레마클로 2550 20 01-16
456 윈 도 우| backup2VHD & 토글스위치(수정) [7] 레마클로 1717 13 01-17
455 윈 도 우| 기본 프린터 확인 및 테스트 페이지 인쇄 batch script [5] 컨피그 1475 9 01-19
» 윈 도 우| 볼륨,소리 조절 nircmd.exe 이용 (vbscript) -- 수정된 첨... [7] 레마클로 1936 6 01-20
453 윈 도 우| 집앞의_큰나무님의 "우클 PE 부팅" 원클릭화 (TE... [5] 레마클로 2173 7 01-23
452 윈 도 우| 유용한 CMD 명령어 정리 [7] gooddew 4143 18 01-26
451 윈 도 우| grub2 로 부팅 단축키 설정하기 [7] gooddew 1981 11 01-27
홈으로 위로 목록
XE1.11.6 Layout1.4.8