Getting the name of a server with VB

[bjwade62]

Does anyone know how to get the name of a server with code?

 

[merlinx]

Lan/Wan/Internet???

 

[PraveenMenon]

Sooooooo vague...... pls make it specific

All the Best Praveen Menon
pcmin@rediffmail.com

 

[bjwade62]

I'm trying to get the full path of a file on a server. It's on a mapped drive ie j:\0000\arch\0000-a1.dwg. I want to get something similar to \\servername\vol1:\projects\0000\arch\0000-a1.dwg. We have sevral offices with J:\drives. I want to find which server the file is on (with code).

Thanks,
Bernie

 

[merlinx]

To get started view the Net command in a dos window. You can use this in a batch file, like command>>results.txt and then read the file. Like I said it's a good way to get started and works fairly well.

 

[StewartJ]

Declare Function GetFullPathName Lib "kernel32.dll" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long

See

http://www.vbapi.com

for details - this is a very useful guide to calling the Windows API from VB.

 

[PraveenMenon]

Try these links...

http://www.planetsourcecode.com/vb/...lngWId=1&B1=Quick+Search&optSort=Alphabetical

http://www.planetsourcecode.com/vb/...2&lngWId=1&txtForceRefresh=111420023581724400

All the best Praveen Menon
pcmin@rediffmail.com

 

[sunaj]

---------------------------------
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long

Private Sub Command1_Click()
Dim Buf As String * 256, l As Long
l = 255
WNetGetConnection "s:", Buf, l
MsgBox "Full path: " & Left$(Buf, l)
End Sub
---------------------------------- Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'