Visual Basic - HORIZONTAL SPAN CON VISUAL BASIC

Life is soft - evento anual de software empresarial
   
Vista:

HORIZONTAL SPAN CON VISUAL BASIC

Publicado por Ea Montelongo elsa_montelongo@hotmail.com (1 intervención) el 07/05/2013 09:40:17
Hola, estoy haciendo un programita que haga horizontal span a mi tarjeta Nvidia y redefina la configuración. Hasta ahora tengo esto;

-------------------------------------------------------------------------------
Dim objSWbemLocator, objSWbemServices, objWMIService, objProcess
Dim strShell, objProgram, objStartup, strComputer, strExe, inParams,outParams

strComputer = "."
strExe = "c:\windows\system32\rundll32.exe NvCpl.dll,dtcfg setview 1 hspan" & "c:\windows\system32\rundll32.exe NvCpl.dll,dtcfg setmode 1 2560 1024 32 60 "

' Connect to WMI
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer _
(strComputer, "root\cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objSWbemServices.Get("Win32_Process")
Set objStartup = objSWbemServices.Get("Win32_ProcessStartup")
Set inParams = objProcess.Methods_("Create").InParameters.SpawnInstance_
inParams.CommandLine = strExe

objStartup.ShowWindow = 3
inParams.ProcessStartupInformation = objStartup

'Execute the program now at the command line.
Set outParams = objProcess.ExecMethod_("Create", inParams)

WScript.Echo "Returned: " & outParams.ReturnValue

WSCript.Quit

--------------------------------------------------

El problema que tengo es que me esta ejecutando el comando de Hspan pero no el de setmode, de modo que me deja una resolución no adecuada. En realidad a mi lo que me gustaria no es ejecutar ambos comandos desde este vbs, sino que llame a un settings.bat y que sea en este archivito donde yo meta toda la configuracion que quiera (hspan y setmode).


Me podrían echar una mano? Muchas Gracias!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder