Need Help - running process on remote machine

[Capp]

I have a small problem. This is what I'm running:

Function IsProcessRunning(strServer, strProcess)
    Dim Process, strObject
    IsProcessRunning = False
    strObject = "winmgmts://" & strServer
    For Each Process In GetObject(strObject).InstancesOf("win32_process")
    If UCase(Process.Name) = UCase(strProcess) Then
        IsProcessRunning = True
    Exit Function
    End If
    Next
End Function
 
 
Public Sub CheckRunning()
    On Error GoTo errhand
    Dim strComputer, strProcess
    lstPrograms.Clear
    strComputer = lstComputers.Text
        strProcess = "notepad.exe"
    If (IsProcessRunning(strComputer, strProcess) = True) Then
        lstPrograms.AddItem "Notepad" & " " & "is running"
    Else
        lstPrograms.AddItem "Notepad" & " " & "is Not running"
    End If

This works almost all the time, but I run into an error occassionally if I don't have rights to view the machine. I am the network admin so I have full rights to the system, but occassionally, the system will be unavailable.

How can I fix this so that if it can't check the computer, it will stop and let me know?

I keep getting the box saying "Retry" or "Switch" and locks up...

Thanks in advance for the help

[Capp]

*Update*

The problem I am also having is, the script I run to list all PC's on my network, lists the ones that are powered off as well.

So when I try to connect using the function above, it crashes.

I need to know what I need to add so that if it errors, to stop running.

I tried doing the:

On Error GoTo Err

Err:
Exit function

But I am not sure where to put that.


Thanks for the help

[Capp]

*Bump*

Nobody has any suggesstions ?

[anotherVBnewbie]

Perhaps you could ping the remote pc's prior to making the connection and only connect if the ping is responded to?

[Dave Sell]

Function IsProcessRunning(strServer, strProcess)
On Error Goto Err
    '
    Dim Process, strObject
    IsProcessRunning = False
    strObject = "winmgmts://" & strServer
    '
    For Each Process In GetObject(strObject).InstancesOf("win32_process")
        '
        If UCase(Process.Name) = UCase(strProcess) Then
            IsProcessRunning = True
            Exit Function
        End If
        '
    Next
    '
    Exit Function
Err:
    If Err.Number = 42 Then
        ' Do SOmething Specific
    Else
        Exit Function ' or:
        Resume Next
    End If
End Function

[Capp]

Function IsProcessRunning(strServer, strProcess)
On Error Goto Err
    '
    Dim Process, strObject
    IsProcessRunning = False
    strObject = "winmgmts://" & strServer
    '
    For Each Process In GetObject(strObject).InstancesOf("win32_process")
        '
        If UCase(Process.Name) = UCase(strProcess) Then
            IsProcessRunning = True
            Exit Function
        End If
        '
    Next
    '
    Exit Function
Err:
    If Err.Number = 42 Then
        ' Do SOmething Specific
    Else
        Exit Function ' or:
        Resume Next
    End If
End Function

Thank you very much. I will try this here shortly.

How did you get the error code 42? I am curious to learn it.

[Dave Sell]

From the book, "Hitchhiker's Guide to the Galaxy". It was just an example to show you can do things for specific error codes if you want...

[Dave Sell]

P.S. in 10 million years I will know how that code is generated...

[FunkyDexter]

Output err.number on a message box or debug.print and then force the error.

[Capp]

Ahh! I see. Forgot all about that.

I'll give it a shot and let you know if it worked.


Thanks again

[Capp]

Same Problem

My program checks for a few different running processes.
When it gets to the For Each Process loop in the "IsProcessRunning" function, it hangs and gives me the error. After it cycles through the error several dozen times, it gives me err.number 462 - "Computer not available"

Since I am calling the function from a sub, if the function fails, it continues on within the sub (which calls the function several times)

I am in dire need of assistance with this.
This is the error I'm getting while it is cycling through:

Title -> Component Request Pending
Text -> This application cannot be completed because the other application
is busy. Choose 'Switch To' to activate the busy application and correct the
problem.
Options -> Switch To, Retry

But, when it does give me this error, it doesn't go to the Err: like I have it set to, it just keeps popping up this message.

I tried this with no success:

Private Sub cmdCheck_Click()
   CheckRunning
End Sub
 
 
Function IsProcessRunning(strServer, strProcess)
On Error GoTo Err
    Dim Process, strObject
    IsProcessRunning = False
    strObject = "winmgmts://" & strServer
    For Each Process In GetObject(strObject).InstancesOf("win32_process") 'this is where it hangs and errors
    If UCase(Process.Name) = UCase(strProcess) Then
        IsProcessRunning = True
    Exit Function
    End If
    Next
    Exit Function
 
