Beh in quel caso devi usare il WMI.
Non mi chiedere quale API devi includere perchè non mi ricordo ma ti posto una function che ti risponde tutti i PC in rete e le loro caratteristiche.

codice:
strComputer = "DC1"

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
	nomePC = objitem.CSName
Next
E' chiaro che l' utente deve essere admin della rete ...