[SERVER] specifying the "run" to the users computer

pr3 · Jun 14, 2002

ok

i've asked this like a million times, just goes to show how much i need this question answered=)

i run a server through an application. and with it you can design scripts, and these scripts are written in VBScript.
and what i want to accomplish is when users enter my server
a new internet browser window will open on there computer.
however the closest i have gotten is when a user enters my server, a new window pops up on MY computer. what i have been using is...

Dim aWSHShell, bWSHShell
Set bWSHShell = CreateObject("WScript.Shell&quot

bWSHShell.Run "iexplore

http://www.tek-tips.com",

6

so what i want to do is specify this code to open on the users computer and not on mine.

thanks in advance

FengShui1998 · Jun 17, 2002

pr3,

Basically, what you want to do is execute a command on someone else's machine to run IExplore.exe. You can't do that unless you have permissions or rights on their machine to do that. You can't just do that with any web browser either.

If you do have rights, you can use WMI to login and run that process. Try this.

cpuName = "MyServer"
strCMD = "command on remote machine"
accnt = "Remote_Account"
pwd = "Remote_Password"

ret = Remote_Cmd(Server, accnt, pwd, strCmd)

'****************************************
Function Remote_Cmd(Server, accnt, pwd, strCmd)
'****************************************
On Error Resume Next
Set Locator = CreateObject("WbemScripting.SWbemLocator&quot

user = server & "\" & accnt

Set Service = Locator.ConnectServer(Server, "root\cimv2", user, pwd)
Service.Security_.impersonationlevel = 3
Set Process = Service.Get("Win32_Process&quot

intStatus = Process.Create("cmd /C " & strCmd, null, null, intProcessId)
End Function

fengshui_1998

pr3 · Jun 17, 2002

how do you get rights from the user?

pr3 · Jun 17, 2002

ah
when i try to do the code i get an expected statement error
whats wrong?

thanks

kwillman · Jun 17, 2002

Are you not able to put the command in the <BODY> tag of the HTML?

pr3 · Jun 17, 2002

um do i put that in the code? this isnt going to be on a web page. so does it mattter? if so where do i put it?

thanks

p.s im a total newb

FengShui1998 · Jun 17, 2002

pr3

Try using this instead..

' Test.vbs
Set oIE = CreateObject("InternetExplorer.Application&quot

oIE.Navigate2 "

http://www.tek-tips.com"

oIE.Visible = True
Set oIE = Nothing

fengshui_1998

pr3 · Jun 17, 2002

i copied and pasted it
and it says "expected end of statement"

FengShui1998 · Jun 17, 2002

pr3,

Remove ";" from this line.

oIE.Navigate2 "

http://www.tek-tips.com";

Should be:

oIE.Navigate2 "

http://www.tek-tips.com"

FengShui1998 · Jun 17, 2002

pr3,

Let me re-phrase that one more time:

oIE.Navigate2 "

http://www.tek-tips.com"

FengShui1998 · Jun 17, 2002

pr3,

This is strange because I left out the semi-colon and when I submit to post the info, it puts the ";" back in. Anyways, remove all the semi-colons!!!

fengshui_1998

FengShui1998 · Jun 17, 2002

pr3,

The other way is by command line:

Dim aWSHShell, bWSHShell
Set bWSHShell = CreateObject("WScript.Shell&quot

ret = bWSHShell.Run ("cmd /K ""c:\Program files\Internet Explorer\iexplore.exe""

http://www.tek-tips.com",

5)

fengshui_1998

pr3 · Jun 17, 2002

lol, yeah anyway
it doesnt work!!! it does the same as

Dim aWSHShell, bWSHShell
Set bWSHShell = CreateObject("WScript.Shell&quot

bWSHShell.Run "iexplore

http://www.tek-tips.com";,

6

i loads the window on my computer, not the users.
any ideas?

thanks

pr3 · Jun 17, 2002

btw feng i really appreciate you helping me
hopefully you will be able to crack it for me=)

FengShui1998 · Jun 17, 2002

pr3,

If you read my comments more carefully, you have to have the rights to logon to your users computers. If you didn't need any rights, then anybody could be running anything they wanted to on anybody's computer.

Once you have logon rights, the you can combine this code

strCMD = "cmd /K ""c:\Program files\Internet Explorer\iexplore.exe""

http://www.tek-tips.com"

AND THIS CODE

cpuName = "MyServer"
accnt = "Remote_Account"
pwd = "Remote_Password"

ret = Remote_Cmd(Server, accnt, pwd, strCmd)

'****************************************
Function Remote_Cmd(Server, accnt, pwd, strCmd)
'****************************************
On Error Resume Next
Set Locator = CreateObject("WbemScripting.SWbemLocator&quot

user = server & "\" & accnt

Set Service = Locator.ConnectServer(Server, "root\cimv2", user, pwd)
Service.Security_.impersonationlevel = 3
Set Process = Service.Get("Win32_Process&quot

intStatus = Process.Create("cmd /C " & strCmd, null, null, intProcessId)
End Function

fengshui_1998

FengShui1998 · Jun 17, 2002

pr3,

Change
cpuName = "MyServer"

To:
server = "MyServer"
' WHERE MyServer is the name of your remote machine.

pr3 · Jun 17, 2002

oh, ic i must have gotten confused by your other post, i thought you said there was another way. my mistake.

anyway i tried the code you just posted, and it says
"expected statement"

FengShui1998 · Jun 17, 2002

pr3,

It;s working on my machine. The web pages we are using is adding an extra ";" into the code if you look more closely. I get the same error. See my earlier posts. REMOVE the semi-colons.

This is my last advice. I'm trying to help but if your going to get smart alecky (LOL) forget it!

fengshui_1998

pr3 · Jun 17, 2002

i didnt notice that=P
thanks for you help

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

[SERVER] specifying the &quot;run&quot; to the users computer

Programmer

MIS

Programmer

Programmer

Programmer

Programmer

MIS

Programmer

MIS

MIS

MIS

MIS

Programmer

Programmer

MIS

MIS

Programmer

MIS

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor

[SERVER] specifying the "run" to the users computer