윈 도 우 볼륨,소리 조절 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 | - | - | - |
4479 | 소프트웨어| pureBasic - WIM 정보 v0993 - 내부 파일 추가 삭제 내보내... [40] | 입니다 | 8560 | 160 | 12-22 |
4478 | 소프트웨어| 한글2024 로고 교체 / 자동 설치 옵션 [54] | 무월 | 13087 | 107 | 11-25 |
4477 | 소프트웨어| [추가기능1.1]엑셀 셀의 행-열 Auto-Highlight 하는 방법들 [77] | 지후빠 | 2805 | 103 | 11-10 |
4476 | 윈 도 우| PrincePE_V18.5 [164] |
|
204983 | 99 | 02-02 |
4475 | 윈 도 우| PE 한글화 프로그램 (v1.0) [106] | ㄱㅇㄱㄱㅁ | 27982 | 89 | 06-25 |
4474 | 윈 도 우| 윈도우 10 설치, 최적화 및 기타 팁 100개 정리 [56] | 컴알못러 | 27693 | 79 | 01-26 |
4473 | 윈 도 우| PrincePE_V20 [52] |
|
2835 | 72 | 03-05 |
4472 | 윈 도 우| 배치파일을 이용해서 윈도우 자동 설치하기 [22] | gooddew | 4943 | 70 | 10-16 |
4471 | 윈 도 우| Windows 10 Ultimate (DREAM HS) [58] |
|
7352 | 70 | 08-14 |
4470 | 소프트웨어| iVentoy 만능윈도우(WIM) 자동 설치 [20] | 무월 | 4241 | 66 | 07-08 |
4469 | 윈 도 우| PrincePE_V19 [53] |
|
5096 | 65 | 02-15 |
4468 | 윈 도 우| 윈도우 장치 드라이버 추출(백업) 명령어 [25] | 컨피그 | 2677 | 64 | 02-23 |
4467 | 윈 도 우| 윈도우10 만능이미지 제작 메뉴얼 [43] | 질주민군 | 5582 | 64 | 11-19 |
4466 | 소프트웨어| 트루이미지(Acronis True Image) 추가본②(본문 수정) [91] | 고양이2 | 9118 | 62 | 11-26 |
4465 | 윈 도 우| 무인응답파일(autounattend.xml) 쉽게 만들기 [30] | 네오이즘 | 3825 | 60 | 12-31 |
4464 | 서버 / IT| 손쉽게 멀티부팅용 USB 만들기. (내용추가) [50] | 디폴트 | 7402 | 60 | 05-31 |
4463 | 윈 도 우| WindowsXPE147-1빌더/나만의 PE를 만들자 시즌2 ?? 1탄 (... [48] | 지연서연아 | 1404 | 59 | 04-16 |
4462 | 윈 도 우| PrincePE_V22 [53] |
|
6600 | 59 | 03-06 |
4461 | 소프트웨어| ▣▣▣▣▣[ Ventoy 고급 응용편 자료 정리 ]▣▣▣▣▣ [31] | 메인보드 | 7860 | 57 | 05-14 |
4460 | 소프트웨어| USB 로 UEFI 와 MBR 로 부팅 되도록 ISO 파일 설치하기 [42] | 좋은이웃 | 7063 | 57 | 03-17 |
수고 하셨습니다. 감사합니다.