'  KILL APPLICATION FOR SLI 
   
  Set WshShell = CreateObject("WScript.Shell") 
  Function KillProcess(strProcessName) 
  	Dim oProcess 
  	KillProcess = False 
  	For Each oProcess in GetObject("winmgmts:").InstancesOf("Win32_Process") 
  		If InStr(UCase(strProcessName), UCase(oProcess.Name)) <> 0 Then 
  			oProcess.Terminate() 
  			KillProcess = True 
  			Exit Function 
  		End If 
  	Next 
  End Function 
   
  KillProcess("nvcplui.exe") 
  KillProcess("MSIAfterburner.exe") 
  KillProcess("LCore.exe") 
  KillProcess("chrome.exe") 
  KillProcess("calculator.exe") 
  KillProcess("Video.UI.exe") 
  KillProcess("plugin-contanier.exe") 
  KillProcess("microsoftedge.exe") 
  KillProcess("microsoftedgecp.exe") 
  KillProcess("firefox.exe") 
  KillProcess("spotify.exe") 
  KillProcess("SplashProEx.exe") 
  KillProcess("sbz.exe") 
  KillProcess("IEXPLORE.EXE") 
  KillProcess("whatsNew.Store.EXE") 
  KillProcess("backgroundtaskhost.exe") 
  KillProcess("time.exe") 
  KillProcess("HxCalendarAppImm.exe") 
   
  '  REGISTER KEY FOR NVIDIA LAST PAGE.(SLI) 
  Const HKEY_CURRENT_USER = &H80000001 
  Set objRegistry = _ 
     GetObject("Winmgmts:root\default:StdRegProv") 
   
  strPath = "SOFTWARE\NVIDIA Corporation\NVControlPanel2\Client" 
  uBinary = Array(174,19,241,200,201,162,203,71,141,174,147,118,198,70,101,173) 
  Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, _ 
     strPath, _ 
     "LastPage", _ 
     uBinary) 
   
  If (Return = 0) And (Err.Number = 0) Then 
     ' Wscript.Echo "Binary value added successfully" 
  Else 
      Wscript.Echo "Cannot Write to the Registry Key." 
  	WScript.Quit(0) 
  End If 
   
   
  ' START NVIDIA PANEL 
  WshShell.Run("""c:\Program Files\NVIDIA Corporation\Control Panel Client\nvcplui.exe""") 
   
  ' READ REGISTER KEY FOR SLI ON/OFF  
  strComputer = "."  
  Set regObj=GetObject( _  
      "winmgmts:{impersonationLevel=impersonate}!\\" & _ 
     strComputer & "\root\default:StdRegProv") 
    
  strKeyPath = "SOFTWARE\NVIDIA Corporation\NVControlPanel2\RegisteredServers\GamesConfigServer" 
  strValueName = "AllowSliMosaicStatus" 
  Return = regObj.GetDWORDValue (HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue)  & dwValue   
   If (Return = 0) And (Err.Number = 0) Then   	 
   'SLI ON 
  	WScript.Sleep(1000) 
  	WshShell.SendKeys("%r") 
  Else 
   'SLI OFF  
  	WScript.Sleep(1000) 
  	WshShell.SendKeys("%v")	 
  End If 
   
  WScript.Sleep(1000) 
  WshShell.SendKeys("%g") 
  WScript.Sleep(5000) 
  WshShell.SendKeys("%{F4}") 
  WScript.Sleep(1000) 
  WshShell.Run("""C:\Program Files\Logitech Gaming Software\LCore.exe""") 
  WScript.Sleep(2000) 
  WshShell.SendKeys("%{F4}") 
  WScript.Sleep(1000) 
  WshShell.run """C:\Program Files (x86)\Creative\Sound Blaster Z-Series\Sound Blaster Z-Series Control Panel\sbz.exe"" /r" 
  WScript.Sleep(1000) 
  WshShell.Run("""C:\Program Files (x86)\MSI Afterburner\MSIAfterburner.exe""") 
   
  WScript.Quit(0) 
  

If Not WScript.Arguments.Named.Exists("elevate") Then 
    CreateObject("Shell.Application").ShellExecute WScript.FullName _ 
      , WScript.ScriptFullName & " /elevate", "", "runas", 1 
    WScript.Quit 
  End If 
   
   
  '  KILL APPLICATION FOR SLI 
   
  Set WshShell = CreateObject("WScript.Shell") 
  Function KillProcess(strProcessName) 
  	Dim oProcess 
  	KillProcess = False 
  	For Each oProcess in GetObject("winmgmts:").InstancesOf("Win32_Process") 
  		If InStr(UCase(strProcessName), UCase(oProcess.Name)) <> 0 Then 
  			oProcess.Terminate() 
  			KillProcess = True 
  			Exit Function 
  		End If 
  	Next 
  End Function 
   
  KillProcess("nvcplui.exe") 
  KillProcess("MSIAfterburner.exe") 
  KillProcess("LCore.exe") 
  KillProcess("chrome.exe") 
  KillProcess("calculator.exe") 
  KillProcess("Video.UI.exe") 
  KillProcess("plugin-contanier.exe") 
  KillProcess("microsoftedge.exe") 
  KillProcess("microsoftedgecp.exe") 
  KillProcess("firefox.exe") 
  KillProcess("spotify.exe") 
  KillProcess("SplashProEx.exe") 
  KillProcess("sbz.exe") 
  KillProcess("IEXPLORE.EXE") 
  KillProcess("whatsNew.Store.EXE") 
  KillProcess("backgroundtaskhost.exe") 
  KillProcess("time.exe") 
  KillProcess("HxCalendarAppImm.exe") 
   
   
  '  REGISTER KEY FOR NVIDIA LAST PAGE.(SLI) 
  Const HKEY_CURRENT_USER = &H80000001 
  Set objRegistry = _ 
     GetObject("Winmgmts:root\default:StdRegProv") 
   
  strPath = "SOFTWARE\NVIDIA Corporation\NVControlPanel2\Client" 
  uBinary = Array(174,19,241,200,201,162,203,71,141,174,147,118,198,70,101,173) 
  Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, _ 
     strPath, _ 
     "LastPage", _ 
     uBinary) 
   
  If (Return = 0) And (Err.Number = 0) Then 
     ' Wscript.Echo "Binary value added successfully" 
  Else 
      Wscript.Echo "Cannot Write to the Registry Key." 
  	WScript.Quit(0) 
  End If 
   
   
  ' READ REGISTER KEY FOR SLI ON/OFF  
  strComputer = "."  
  Set regObj=GetObject( _  
      "winmgmts:{impersonationLevel=impersonate}!\\" & _ 
     strComputer & "\root\default:StdRegProv") 
    
  strKeyPath = "SOFTWARE\NVIDIA Corporation\NVControlPanel2\RegisteredServers\GamesConfigServer" 
  strValueName = "AllowSliMosaicStatus" 
  Return = regObj.GetDWORDValue (HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue)  & dwValue   
   If (Return = 0) And (Err.Number = 0) Then   	 
   'SLI & 3D-VISION ON 
   	WshShell.run """C:\Program Files (x86)\NVIDIA Corporation\3D Vision\nvstlink.exe"" /enable" 
  	WScript.Sleep(5000) 
  	WshShell.Run("""c:\Program Files\NVIDIA Corporation\Control Panel Client\nvcplui.exe""") 
  	WScript.Sleep(1000) 
  	WshShell.SendKeys("%r") 
  Else 
   'SLI & 3D-VISION OFF  
    	WshShell.run """C:\Program Files (x86)\NVIDIA Corporation\3D Vision\nvstlink.exe"" /disable" 
  	WScript.Sleep(5000) 
  	WshShell.Run("""c:\Program Files\NVIDIA Corporation\Control Panel Client\nvcplui.exe""") 
  	WScript.Sleep(1000) 
  	WshShell.SendKeys("%v")	 
  End If 
   
  WScript.Sleep(1000) 
  WshShell.SendKeys("%g") 
  WScript.Sleep(5000) 
  WshShell.SendKeys("%{F4}") 
  WScript.Sleep(1000) 
  WshShell.Run("""C:\Program Files\Logitech Gaming Software\LCore.exe""") 
  WScript.Sleep(2000) 
  WshShell.SendKeys("%{F4}") 
  WScript.Sleep(1000) 
  WshShell.run """C:\Program Files (x86)\Creative\Sound Blaster Z-Series\Sound Blaster Z-Series Control Panel\sbz.exe"" /r" 
  WScript.Sleep(1000) 
  WshShell.Run("""C:\Program Files (x86)\MSI Afterburner\MSIAfterburner.exe""") 
   
  WScript.Quit(0)