SendConsoleCommand method was happend network timeout

we made some agent like below

Sub Initialize

Dim s As New NotesSession



Dim consoleReturn As String







consoleReturn = s.SendConsoleCommand("gappl1/hcc", "show tasks")



Msgbox consoleReturn

End Sub

This agent show nomal result like below

Cluster Directory Idle

Agent Manager Executive ‘3’: Idle

Agent Manager Executive ‘2’: Idle

Agent Manager Executive ‘1’: Idle

DIIOP Server Listen for connect requests on TCP Port:63148

DIIOP Server Utility task

SMTP Server Listen for connect requests on TCP Port:25

SMTP Server Utility task

SMTP Server Control task

HTTP Server Listen for connect requests on TCP Port:80

DIIOP Server Control task

Agent Manager Idle

Admin Process Idle

Directory Indexer Idle

Indexer Idle

Replicator Idle

Router Idle

Event Monitor Idle

But in Notes client network timeout error is raised.

what’s the problem? Please give me a hands. Thanks