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

2020.01.20 02:00

레마클로 조회:1626 추천: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 - - -
3613 윈 도 우| 무선랜 토글 만들기 + α [8] 레마클로 1976 6 02-01
3612 하드웨어| [Tip] 노트북 배터리 수명 확인 [9] asklee 2202 3 01-30
3611 소프트웨어| 파이어폭스 자체 스크린캡쳐 기능 사용하기 [8] 클라크 496 4 01-30
3610 소프트웨어| 크롬 자체 캡쳐 기능 사용하기 [2] 미유키로즈 1033 4 01-30
3609 소프트웨어| AdGuard 확장기능(스크립트)으로 브라우저에 날개를 [6] 오호라7 1639 11 01-28
3608 윈 도 우| grub2 로 부팅 단축키 설정하기 [6] gooddew 1027 9 01-27
3607 윈 도 우| 유용한 CMD 명령어 정리 [6] gooddew 2640 14 01-26
3606 윈 도 우| RunOncePE-Maker final [3] 레마클로 1842 11 01-26
3605 기 타| [정보] 윈도우10 쓰는 사람 필독 [9] ♣OSISO™ 5789 18 01-25
3604 윈 도 우| 집앞의_큰나무님의 "우클 PE 부팅" 원클릭화 (... [5] 레마클로 1832 7 01-23
» 윈 도 우| 볼륨,소리 조절 nircmd.exe 이용 (vbscript) -- 수정된 ... [7] 레마클로 1626 6 01-20
3602 윈 도 우| 기본 프린터 확인 및 테스트 페이지 인쇄 batch script [5] 컨피그 1018 9 01-19
3601 윈 도 우| backup2VHD & 토글스위치(수정) [7] 레마클로 1417 13 01-17
3600 윈 도 우| 자료 mover(파일 첨부) [11] 레마클로 2283 20 01-16
3599 윈 도 우| 저장공간 확인 및 정리 [16] 레마클로 2719 17 01-15
3598 윈 도 우| 설치된 기본프린터 확인 및 테스트페이지 인쇄 vbscript [25] 레마클로 1892 22 01-14
3597 윈 도 우| 마이크로소프트 윈도우 라이선스 정리 [7] gooddew 4435 14 01-11
3596 소프트웨어| SearchPreview - 웹 사이트의 미리보기 이미지 - Firefox... VenusGirl 920 2 01-06
3595 윈 도 우| PE 부팅 파티션 만들기 (legacy) [13] gooddew 2850 13 01-05
3594 기 타| Manjaro 리눅스 - 처음 설치 기본 가이드 [2] VenusGirl 1075 2 01-05
XE1.11.6 Layout1.4.8