There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.
Public Function Ping(sAddress As String, _
sDataToSend As String, _
ECHO As ICMP_ECHO_REPLY) As Long
Dim hPort As Long
Dim dwAddress As Long
'convert the address into a long representation
dwAddress = inet_addr(sAddress)
'if dwAddress is valid
If dwAddress <> INADDR_NONE Then
'open a port
hPort = IcmpCreateFile()
'and if successful,
If hPort Then
'ping it.
Call IcmpSendEcho(hPort, _
dwAddress, _
sDataToSend, _
Len(sDataToSend), _
0, _
ECHO, _
Len(ECHO), _
glngPingTime)
'return the status as ping success
Ping = ECHO.status
'close the port handle
Call IcmpCloseHandle(hPort)
End If 'If hPort
Else:
'the address format was probably invalid
Ping = INADDR_NONE
End If
End Function
Also if you download xassets xam discovery, theres a tool in there called netdiscover which isn't license checked which returns a text file, either via netbios or icmp
I can give you the netbios code too if you can guarantee that all PCs are running netbios