clear
loLocator		= CREATEOBJECT('WBEMScripting.SWBEMLocator')
loWMI			= loLocator.ConnectServer()
loNAs			= loWMI.ExecQuery('Select * from Win32_NetworkAdapter where NetConnectionStatus is not null')
for each loNA in loNAs
	with loNA
		? .Caption, .AdapterType, .AdapterTypeID, .DeviceID, .MACAddress, .NetConnectionStatus
	endwith
endfor

* Now, AdapterTypeID = 9 is Wireless, so if you are interested only to see if some wireless connection exists you can do something like
clear
loLocator		= CREATEOBJECT('WBEMScripting.SWBEMLocator')
loWMI			= loLocator.ConnectServer()
loNAs			= loWMI.ExecQuery('Select * from Win32_NetworkAdapter where NetConnectionStatus is not null and AdapterTypeID=9')
? iif(loNAs.Count = 0, 'No', transform(loNAs.Count)) + ' wireless adapter(s) detected'