Home
VBScript Function to Run Program at Remote Computer
Tags:, , , , , , , ,

VBScript Function to Run Program at Remote Computer

March 23, 2014 6 Comments programming languages, tools / utilities, vbscript, Win32 API, windows, windows command shell, windows scripting host

To run external program on local computer using WSH (Window Scripting Host), you can create an object WScript.Shell and invoke its Runmethod, e.g.:

1
2
3

Dim Obj
Set Obj = CreateObject("WScript.Shell")
Obj.Run "notepad.exe"
Dim Obj
Set Obj = CreateObject("WScript.Shell")
Obj.Run "notepad.exe"

To run external program on remote computer (e.g. in local area network), you can use the following VBScript Function:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

Function startExe(sstrComputer,sstrEXE)
'Starts a process on a machine
'Input: sstrComputer = machine name (use "." for local)
'Input: sstrExe = Exe or command to execute (can pass full command line)
'Output: boolean
'Optional: Declare startExeStatus as a global variable to get status text
    startExe = False 
    Set sobjWMIService = GetObject("winmgmts:\\" & sstrComputer & "\root\cimv2:Win32_Process")
    sintReturn = sobjWMIService.Create(sstrEXE, null, null, sintProcessID)
    Select Case sintReturn
        Case 0 'Successful Completion
            startExe = True
            startExeStatus = "Successful Completion"
        Case 2 'Access Denied
            startExe = False
            startExeStatus = "Access Denied"
        Case 3 'Insufficient Privilege
            startExe = False
            startExeStatus = "Insufficient Privilege"
        Case 8 'Unknown Failure
            startExe = False
            startExeStatus = "Unknown Failure"
        Case 9 'Path not found
            startExe = False
            startExeStatus = "Path not found"
        Case 21 'Invalid Parameter
            startExe = False
            startExeStatus = "Invalid Parameter"
        Case Else 
            startExe = False
            startExeStatus = "Error code " & sintReturn & " not found"
    End Select 
End Function 
Function startExe(sstrComputer,sstrEXE)
'Starts a process on a machine
'Input: sstrComputer = machine name (use "." for local)
'Input: sstrExe = Exe or command to execute (can pass full command line)
'Output: boolean
'Optional: Declare startExeStatus as a global variable to get status text
    startExe = False 
    Set sobjWMIService = GetObject("winmgmts:\\" & sstrComputer & "\root\cimv2:Win32_Process")
    sintReturn = sobjWMIService.Create(sstrEXE, null, null, sintProcessID)
    Select Case sintReturn
        Case 0 'Successful Completion
            startExe = True
            startExeStatus = "Successful Completion"
        Case 2 'Access Denied
            startExe = False
            startExeStatus = "Access Denied"
        Case 3 'Insufficient Privilege
            startExe = False
            startExeStatus = "Insufficient Privilege"
        Case 8 'Unknown Failure
            startExe = False
            startExeStatus = "Unknown Failure"
        Case 9 'Path not found
            startExe = False
            startExeStatus = "Path not found"
        Case 21 'Invalid Parameter
            startExe = False
            startExeStatus = "Invalid Parameter"
        Case Else 
            startExe = False
            startExeStatus = "Error code " & sintReturn & " not found"
    End Select 
End Function

To run a local command, use “.” for the first parameter, for example, startExe(“.”, “notepad.exe”).

–EOF (The Ultimate Computing & Technology Blog) —

GD Star Rating
loading...
256 words
Last Post: The Ultimate Famicom Game Cartridge - N8 Everdrive - Installed on BBG Famiclone
Next Post: C/C++ Coding Exercise - Unique Paths II - Dynamic Programming with Obstacles - Leetcode Online Judge - DP with Constraints

The Permanent URL is: VBScript Function to Run Program at Remote Computer

Related posts:

  1. How to List Keyboard Properties using VBScript and WMI Object? With WMI Object on windows, it is easy to retrieve hardware information via SQL-like query,...
  2. How to Fix a Slow/Incorrect Clock on Windows? I have been using HP Z800 Server for a couple of years and lately, the...
  3. PHP Function to Get Exchange Rate Between Cryptocurrency (BTC, LTC, ETH) to Fiat Currency? The Cryptocurrencies such as Bitcoins, Litecoins, ETH coins are the top coins among others. The...
  4. Adding Clipboard Support to Chrome Extension: Show My IP Addresses (External and Local) Show My IP Addresses is a Chrome Extension that displays both Local and External IP...
  5. How to Print MySQL Table Summary using PHP? The MySQL table has a command Show Table Status which prints a table summary, but...
  6. Excel Sheet Column Number and Title Conversion in C++ Excel Column to Number Given a column title as appear in an Excel sheet, return...
  7. BASH For Loops BASH script under linux supports the for loops. There are quite a few ways to...
  8. Using Peek function to read from Memory on BBG Famicom Clone on Basic Programming Language Most keyboards for famicom clones are not designed for games, but they are made for...

6 Comments

  1. sangv

    I want to trigger a script which is there in remote machine using your code and need a log file in local machine like successfully executed or failure in case issues.
    when I provide incorrect computer name, its shows errors in screen, instead I want that in log file and its has to proceed for another machine,

    Reply
  2. sangv

    how can I call the above function, I have added below lines in bottom of your script and executed.
    dim result
    dim var1
    result=startExe(“.”,”cscript c:\temp\hellow.vbs” )
    var1=msgbox(result)

    Reply
    • ACMer

      On Error Resume Next?

      Reply
      • sangv

        could you please provide entire script, Get servers from txt file and execute the script which is there in remote machine then write into log file like Successfully executed, “server not reachable”, “Access denied”,

        Reply
  3. Peter

    Thank you, very useful.

    Reply

Leave a Reply