Check for open WORD processes

[DC CS]

Hi all,
Is there a way that I can check on a remote server for any open WORD processes as well as the user that has the WORD application open with Access VBA?

Thanks

[ranman256]

paste this code into a module then
usage: KillAllWords


which scans processes for open word apps.

Option Compare Database
Option Explicit


#If Win64 Then      'Public Dclare PtrSafe Function    ...AS LONGPTR
Private Declare PtrSafe Function GetCurrentProcessId Lib "kernel32" () As Long
#Else
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
#End If


Public Sub KillAllWords()
 KillMyProcess "Word.exe"
End Sub


Private Sub KillMyProcess(ByVal psProcessName As String)
Dim oWMI As Object
Dim oServices As Object
Dim oSvc
Dim sSvcName As String
       
On Error Resume Next
Set oWMI = GetObject("winmgmts:")
       Set oServices = oWMI.InstancesOf("win32_process")
       For Each oSvc In oServices
           'sSvcName = LCase(Trim(CStr(oSvc.name) & ""))
          'Debug.Print oSvc.name
          
          'If InStr(oSvc.name, psProcessName) > 0 Then
          'Beep
          'End If
          
          If LCase(psProcessName) = LCase(Trim(CStr(oSvc.Name) & "")) Then
              oSvc.Terminate
           End If
       Next
End Sub




Function IsProcessRunning(ByVal psProcess As String) As Boolean
    Dim objList As Object


    Set objList = GetObject("winmgmts:") _
        .ExecQuery("select * from win32_process where name='" & psProcess & "'")


    If objList.Count > 0 Then
        IsProcessRunning = True
    Else
        IsProcessRunning = False
    End If


End Function




Function IsServiceRunning(ByVal psSvc As String) As Boolean
Dim oWMI As Object
Dim oServices As Object
Dim oSvc
Dim sSvcName As String


Set oWMI = GetObject("winmgmts:")
       Set oServices = oWMI.InstancesOf("win32_process")
       For Each oSvc In oServices
          sSvcName = LCase(Trim(CStr(oSvc.Name) & ""))
          'Debug.Print sSvcName
          
          If InStr(oSvc.Name, psSvc) > 0 Then
            IsServiceRunning = True
            Exit Function
          End If
          
          'If LCase(psSvc) = LCase(Trim(CStr(oSvc.name) & "")) Then IsServiceRunning = True
       Next
End Function

[DC CS]

Thanks, but not exactly what I am looking for. I also need the name of the user that has the Word app open on a remote server, as more than 1 user can have the same document open.
When executing the task manager on the remote server, it looks like this:



I need to close a specific instance of Word, not all instances. For example, I need to close the Word instance where the user = "Dirk".

Thanks