윈 도 우 볼륨,소리 조절 nircmd.exe 이용 (vbscript) -- 수정된 첨부파일로 교체--
2020.01.20 02:00
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
스크립트 끝
댓글 [7]
-
cungice 2020.01.20 08:18
-
왕초보 2020.01.20 09:22
멋진 작품 감사합니다...
오늘 하루도 웃음이 가득힌 일만 있으시길 바랍니다..
-
그냥그렇다 2020.01.20 09:29
감사합니다.
-
한돼지 2020.01.20 14:09
감사합니다
파일을 찿을수 없습니다
밝기 맟 소리 각각
런타임에러발생합니다.
확인부탁드림니다
-
드림캐쳐 2020.01.20 14:26
1. vb 폴더안의 nircmdx64.exe 와 nircmdx86.exe를 vb.exe가 위치한 상위폴더로 이동합니다.
또는, 그대로 두고,
2. vb폴더안의 vbs파일 을 메모장을 열어 다음위치의 코드를변경합니다.
FSO.CopyFile ".\nircmd64.exe", "C:\Windows\nircmd.exe", OverwriteExisting
Else
FSO.CopyFile ".\vb\nircmd86.exe", "C:\Windows\nircmd.exe", OverwriteExisting
을 다음과 같이,
FSO.CopyFile ".\vb\nircmd64.exe", "C:\Windows\nircmd.exe", OverwriteExisting
Else
FSO.CopyFile ".\vb\nircmd86.exe", "C:\Windows\nircmd.exe", OverwriteExisting
-
레마클로 2020.01.20 16:34 curdir 를 넣어서 수정했고
FSO.CopyFile curdir & "\nircmd64.exe", "C:\Windows\nircmd.exe", OverwriteExisting
아예 nircmd 복사 탭을 만들었습니다.^^
-
한돼지 2020.01.20 18:46
감사합니다
소리 단계별 작동 잘됨니다.
그런데 위와 같은 에러메세지 나오지만 . . .
화면 밝기는 체감 할 수 없어요 . . .
번호 | 제목 | 글쓴이 | 조회 | 추천 | 등록일 |
---|---|---|---|---|---|
[공지] | 강좌 작성간 참고해주세요 | gooddew | - | - | - |
1175 | 윈 도 우| 윈빌더로 빌드시 빌드 부분 확인 하세요. [2] | 오늘을사는 | 1151 | 6 | 10-27 |
1174 | 윈 도 우| 핀 번호 암호 모를때 pe에서 간단한 작업후 로그인하고 핀... [4] | heykevin | 1817 | 6 | 12-08 |
» | 윈 도 우| 볼륨,소리 조절 nircmd.exe 이용 (vbscript) -- 수정된 첨... [7] |
|
1949 | 6 | 01-20 |
1172 | 윈 도 우| 무선랜 토글 만들기 + α [8] |
|
2594 | 6 | 02-01 |
1171 | 소프트웨어| FASTKEYS 런처 기능 소개 |
|
1536 | 6 | 10-10 |
1170 | 윈 도 우| 모니터 색감을 조절하자 - Aura(오라) [4] | 깨블리 | 2704 | 6 | 04-20 |
1169 | 소프트웨어| 크롬 깔끔하지만 복잡한 설치 | 누군가 | 2270 | 6 | 02-16 |
1168 | 기 타| MX linux 19.x 기본 설치 가이드 [1] | VenusGirl | 1775 | 6 | 04-26 |
1167 | 윈 도 우| 파일/폴더 작업 표시줄에 고정 Pin to Taskbar [17] | 지후빠 | 1409 | 6 | 03-02 |
1166 | 윈 도 우| 윈도우8.1키를 찾아보았습니다. [7] | 하늘은높고 | 1510 | 6 | 03-12 |
1165 | 서버 / IT| Wireless PXE 부팅 서버 구축하기 [6] | gooddew | 1417 | 6 | 03-14 |
1164 | 윈 도 우| 토커도구모음에서 메인보드 셋업에 진입하기 [10] | 눈이 | 1415 | 6 | 07-05 |
1163 | 서버 / IT| CentOS 8 기본 설치 안내서 [3] | VenusGirl | 1786 | 6 | 06-07 |
1162 | 소프트웨어| UNetbootin (Universal Netboot Installer) 범용 Netboot ... [3] | VenusGirl | 1089 | 6 | 06-11 |
1161 | 윈 도 우| 윈도우 디펜더 관리(자동업데이트) [1] |
|
3859 | 6 | 06-17 |
1160 | 기 타| WOL CMD로 부팅하기 [1] |
|
1651 | 6 | 06-20 |
1159 | 윈 도 우| Wimboot으로 구성된 시스템 업데이트하는 방법 [4] | maniaa | 1645 | 6 | 06-23 |
1158 | 소프트웨어| 너튜브 재생시 끊김현상 안되시는분? [4] | 메인보드 | 1695 | 6 | 08-29 |
1157 | 윈 도 우| 노트북 멀티 부스트 장착하기 [6] | gooddew | 1523 | 6 | 09-15 |
1156 | 윈 도 우| Windows 11에서 위젯을 제거하는 방법 [1] | VₑₙᵤₛG | 2616 | 6 | 10-09 |
수고 하셨습니다. 감사합니다.