Err:
   If Err.Number = 462 then
        Exit Function
   Else
        Resume Next
   End If
End Function
 
 
Public Sub CheckRunning()
    On Error GoTo errhand
    Dim strComputer, strProcess
    lstPrograms.Clear
    strComputer = lstComputers.Text
 
[I]'Check for notepad[/I]
 
    strProcess = "notepad.exe"
    If (IsProcessRunning(strComputer, strProcess) = True) Then
        lstPrograms.AddItem "Notepad" & " " & "is running"
    Else
        lstPrograms.AddItem "Notepad" & " " & "is Not running"
    End If
 
[I]'Check for Calc[/I]
 
   strProcess = "calc.exe"
    If (IsProcessRunning(strComputer, strProcess) = True) Then
        lstPrograms.AddItem "Calculator" & " " & "is running"
    Else
        lstPrograms.AddItem "Calculator" & " " & "is Not running"
    End If
 
    Exit Sub
Errhand:
    Exit Sub
 
End Sub

Thanks again for all the help, I appreciate it.

[Capp]

I still can't get this to work.

The error traping doesn't seem to want to work until after it has looped through the error several times.

Thanks again for the help

[Capp]

Anybody been able to figure this out? I still can't get it.

I posted this on the MSDN forums. I was suggessted to ping the machine to see if it is available, but that still doesn't help.

All I want is for it to move to the next machine upon error.

Thanks

[dglienna]

You would have to ping the machine, and parse the file to see if it communicated or not. This will capture the results of a PING command

Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_HIDE As Long = 0
 
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
Dim sSave As String, Ret As Long
 
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Dim sSave As String, Ret As Long
    'Create a buffer
    sSave = Space(255)
    'Get the system directory
    Ret = GetSystemDirectory(sSave, 255)
    'Remove all unnecessary chr$(0)'s
    sSave = Left$(sSave, Ret)
End Sub
 
Private Sub Command1_Click()
    ShellExecute Me.hwnd, "Open", sSave & "CMD.exe", " /c PING 191.168.1.100 > D:\Myfile.txt", "D:\", SW_SHOWNORMAL
End Sub

Then you could simply exit the function. I would use a flag to let you know the results, so you could return it to the calling function.

[Capp]

Thank you for that information.

This isn't the method I am using though. It's not just finding out if the machine is available. I know how to do that.

Here's the scenario... I work for a company that has 80 locations connected via WAN. I am the network admin on 1 location. I do not have access to the other locations, although I can see their systems on the network. If I am running the function I listed above and click their machine, it crashes because I do not have rights to it. Same goes if the machine is off.

What I need is to know how to get it to stop trying to connect to it if I don't have rights or if the machine is off.

In other words, How do I code the function/sub above so that, upon an error...it will exit the sub. I tried the method in #11 above but couldn't get it to work.

Can someone please help me fix my code above so that it will stop executing upon an error?

Thanks

[dglienna]

Maybe you can use the DIR() command to generate an error if the drive cannot be accessed?

[Capp]

Maybe you can use the DIR() command to generate an error if the drive cannot be accessed?

Can you explain please? Will this be able to stop the running of the Function/Sub I have listed above if the remote machine is unaccessible?

Thanks

[dglienna]

I tried this and got a Bad Filename or number error when I wasn't connected, but after I connected, it wouldn't return anything either. Maybe you could map a drive?

Option Explicit
 
Private Sub Form_Load()
Dim str$
On Error GoTo badfile
  str = Dir("\\192.168.1.100\c550\*.*")
  MsgBox str
  Exit Sub
badfile:
  MsgBox Err.Description
End Sub

Hmm. It does work if I use a machine name instead of IP address. But doesn't crash if I substitute a server name that doesn't exist.

Option Explicit
 
Private Sub Form_Load()
Dim str$
On Error GoTo badfile
  str = Dir("\\w2k\c550\*.*")
  MsgBox str
  Exit Sub
badfile:
  MsgBox Err.Description
End Sub

[Capp]

Ok...I don't need to map to the computer.

My program has a module that lists all the pc's connected to my network. I click one and it tells me if certain processes are running. Thats all.

check out post #11 above and see if you can get that code to work upon an error.

Thanks

[dglienna]

I get a "Permission denied" error from my W2K Workstation. Maybe it's NAV, I'm not sure. I have logged on. I think I'm an admin with this account. Have to check in the morning. I still think that trying to read the hard drive would be a trappable error if the machine is offline. It's a shame that it doesn't work with an IP address.

