Find Computer over network

[NSF12345]

Iv developed a small program that looks for a file over our network, and copy it to the location of another computer. Im using the "If FileExists("\\oldpc\main share\Folder\file.txt") Then" way of finding if the file exists, but i want to make it so that it tries to look for the computer, not the file. At the moment this is how i am finding and copying the file:

If FileExists("\\oldpc\main share\Folder\file.txt") Then
FileCopy "\\oldpc\main share\Folder\file.txt", "C:\Documents and Settings\All Users\Desktop\back ups\file.txt"
else
msgbox "Error"
end if

Public Function FileExists(Fname As String) As Boolean

If Fname = "" Or Right(Fname, 1) = "\" Then
FileExists = False: Exit Function
End If

FileExists = (Dir(Fname) <> "")

End Function

Instead of finding the file, i want it to find the PC, because, although the PC is connected, the file might not be at the location specified so it errors, and i want TWO different error messages. 1 saying the file is not at location, and 1 saying the computer is unable to be located. Can anyone help?

[sashi]

Hi there,

There are few ways to find a computer over the network, Windows Management Instrumentation (WMI) is very useful, instead lets focus on a simpler method, ping command is will solve your prob i guess, kindly refer to below code segment,

Private Type QOCINFO
  dwSize As Long
  dwFlags As Long
  dwInSpeed As Long 'in bytes/second
  dwOutSpeed As Long 'in bytes/second
End Type
 
Private Declare Function IsDestinationReachable Lib "SENSAPI.DLL" Alias "IsDestinationReachableA" (ByVal lpszDestination As String, ByRef lpQOCInfo As QOCINFO) As Long
 
Private Sub Form_Load()
  Dim Ret As QOCINFO
  Dim IP As String
  Ret.dwSize = Len(Ret)
  'Put desired IP here
  IP = "127.0.0.1"
 
  If IsDestinationReachable(IP, Ret) = 0 Then
    MsgBox "The destination cannot be reached!"
  Else
    MsgBox "The destination can be reached!" + vbCrLf + _
    "The speed of data coming in from the destination is " +  Format$(Ret.dwInSpeed / 1048576, "#.0") + " Mb/s," + vbCrLf + _
    "and the speed of data sent to the destination is " + Format$(Ret.dwOutSpeed / 1048576, "#.0") + " Mb/s."
  End If
End Sub 
 

Iv developed a small program that looks for a file over our network, and copy it to the location of another computer. Im using the "If FileExists("\\oldpc\main share\Folder\file.txt") Then" way of finding if the file exists, but i want to make it so that it tries to look for the computer, not the file. At the moment this is how i am finding and copying the file:

If FileExists("\\oldpc\main share\Folder\file.txt") Then
FileCopy "\\oldpc\main share\Folder\file.txt", "C:\Documents and Settings\All Users\Desktop\back ups\file.txt"
else
msgbox "Error"
end if

Public Function FileExists(Fname As String) As Boolean

If Fname = "" Or Right(Fname, 1) = "\" Then
FileExists = False: Exit Function
End If

FileExists = (Dir(Fname) <> "")

End Function

Instead of finding the file, i want it to find the PC, because, although the PC is connected, the file might not be at the location specified so it errors, and i want TWO different error messages. 1 saying the file is not at location, and 1 saying the computer is unable to be located. Can anyone help?