Steve Schofield Weblog

Module Module1

    Sub Main()
        Dim retValue As String
        retValue = RunCommand("calc.exe", "MachineName", "MachineName\UserID", "Password")
        Console.WriteLine(retValue)
    End Sub

    Function RunCommand(ByVal strCommand As String, ByVal strMachineName As String, ByVal strUserName As String,
ByVal strPassword As String) As String
        Dim options As New System.Management.ConnectionOptions
        options.Username = strUserName
        options.Password = strPassword

        Dim path As New System.Management.ManagementPath("\\" & strMachineName & "\root\cimv2:Win32_Process")
        Dim scope As New System.Management.ManagementScope(path, options)

        scope.Connect()

        Dim opt As New System.Management.ObjectGetOptions()
        Dim classInstance As New System.Management.ManagementClass(scope, path, opt)

        Dim inParams As System.Management.ManagementBaseObject = classInstance.GetMethodParameters("Create")
        inParams("CommandLine") = strCommand

        ' Execute the method and obtain the return values.
        Dim outParams As System.Management.ManagementBaseObject = classInstance.InvokeMethod("Create", inParams, Nothing)
        Return "ReturnValue:" & outParams("returnValue") & " Process ID: {0}" & outParams("processId")

    End Function

End Module

Some links I found useful

• Create a Win32 process
• http://msdn2.microsoft.com/en-us/library/system.management.invokemethodoptions.aspx
• http://msdn2.microsoft.com/en-us/library/dwd0y33x(vs.80,d=printer).aspx

Return code s
Description (these are the codes returned once a process has executed)

0 Successful completion
2 Access denied
3 Insufficient privilege
8 Unknown failure
9 Path not found
21 Invalid parameter