[anotherVBnewbie]

If you don't have any 9x PCs on the network I think that the NetWkstaGetInfo API might give you what you need.

Private Declare Function NetWkstaGetInfo Lib "netapi32" ( _
    ByVal servername As String, ByVal level As Long, lpBuf As Any) As Long
' example call - replace "Computername" with the actual PC name
' successfull call return 0
lResult = NetWkstaGetInfo(StrConv("\\" & Computername, vbUnicode), 102, pWrkInfo)

For more info see http://msdn.microsoft.com/library/de...stagetinfo.asp

[Capp]

If you don't have any 9x PCs on the network I think that the NetWkstaGetInfo API might give you what you need.

Private Declare Function NetWkstaGetInfo Lib "netapi32" ( _
    ByVal servername As String, ByVal level As Long, lpBuf As Any) As Long
' example call - replace "Computername" with the actual PC name
' successfull call return 0
lResult = NetWkstaGetInfo(StrConv("\\" & Computername, vbUnicode), 102, pWrkInfo)

For more info see http://msdn.microsoft.com/library/de...stagetinfo.asp

I'm willing to try this..but as I stated above, how do I code this so that when it tries connecting a machine that I do not have access to or that is off, it will stop the loop?

The code I listed to start with works perfectly, except under those conditions. I need to know how to get it to stop the function upon error.

Thank you everyone for your help, but I don't have a problem accessing the machine...I can do that just fine...I just need to know how to error trap my code above.

Thanks again

[dglienna]

The problem I am also having is, the script I run to list all PC's on my network, lists the ones that are powered off as well.

This seems to be the problem. If it is listing machines that are off, then you have to check to see if the machine is off or not. It's been suggested that you try Pinging the machines, and I found that you can trap a Dir() error if you know the machine name. It takes a few seconds, but doesn't crash. If you can't read from a drive, then you should take the machine out of the list.

[Capp]

This seems to be the problem. If it is listing machines that are off, then you have to check to see if the machine is off or not. It's been suggested that you try Pinging the machines, and I found that you can trap a Dir() error if you know the machine name. It takes a few seconds, but doesn't crash. If you can't read from a drive, then you should take the machine out of the list.

Ok, I'm willing to try this. But it doesn't help with the second problem. As I stated, my network is part of a WAN. I have admin rights to my location, but not to others. The script lists all the pcs on the network, even the other locations because it does it via DNS.

How can I get this to halt if the machine is on, but I don't have access to it?

Thanks again for the help

[dglienna]

Dir("\\w2k\c550\*.txt") came up with a bad file name or number when I changed the servername.

It takes a few seconds, but it doesn't crash the program.

[Capp]

Dir("\\w2k\c550\*.txt") came up with a bad file name or number when I changed the servername.

It takes a few seconds, but it doesn't crash the program.

What does this mean? I'm still going to get an error when I try to connect to a system I don't have access to.

All I want to know is how to correct mine so it will stop processing when it hits an error.

[dglienna]

You can trap this error with an On Error statement, and take it out of the list if you cannot connect. Then run your script on the ones that you can connect to. Sorry if I didn't explain myself very well before.

[dglienna]

FWIW, here is the script that scriptomatic2 wrote:
It doesn't crash if I use an invalid server. Maybe you can edit it to get what you need istead of using your script? I see that it adds a couple of flags.

On Error Resume Next
 
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
 
