윈 도 우 볼륨,소리 조절 nircmd.exe 이용 (vbscript) -- 수정된 첨부파일로 교체--

 

 

 

 

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

스크립트 끝