윈 도 우 볼륨,소리 조절 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 | - | - | - |
4487 | 호환이 안된다는 드라이버 강제로 적용하는 방법 [1] | ASUS | 13190 | 0 | 10-13 |
4486 | ASUS,LG....자동인증 씨디 만들기 [4] | 왕대인 | 14834 | 0 | 10-13 |
4485 | 구매시 XP가 기본 장착된 모델인 경우 개조안하고 VISTA O... [5] |
|
9790 | 0 | 10-13 |
4484 | 구매시 XP가 기본 장착된 모델인 경우 VISTA OEM으로 [6] |
|
11454 | 0 | 10-13 |
4483 | 기 타| 종이로 시디케이스 만들기(두가지) [5] | gooddew | 11681 | 0 | 10-14 |
4482 | VISTA의 BCDEDIT로 간단히 XP 멀티부팅정보 추가하기 [1] |
|
11482 | 0 | 10-16 |
4481 | 미디어플레이어 64비트 설정 방법 [4] | 히로 | 10667 | 0 | 10-18 |
4480 | 탐색기에서 파일이동 복사하기 메뉴만들기 [2] | gg | 10217 | 0 | 10-27 |
4479 | 윈도탐색기에서 보기옵션 고정하기 [3] | gg | 10374 | 0 | 10-27 |
4478 | Xp 가 탑제된 컴의 Vista 인증원리 [2] |
|
12288 | 0 | 10-27 |
4477 | [Vista] 레디부스트 지원 안되는 USB 사용방법!? [5] | 김용환 | 11108 | 0 | 10-30 |
4476 | 비스타 RC 버전 인증기 [4] | 묵은지 | 12086 | 0 | 10-31 |
4475 | ReadyBoost, Qsoft의 RamDisk로 "체험"하기 [1] |
|
13853 | 0 | 11-04 |
4474 | 즐겨찾기 목록 폴더 자동 원상복구 [1] | 퍼온이 | 10367 | 0 | 11-04 |
4473 | 지포스 최신 드라이버 설치시 카트라이더 문제점 해결.. [1] |
|
9586 | 0 | 11-13 |
4472 | 기 타| JRSKD24.SYS 손상에 의한 부팅불가시 복구법..!! [4] | gooddew | 13987 | 0 | 11-14 |
4471 | 기 타| 비스타 버전별 기능 [6] | gooddew | 10130 | 0 | 11-17 |
4470 | 비스타 서팩1 설치 안될때의 설치방법 제안! [5] | 테스트맨 | 9400 | 0 | 11-17 |
4469 | sp1 rc v658 삭제 [4] |
|
7947 | 0 | 11-18 |
4468 | 비스타 SP1 v658설치 [4] | 비스타유져 | 8848 | 0 | 11-18 |
수고 하셨습니다. 감사합니다.