arrComputers = Array("Laptop.") ' Comma delimited list of strings
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="
 
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
 
   For Each objItem In colItems
      WScript.Echo "Caption: " & objItem.Caption
      WScript.Echo "CommandLine: " & objItem.CommandLine
      WScript.Echo "CreationClassName: " & objItem.CreationClassName
      WScript.Echo "CreationDate: " & WMIDateStringToDate(objItem.CreationDate)
      WScript.Echo "CSCreationClassName: " & objItem.CSCreationClassName
      WScript.Echo "CSName: " & objItem.CSName
      WScript.Echo "Description: " & objItem.Description
      WScript.Echo "ExecutablePath: " & objItem.ExecutablePath
      WScript.Echo "ExecutionState: " & objItem.ExecutionState
      WScript.Echo "Handle: " & objItem.Handle
      WScript.Echo "HandleCount: " & objItem.HandleCount
      WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
      WScript.Echo "KernelModeTime: " & objItem.KernelModeTime
      WScript.Echo "MaximumWorkingSetSize: " & objItem.MaximumWorkingSetSize
      WScript.Echo "MinimumWorkingSetSize: " & objItem.MinimumWorkingSetSize
      WScript.Echo "Name: " & objItem.Name
      WScript.Echo "OSCreationClassName: " & objItem.OSCreationClassName
      WScript.Echo "OSName: " & objItem.OSName
      WScript.Echo "OtherOperationCount: " & objItem.OtherOperationCount
      WScript.Echo "OtherTransferCount: " & objItem.OtherTransferCount
      WScript.Echo "PageFaults: " & objItem.PageFaults
      WScript.Echo "PageFileUsage: " & objItem.PageFileUsage
      WScript.Echo "ParentProcessId: " & objItem.ParentProcessId
      WScript.Echo "PeakPageFileUsage: " & objItem.PeakPageFileUsage
      WScript.Echo "PeakVirtualSize: " & objItem.PeakVirtualSize
      WScript.Echo "PeakWorkingSetSize: " & objItem.PeakWorkingSetSize
      WScript.Echo "Priority: " & objItem.Priority
      WScript.Echo "PrivatePageCount: " & objItem.PrivatePageCount
      WScript.Echo "ProcessId: " & objItem.ProcessId
      WScript.Echo "QuotaNonPagedPoolUsage: " & objItem.QuotaNonPagedPoolUsage
      WScript.Echo "QuotaPagedPoolUsage: " & objItem.QuotaPagedPoolUsage
      WScript.Echo "QuotaPeakNonPagedPoolUsage: " & objItem.QuotaPeakNonPagedPoolUsage
      WScript.Echo "QuotaPeakPagedPoolUsage: " & objItem.QuotaPeakPagedPoolUsage
      WScript.Echo "ReadOperationCount: " & objItem.ReadOperationCount
      WScript.Echo "ReadTransferCount: " & objItem.ReadTransferCount
      WScript.Echo "SessionId: " & objItem.SessionId
      WScript.Echo "Status: " & objItem.Status
      WScript.Echo "TerminationDate: " & WMIDateStringToDate(objItem.TerminationDate)
      WScript.Echo "ThreadCount: " & objItem.ThreadCount
      WScript.Echo "UserModeTime: " & objItem.UserModeTime
      WScript.Echo "VirtualSize: " & objItem.VirtualSize
      WScript.Echo "WindowsVersion: " & objItem.WindowsVersion
      WScript.Echo "WorkingSetSize: " & objItem.WorkingSetSize
      WScript.Echo "WriteOperationCount: " & objItem.WriteOperationCount
      WScript.Echo "WriteTransferCount: " & objItem.WriteTransferCount
      WScript.Echo
   Next
Next
 
Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm: 
    WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
    Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
    & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function

[Capp]

You can trap this error with an On Error statement, and take it out of the list if you cannot connect. Then run your script on the ones that you can connect to. Sorry if I didn't explain myself very well before.

Thats the problem I've been trying to get solved. I have tried doing an On Error statement (look at #11 post on this thread) and it doesn't work.
This is what I've been asking for, someone to look at the code I have in #11 and tell me what I've done wrong. I just need to be able to do this:

On Error GoTo Err:

Err:
Exit function
'continue loop


The code you listed above is very similar to what I have. I will take a look at it and see if I can use it.

Thank You

[Capp]

Ok...Update.

I tried the code you listed above with the same results. I figured out what is going on.

The attached picture shows the message I get if I do anything at all while the script is running. I found that if I let it sit there and process, it completes ok or at least stops running.

The code I originally listed works just fine as well.

Now what I need help with is, How can I present this so that it will not give me this message if the user decides to click around while it is processing?

Thank You for your help.

[dglienna]

You want to block user input?

[Capp]

You want to block user input?

No, I just want to know how to keep the message I posted above from coming up. Can anyone show me how to keep this from popping up?

Thanks

[Capp]

Now you can see why i'm having so many problems. The code works just fine, I just don't know how to keep that message from popping up.

Anybody have any ideas please

[Capp]

Nobody figured it out yet?

I am completely stumped. If nobody here has any ideas, does anybody know of any other support forums I could post at to see if I can get some help.

I tried MSDN newsgroups, but didn't get any help there either.

This is just frustrating, I never can seem to get my questions answered about VB.

[Capp]

Somebody has to know how to help me.

As many people as are on this forum, somebody must know a link or article or something.

Please

[dglienna]

I built that script using Scriptomatic2. I think they have a forum. Some M$ guys developed it, and have a few scripts on the web site. Maybe you can get some help there?