I have been trying to do the following using createprocess instead of using the run command:

DIMENSION netline(1)
netline(1) = ''
WAIT WINDOW NOWAIT 'Determining network resources...'
IF FILE("TEMP.TXT")
	DELETE FILE TEMP.TXT
ENDIF
! NET USE >TEMP.TXT
m.handle = FOPEN('TEMP.TXT',0)
IF m.handle >= 0
	x = 0
	DIMENSION netline(1)
	netline = ''
	DO WHILE ! FEOF(m.handle)
		x = x + 1
		DIMENSION netline(x)
		netline(x) = FGETS(m.handle)
	ENDDO
	=FCLOSE(m.handle)
	WAIT CLEAR
ELSE
	DO OKAY WITH 'Unable to retrieve network connections.'
ENDIF

However, using createprocess doesn't seem to always be reliable and I cannot hide the window.

Any ideas?