Indtastning af user og pass i åbent program
sidder og roder lidt, med et script der afslutter en process, og starter programmet på ny. Årsagen er, at programmet meget ofte står og hænger i lang tid.Selve denne del fungerer fint. MEN!
Kan jeg på nogen måde, tilføje i scriptet, således, at når programmet starter op igen, er user og pass felterne udfyldt med angivne variabler?
-Pontius
PS: Script so far;
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
Dim strShell, objProgram, strExe
strComputer = "."
strProcessKill = "'aruser.exe'"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
strExe = "C:\Program Files\BMC Software\ARSystem\user\aruser.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")
' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_("Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe
'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)
WSCript.Quit