Getting host name with excel code.

[pedie]

I dont know why this code is not working.
Please advise. Thanks
Ped

Sub host_name()
Dim ClientMachineEntry As System.Net.IPHostEntry
ClientMachineEntry = System.Net.Dns.GetHostByAddress(Request.ServerVariables.Item("REMOTE_HOST"))
messagebox.Show (ClientMachineEntry.HostName)
End Sub

 

[pedie]

This code too does not work....

[FONT=Courier New][SIZE=2][COLOR=#0000ff]sub IP_add()[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] myHost [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] [/SIZE][SIZE=2][COLOR=#0000ff]String[/COLOR][/SIZE][/FONT][SIZE=2][FONT=Courier New] = System.Net.Dns.GetHostName[/FONT]
[/SIZE][FONT=Courier New][SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] myIPs [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][/FONT][SIZE=2][FONT=Courier New] System.Net.IPHostEntry = System.Net.Dns.GetHostByName(myHost)[/FONT]
[FONT=Courier New]MessageBox.Show("The name of the host is = " & myIPs.HostName, "Host Name", MessageBoxButtons.OK, MessageBoxIcon.Information)[/FONT]
[/SIZE][FONT=Courier New][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2] [/SIZE][SIZE=2][COLOR=#0000ff]Each[/COLOR][/SIZE][SIZE=2] myIP [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] System.Net.IPAddress [/SIZE][SIZE=2][COLOR=#0000ff]In[/COLOR][/SIZE][/FONT][SIZE=2][FONT=Courier New] myIPs.AddressList[/FONT]
[FONT=Courier New]MessageBox.Show("The IP address of host is = " & myIP.ToString, "Host IP Address", MessageBoxButtons.OK, MessageBoxIcon.Information)[/FONT]
[/SIZE][SIZE=2][COLOR=#0000ff][FONT=Courier New]Next[/FONT]
End sub[/COLOR][/SIZE]

 

[xenou]

This looks like .Net code to me ... VBA and VB.Net are not quite the same thing. You could probably run this in Visual Studio Express - to get it into VBA you'd probably need to compile it down to a dll/xll and then reference the code from your VBA project.

 

[pedie]

xeno...thanks for advice. thanks