You can use something like this if you need to check if sas is running.

[VBA]
Sub IsSASRunning()
If ISexeRunning("sas.exe") then
MsgBox "Yes, SAS is running."
Else
MsgBox "No, SAS is not running."
End If
End Sub

Function ISexeRunning(EXEName As String) As Boolean
Dim tf As Boolean
Dim oShell As Object, oWMI As Object, cApps As Object
Dim sQuery As String
Set oShell = CreateObject("Shell.Application")
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
sQuery = "Select Name From Win32_Process Where Name='" & EXEName & "'"
Set cApps = oWMI.ExecQuery(sQuery)
tf = cApps.Count > 0
Set cApps = Nothing
Set oWMI = Nothing
Set oShell = Nothing
ISexeRunning = tf
End Function[/VBA]