connection question

[vzachin]

hi,

is there a way of getting the Host Alias / IP Address for a session using eb?


thanks
zach

 

[vzachin]

is this at all possible? anyone?


zach

 

[LearningAsIGo]

have you tried using object.HostName

 

[vzachin]

i'm not familiar with object.HostName
how would i code that?

zach

 

[LearningAsIGo]

it might be something like this depending on your system object:

sess0.hostname

you can check it in a message box:

msgbox sess0.hostname

it is in the help topics of the macro editor under HostName property

 

[vzachin]

hi,

this is my code but it's giving me a blank. i'm accessing an IBM mainframe and i don't think it's possible... :-(

Sub main()
    Dim Sessions As Object
    Dim System As Object
    Set System = CreateObject("EXTRA.System")   ' Gets the system object
    If (System Is Nothing) Then
        MsgBox "Could not create the EXTRA System object.  Stopping macro playback."
        Stop
    End If
    Set Sessions = System.Sessions
    If (Sessions Is Nothing) Then
        MsgBox "Could not create the Sessions collection object.  Stopping macro playback."
        Stop
    End If
    g_HostSettleTime = 50     ' milliseconds
    OldSystemTimeout& = System.TimeoutValue
    If (g_HostSettleTime > OldSystemTimeout) Then
        System.TimeoutValue = g_HostSettleTime
    End If
    Dim Sess0 As Object
    Set Sess0 = System.ActiveSession
    If (Sess0 Is Nothing) Then
        MsgBox "Could not create the Session object.  Stopping macro playback."
        Stop
    End If
    If Not Sess0.Visible Then Sess0.Visible = True
    Sess0.Screen.WaitHostQuiet (g_HostSettleTime)
    

    myhost = Sess0.hostname
    
    MsgBox Sess0.hostname
End Sub

zach

 

[LearningAsIGo]

You are right, Sess0.HostName doesn't work when using an IBM Mainframe. I couldn't find anything that would work with an IBM Mainframe, sorry... maybe someone else can come up with the solution

 

[brumo]

I got it working for me and my host is an IBM Mainframe...

Sub Main
  Dim Sys As Object,Sess As Object
  Set Sys = CreateObject("EXTRA.System")
  Set Sess = Sys.ActiveSession
  
	Dim MyHost
 
	MyHost=Sess.HostName
	MsgBox MyHost
End Sub

 

[brumo]

My host is an IBM Mainframe and it works for me...

Sub Main
  Dim Sys As Object,Sess As Object
  Set Sys = CreateObject("EXTRA.System")
  Set Sess = Sys.ActiveSession
  
	Dim MyHost
 
	MyHost=Sess.HostName
	MsgBox MyHost
End Sub

 

[vzachin]

hi brumo,

what version of attachmate do you have?
i still can't get this to work?
i'm using enterprise2000


thanks
zach

 

[brumo]

says EXTRA! X-treme 8.0 SP1

 

[vzachin]

hi brumo,

you're absolutely right! it works on x-treme 8.0

thanks
zach