Solved

VB Script to run batch file on another machine

Posted on 2011-02-18
6
625 Views
Last Modified: 2012-05-11
Hi experts,

I have a batch file on a server that I need to run from my machine. What code in VB script can I use on my machine to execute the batch file on the server ( \\servername\sharedfolder\batch.bat)? It would need to work the same way as if I was on the server and ran the batch file.

Thanks.
0
Comment
Question by:asmyatt
  • 4
  • 2
6 Comments
 
LVL 10

Expert Comment

by:answer_dude
ID: 34928194
Here are two options:  the short one will just run it with whatever local permissions you already have, the longer snippet will ask you for the ID/Password that you want to "run as"

dim objShell
set objShell=createobject("wscript.shell")
objShell.run "\\servername\sharedfolder\batch.bat"
set objShell=nothing

Open in new window

Option Explicit

Dim objShell, FSO, strBatchFile

Set objShell = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
strBatchFile = "\\servername\sharedfolder\batch.bat"
If FSO.FileExists(strBatchFile) Then
     objShell.ShellExecute "wscript.exe", _ 
        Chr(34) & strBatchFile & Chr(34), "", "runas", 1
Else
     MsgBox "Script file " & strBatchFile & " not found"
End If

Set objShell = Nothing

Open in new window

0
 
LVL 2

Author Comment

by:asmyatt
ID: 34928552
Are these trying to execute the batch file on the server?  It appears it's trying to run the batch file from the machine I'm runing the .vbs from.
0
 
LVL 10

Expert Comment

by:answer_dude
ID: 34929162
It's trying to run the batch file on the server from your machine.

The batch file on the server, if it make calls to environment variables, etc., would in fact pull those from your machine.

If you want the batch file to be unaware of your machine...  then you're out of my depth.  I did find this code that might work (see attached).

But I didn't write it -- I found it here:

http://motevich.blogspot.com/2007/11/execute-program-on-remote-computer.html

I modified it to reference your batch file.
Option Explicit

Dim strComputer, strCommand, objProcess, objWMIService, errReturn

strComputer = "servername"
strCommand = "\\servername\sharedfolder\batch.bat"

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objProcess = objWMIService.Get("Win32_Process")

errReturn = objProcess.Create(strCommand, null, null, intProcessID)

If errReturn = 0 Then
    Wscript.Echo strCommand & " was started with a process ID: " & intProcessID
Else
    Wscript.Echo strCommand & " could not be started due to error: " & errReturn
End If

Set objWMIService = Nothing
Set objProcess = Nothing

Open in new window

0
Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

 
LVL 2

Author Comment

by:asmyatt
ID: 34929493
Ok, this code seems to work, but it's trying to run the batch file under my userid logged into the local machine. Is there a way to impersonate in the code a userid to use to run the batch file?
strCommand = "C:\crystal\test.bat"
strPath = "C:\temp"
strcomputer="servername"

process = "winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2"
msgbox process

Set objWMIService = GetObject(process)
Set objProcess = objWMIService.Get("Win32_Process")

errReturn = objProcess.Create(strCommand, strPath, Null, intProcessID)

If errReturn = 0 Then
      WScript.Echo "scan success: " & intProcessID
Else
      WScript.Echo "scan fail: " & errReturn
End If

Open in new window

0
 
LVL 10

Expert Comment

by:answer_dude
ID: 34929947
Not that I am aware; but if you are able to run the batch file from your computer as if you were logged into the other computer, wouldn't you want it under your ID?  Otherwise, you'd need to embed the other user IDs password into your script -- which would be risky.
0
 
LVL 10

Accepted Solution

by:
answer_dude earned 500 total points
ID: 34930026
Actually -- after some poking around, I found something that might work... try this:
Option Explicit

Dim strComputer, strCommand, objProcess, objWMIService, errReturn, objWbemLocator

strComputer = "servername"
strCommand = "\\servername\sharedfolder\batch.bat"

strNamespace = "root\cimv2"
strUser = inputbox("username")
strPassword = inputbox("password")
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
(strComputer, strNamespace, strUser, strPassword)

'Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objProcess = objWMIService.Get("Win32_Process")

errReturn = objProcess.Create(strCommand, null, null, intProcessID)

If errReturn = 0 Then
    Wscript.Echo strCommand & " was started with a process ID: " & intProcessID
Else
    Wscript.Echo strCommand & " could not be started due to error: " & errReturn
End If

Set objWMIService = Nothing
Set objProcess = Nothing

Open in new window

0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question