Using system variables when executing program via command-line 1

[JustScriptIt]

I have a script that will shut down a service based on the password a user supplied.

However, I prefer to use system variable, because user may have Program Files in a different drive.

This is what I have so far

Option Explicit

Dim objPassword, strPassword, objShell, objWMIService, intProcessID, intReturn

Set objPassword = CreateObject("ScriptPW.Password") 
WScript.StdOut.Write "Please enter your password:" 

strPassword = objPassword.GetPassword() 

Set objShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2:Win32_Process")


objWMIService.Create(%programfiles% & " \Symantec Endpoint Protection\smc.exe -stop " & strPassword)

And I get the error


(17, 22) Microsoft VBScript compilation error: Invalid character


Thank you for your help!

 

[jges]

You will need to 'expand' the environment variable. Have a look here:

http://www.robvanderwoude.com/vbstech_data_environment.php

 

[JustScriptIt]

I expanded the variable towards the end of the script, but it is still not working

Option Explicit

Dim objPassword, strPassword, objShell, objWMIService, PATH

Set objPassword = CreateObject("ScriptPW.Password") 
WScript.StdOut.Write "Please enter your password:" 

strPassword = objPassword.GetPassword() 

Set objShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2:Win32_Process")

[b]objShell.ExpandEnvironmentStrings( "PATH=%programfiles%" )[/b]

[b]objWMIService.Create(PATH & "\Symantec Endpoint Protection\smc.exe -stop " & strPassword)[/b]

 

[crackoo]

Replace this :

[b][COLOR=red]objShell.ExpandEnvironmentStrings( "PATH=%programfiles%" )[/color][/b]

by this :

[b][COLOR=green]PATH = objShell.ExpandEnvironmentStrings("%programfiles%")[/color][/b]