Microsoft® Windows® Scripting with WMI: Self-Paced Learning Guide

234 Part IV: Classes

ConfigureAndLaunchApp.vbs

strComputer = "."

wmiNS = "\root\cimv2"

wmiQuery = "win32_ProcessStartUP"

wmiQuery1="win32_process"

strCommand

= "c:\Program Files\Windows NT\Accessories\wordpad.exe" 'application you want to

launch.

Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)

Set objProcessSU = objWMIService.Get(wmiQuery)'Process Startup object

Set objProcess = objWMIService.Get(WmiQuery1) 'Get win32_process class

Set objConfig = objProcessSU.SpawnInstance_ 'Create instance processSU

objConfig.ShowWindow = 1 'normal window

objConfig.x = 5

objConfig.y = 5

errRTN = objProcess.Create(strCommand, Null, objConfig, procID)

SubERR

Sub subERR

If errRTN <> 0 Then

WScript.echo "An error occurred while ...