윈 도 우 볼륨,소리 조절 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 | - | - | - |
3580 | 소프트웨어| 파이어폭스 자체 스크린캡쳐 기능 사용하기 [8] | 클라크 | 709 | 4 | 01-30 |
3579 | 소프트웨어| AdGuard 확장기능(스크립트)으로 브라우저에 날개를 [6] | 오호라7 | 2529 | 11 | 01-28 |
3578 | 윈 도 우| grub2 로 부팅 단축키 설정하기 [7] | gooddew | 1981 | 11 | 01-27 |
3577 | 윈 도 우| 유용한 CMD 명령어 정리 [7] | gooddew | 4143 | 18 | 01-26 |
3576 | 기 타| [정보] 윈도우10 쓰는 사람 필독 [10] | ♣OSISO™ | 8833 | 19 | 01-25 |
3575 | 윈 도 우| 집앞의_큰나무님의 "우클 PE 부팅" 원클릭화 (TE... [5] |
|
2173 | 7 | 01-23 |
» | 윈 도 우| 볼륨,소리 조절 nircmd.exe 이용 (vbscript) -- 수정된 첨... [7] |
|
1936 | 6 | 01-20 |
3573 | 윈 도 우| 기본 프린터 확인 및 테스트 페이지 인쇄 batch script [5] | 컨피그 | 1474 | 9 | 01-19 |
3572 | 윈 도 우| backup2VHD & 토글스위치(수정) [7] |
|
1717 | 13 | 01-17 |
3571 | 윈 도 우| 자료 mover(파일 첨부) [11] |
|
2550 | 20 | 01-16 |
3570 | 윈 도 우| 저장공간 확인 및 정리 [16] |
|
3148 | 17 | 01-15 |
3569 | 윈 도 우| 설치된 기본프린터 확인 및 테스트페이지 인쇄 vbscript [25] |
|
2553 | 23 | 01-14 |
3568 | 윈 도 우| 마이크로소프트 윈도우 라이선스 정리 [7] | gooddew | 5215 | 14 | 01-11 |
3567 | 소프트웨어| SearchPreview - 웹 사이트의 미리보기 이미지 - Firefox +... | VenusGirl | 1216 | 2 | 01-06 |
3566 | 윈 도 우| PE 부팅 파티션 만들기 (legacy) [13] | gooddew | 3776 | 15 | 01-05 |
3565 | 기 타| Manjaro 리눅스 - 처음 설치 기본 가이드 [4] | VenusGirl | 2942 | 6 | 01-05 |
3564 | 소프트웨어| 배치파일 사용자 설정 파일 구현하기 [4] | 히이이잌 | 2273 | 9 | 01-01 |
3563 | 소프트웨어| 데이터 영구 삭제 [5] | gooddew | 3045 | 8 | 01-01 |
3562 | 소프트웨어| 기상 정보-Forecastfox - Firefox+Google Chrome용 부가 기능 [3] | VenusGirl | 1175 | 9 | 12-31 |
3561 | 하드웨어| BIOS, CMOS, UEFI 는 무엇인가? [15] | gooddew | 3889 | 19 | 12-31 |
수고 하셨습니다. 감사합니다.