Как в PureBasic, Delphi или MS Visual C++ 2010 написать прогу, чтобы выводила список доступных сетей (включая Wi-Fi)?

Попробуй в PureBasic запустить такой код.

InitNetwork()

ExamineIPAddresses()
NextIP = NextIPAddress()
While NextIP
Debug IPString(NextIP)
NextIP = NextIPAddress()
Wend