Prev: How do I copy file from resources to C:\Notes?
Next: Encryption and Decryption with office 2007 document
From: Roidy on 31 May 2010 08:56
I have a function that reads a file but fails if I pass it a network device
name instead of an ip address eg:-

ReadFunction("\\NAS\Myfolder\Myfile.txt") <--- Fails
ReadFunction("\\192.168.2.2\Myfolder\Myfile.txt") <--- Works

So how do I convert a network devices name to it's ip address?
ie. Convert \\NAS\ to \\192.168.2.2\

Thanks
Robert




From: Armin Zingler on 31 May 2010 10:58
Am 31.05.2010 14:56, schrieb Roidy:
> I have a function that reads a file but fails if I pass it a network device
> name instead of an ip address eg:-
>
> ReadFunction("\\NAS\Myfolder\Myfile.txt") <--- Fails
> ReadFunction("\\192.168.2.2\Myfolder\Myfile.txt") <--- Works
>
> So how do I convert a network devices name to it's ip address?
> ie. Convert \\NAS\ to \\192.168.2.2\


Try this: (passing "NAS")

System.Net.Dns.GetHostByName(ByVal String) As System.Net.IPHostEntry

Does it fail, too?


--
Armin
From: Roidy on 31 May 2010 11:55
Thanks Armin,

VB complains that GetHostByName is obsolete and tells you to use
GetHostEntry, which works perfectly:-

Dim hostname As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry("NAS")
Dim ipaddress() As System.Net.IPAddress = hostname.AddressList

Now it just an easy task to write a function to strip out the network device
name from the path and replace it with the resulting IP address.

Thanks
Robert


"Armin Zingler" <az.nospam(a)freenet.de> wrote in message
news:eoljMHNALHA.348(a)TK2MSFTNGP06.phx.gbl...
> Am 31.05.2010 14:56, schrieb Roidy:
>> I have a function that reads a file but fails if I pass it a network
>> device
>> name instead of an ip address eg:-
>>
>> ReadFunction("\\NAS\Myfolder\Myfile.txt") <--- Fails
>> ReadFunction("\\192.168.2.2\Myfolder\Myfile.txt") <--- Works
>>
>> So how do I convert a network devices name to it's ip address?
>> ie. Convert \\NAS\ to \\192.168.2.2\
>
>
> Try this: (passing "NAS")
>
> System.Net.Dns.GetHostByName(ByVal String) As System.Net.IPHostEntry
>
> Does it fail, too?
>
>
> --
> Armin
>
From: Roidy on 31 May 2010 12:18
This is what I knocked together to check the path to see if it's network
path and then replace the device name with it's IP address. Seems to work,
can you see any problems I might face using this? or is there a better way?

Public Function PathFixer(ByVal path As String) As String
If path.StartsWith("\\") Then ' Check to see if it's a network path
Dim output As String
Dim splits() As String = path.Substring(2, path.Length -
2).Split("\")
Dim hostname As System.Net.IPHostEntry =
System.Net.Dns.GetHostEntry(splits(0))
Dim ips() As System.Net.IPAddress = hostname.AddressList
output = path.Remove(2, splits(0).Length)
Return output.Insert(2, ips(0).ToString)
Else
Return path
End If
End Function

Thanks
Robert

"Roidy" <roidy.parnell(a)ntlworld.com> wrote in message
news:0_QMn.5693$QF7.3830(a)hurricane...
> Thanks Armin,
>
> VB complains that GetHostByName is obsolete and tells you to use
> GetHostEntry, which works perfectly:-
>
> Dim hostname As System.Net.IPHostEntry =
> System.Net.Dns.GetHostEntry("NAS")
> Dim ipaddress() As System.Net.IPAddress = hostname.AddressList
>
> Now it just an easy task to write a function to strip out the network
> device name from the path and replace it with the resulting IP address.
>
> Thanks
> Robert
>
>
> "Armin Zingler" <az.nospam(a)freenet.de> wrote in message
> news:eoljMHNALHA.348(a)TK2MSFTNGP06.phx.gbl...
>> Am 31.05.2010 14:56, schrieb Roidy:
>>> I have a function that reads a file but fails if I pass it a network
>>> device
>>> name instead of an ip address eg:-
>>>
>>> ReadFunction("\\NAS\Myfolder\Myfile.txt") <--- Fails
>>> ReadFunction("\\192.168.2.2\Myfolder\Myfile.txt") <--- Works
>>>
>>> So how do I convert a network devices name to it's ip address?
>>> ie. Convert \\NAS\ to \\192.168.2.2\
>>
>>
>> Try this: (passing "NAS")
>>
>> System.Net.Dns.GetHostByName(ByVal String) As System.Net.IPHostEntry
>>
>> Does it fail, too?
>>
>>
>> --
>> Armin
>>
>
From: Armin Zingler on 1 Jun 2010 03:19
Am 31.05.2010 18:18, schrieb Roidy:
> This is what I knocked together to check the path to see if it's network
> path and then replace the device name with it's IP address. Seems to work,
> can you see any problems I might face using this? or is there a better way?

If it works fine for you, it's ok. :-) Though I wonder why your "ReadFunction"
works with the IP but not with the host name, while resolving the host name
before using GetHostEntry seems to work. What does 'ReadFunction" do with
the string? Apart from this:

- A possible problem is that the host name can not be resolved. I can't test
the situation because my provider seems to redirect all unknown host names to
the same IP.
- always enable Option Strict
- make the function Shared


> Public Function PathFixer(ByVal path As String) As String
> If path.StartsWith("\\") Then ' Check to see if it's a network path
> Dim output As String
> Dim splits() As String = path.Substring(2, path.Length -
> 2).Split("\")
> Dim hostname As System.Net.IPHostEntry =
> System.Net.Dns.GetHostEntry(splits(0))
> Dim ips() As System.Net.IPAddress = hostname.AddressList
> output = path.Remove(2, splits(0).Length)
> Return output.Insert(2, ips(0).ToString)
> Else
> Return path
> End If
> End Function

--
Armin
 |  Next  |  Last
Pages: 1 2
Prev: How do I copy file from resources to C:\Notes?
Next: Encryption and Decryption with office 2007 document