Recorrer una Red - Level Extreme

Level Extreme platform

Subscription

Corporate profile

Products & Services

Support

Legal

Français

Recorrer una Red

Message

From

09/09/2005 11:00:18

David Amador
Usati Ltda.
Cartagena, Colombia

08/09/2005 15:02:45

Mauricio Henao Romero
El Colombiano
Medellín, Colombia

General information

Forum:

Visual FoxPro

Category:

Troubleshooting

Title:

Re: Recorrer una Red

Environment versions

Visual FoxPro:

VFP 6 SP5

OS:

Windows Server 2003

Network:

Windows 2003 Server

Database:

MS SQL Server

Miscellaneous

Thread ID:

01047833

Message ID:

01048142

Views:

Hola Mauricio.

Pruebalo así

lcCmd = GETENV("ComSpec") + " /C NET VIEW > c:\mired.txt"
loWs = CREATEOBJECT("wscript.shell")
= loWs.Run(lcCmd,0,.t.)
CREATE CURSOR mired(myNet C(50))
APPEND FROM c:\mired.txt SDF FOR LEFT(myNet,2) == "\\"
ERASE c:\mired.txt
BROWSE

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

Map

View

Click here to load this message in the networking platform