Find all PCs in a network

'AppWinStyle.Hide hides the commandline window

'True waits for the net view command to finish before continueing

Shell("cmd.exe /c net view>C:\Temp.txt", AppWinStyle.Hide, True)

'The command above will write something like this in the text file:

'

'Server Name Remark

'

'-

'\\ADFLAP002 John Doe1

'\\AMSLAP006 John Doe2

'...

'Here we read out the computer names from the Temp.txt file

Dim ReadFile As New IO.StreamReader("C:\Temp.txt")

'loop until the end of the file is reached

Do Until ReadFile.EndOfStream = True

'Store the information from the currentline

Dim CurrentLine = ReadFile.ReadLine

'Only read out the computername if the line starts with '\\'

If (Mid(CurrentLine, 1, 2) = "\\") Then

'Read out the line from the 1st character to the first space and remove the '\\'

'(this is the computer name)

'write the computer name to the debug (Immediate) window

Debug.Print(Replace(Mid(CurrentLine, 1, InStr(CurrentLine, " ")), "\\", ""))

'InStr(CurrentLine, " ") => gets the location of the 1st space

'Mid(CurrentLine, 1, InStr(CurrentLine, " ")) => takes the string appart starting from 1 to the 1st space

End If

Loop