Example

This example prompts for a command, then displays a message stating whether or not it is currently executable:

Sub GetCommandProfileDemo ()

 With Session

  Dim inputCommand as String

  Dim isItExecutable As Integer

  inputCommand = InputBox$("What command do you want to check?")

  isItExecutable = .GetCommandProfile(inputCommand)

  If isItExecutable Then

   MsgBox inputCommand & " is executable."

  Else

   MsgBox inputCommand & " is not executable."

  End If

 End With

End Sub