Unable to Service Request

Question

I'm in need of vbscript file.  I'm planning to run something like "wscript.exe Psexec.vbs" on a WHS 2003.

I've come up with the following but my server doesn't like it

Line1: Set Command = WScript.CreateObject("WScript.Shell")
Line2: cmd = "c:\windows\system32\Psexec.exe \\192.168.0.xx -i -h -d -u  Administrator -p Password "c:\program files\Internet Explorer\iexplore.exe" "http://192.168.0.xx/mControl/Editor.aspx#/PageCameras""
Line3: Command.Run (cmd) 

The Psexec code in Line2 works fine at the command prompt, but I don't know how to get it into a vbscript file.

Answer 1

Try using this sub:

Sub Run(ByVal sFile, sArgs)
    ' Create a shell object
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    ' Run the file
    shell.Run Chr(34) & sFile & Chr(34) & " " & sArgs, 1, false
    ' Cleanup
    Set shell = Nothing
End Sub

' Run a file like this:
Run "FILENAME", "ARGUMENTS"

It should be able to launch the file. Hope it works for you!

Sincerely yours,
- bilde2910

---

If a post is helpful to you or solves a problem, remember to mark it as answer, propose it as answer or vote up.
Check out my development so far!

Answer 2

check this blog

http://customerfx.com/pages/crmdeveloper/2004/02/10/how-to-execute-a-file-program-in-vbscript.aspx

Answer 3

Thanks Bilde2910, but a little over my head.

I'm trying to execute the script file Psexec.vbs like this > cscript.exe Psexec.vbs

Is the code you are showing me my Psexec.vbs file ?

where "FILENAME" is "c:\windows\system32\Psexec.exe"

where "ARGUMENTS" is " \\192.168.0.xx -i -h -d -u  Administrator -p Password "c:\program files\Internet Explorer\iexplore.exe" "http://192.168.0.xx/mControl/Editor.aspx#/PageCameras""

Answer 4

Bingo, got it.  A nightmare with ".

Answer 5

Bingo, got it.  A nightmare with ".

Yup. Those quotation marks are annoying...
I had hoped you'd get it, and you apparently did :)

Sincerely yours,
- bilde2910

---

If a post is helpful to you or solves a problem, remember to mark it as answer, propose it as answer or vote up.
Check out my development so far!

Answer 6

Just one more request.  I need to run my program at User = Administrator, Password level of credentials.  Are there a few lines I can add to your script to make the program run at the desired user/pwd level ?

Your script works fine in the command prompt window, but when I automate the call from a proprietary macro environment, I need to clarify the level of credentials to run at.

Answer 7

...system32\Psexec.exe \\192.168.0.xx -i -h -d ...

I would have figured it would read more like:

...system32\Psexec.exe \\192.168.0.xxx -i -h -d...

Hey, that lit up my screen. 

Answer 8

1. You should post a new question if you need further help than first described, to make it easier for random visitors to find the correct answer.
2. I am going to help you out, though, but perhaps a little googling first. Here is a post on another forum you may read.
3. (EDIT:) Found some code on another forum, so you don't have to search further on this topic (code source).

Sub Run(ByVal sFile, sArgs)
    
    ' Create a shell object
    Set objSh = CreateObject("Shell.Application")
    
    ' Run the shell object as administrator
    objSh.ShellExecute sFile, sArgs , "", "runas", 1
    
End Sub

Good luck!

---

If a post is helpful to you or solves a problem, remember to mark it as answer, propose it as answer or vote up.
Check out my development so far!

Answer 9

Thank you.  I was afraid that the only tool available was runas.  Unfortunately it requires interacting with a dialog box to provide the Administrator Password, which is not possible when the script is being automatically called by a macro.

I did google a lot before asking.  Seems like there is third party tool called Tqcrunas which does the job I require.