윈 도 우 볼륨,소리 조절 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 | - | - | - |
1787 | 윈 도 우| 윈도우8 스토어 앱 기본 설치 위치 변경하기 [14] | chkid | 17525 | 7 | 10-31 |
1786 | 윈 도 우| 작업 표시줄 좌측에 바탕화면 바로가기 아이콘 만들기 [4] | DOS | 17502 | 0 | 02-17 |
1785 | 윈 도 우| 쉽고 빠르고 간단한 컴퓨터 최적화 팁! [27] | 핑크맛우유 | 17481 | 4 | 11-16 |
1784 | 윈 도 우| 윈도우XP IE8 초간단 "다운그레이드 후 재설치"... [2] |
|
17458 | 1 | 05-14 |
1783 | 윈 도 우| VHDman으로 교차부팅 이용하기 (WTG) [13] | 하늘보기 | 17439 | 15 | 04-28 |
1782 | 윈 도 우| 윈도 창틀 두께 조절 [7] | mikeswlee | 17335 | 3 | 08-05 |
1781 | 윈 도 우| ie 단축키 모음 [10] | 지그재그 | 17334 | 4 | 03-07 |
1780 | 윈 도 우| 윈도우 8도 7과 같이 하드디스크 설치및 usb에서 똑같이 설... [4] | 미소체리 | 17285 | 1 | 09-22 |
1779 | 윈 도 우| 뉴오피스 팁들 [10] | 지그재그 | 17238 | 14 | 03-27 |
1778 | 윈 도 우| 원도우8 안전모드 진입하기 [9] |
|
17196 | 1 | 08-19 |
1777 | 윈 도 우| 윈도우7쓰시는분들은 이거쓰조 | 별우 | 17079 | 1 | 09-06 |
1776 | 윈 도 우| Gimagex로 만능고스트 만들기 [18] | ITforce | 16974 | 6 | 04-05 |
1775 | 윈 도 우| win 7 마우스 오른쪽 메뉴에 '메모장으로 열기' 추가하는 방법 [11] | 일교차 | 16970 | 3 | 12-07 |
1774 | 윈 도 우| 전원 옵션 추가 - 코어파킹 - 난방 온도조절 [10] | App | 16932 | 3 | 12-09 |
1773 | 윈 도 우| MSDN 순정 확인 방법 [9] | suk | 16900 | 5 | 12-20 |
1772 | 윈 도 우| 윈도우8에서 가젯 사용하기 64비트 [15] |
|
16874 | 2 | 08-09 |
1771 | 윈 도 우| 윈8 팁 [5] | 지그재그 | 16846 | 9 | 11-12 |
1770 | 윈 도 우| 1. MS 인증 개념 및 종류 [3] | 공피 | 16841 | 0 | 02-14 |
1769 | 윈 도 우| 연결 프로그램 (Open With) [12] |
|
16832 | 0 | 07-15 |
1768 | 윈 도 우| 윈도우 XP 설치용 USB 디스크 만들기 [4] | 매니안 | 16775 | 4 | 07-28 |
수고 하셨습니다. 감사합니다.