Recorrer una Red - Level Extreme

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

Recorrer una Red

Message

09/09/2005 11:00:18

David Amador
Usati Ltda.
Cartagena, Colombie

08/09/2005 15:02:45

Mauricio Henao Romero
El Colombiano
Medellín, Colombie

Information générale

Forum:

Visual FoxPro

Catégorie:

Problèmes

Titre:

Re: Recorrer una Red

Versions des environnements

Visual FoxPro:

VFP 6 SP5

OS:

Windows Server 2003

Network:

Windows 2003 Server

Database:

MS SQL Server

Divers

Thread ID:

01047833

Message ID:

01048142

Vues:

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

Répondre

Fil

Voir

Click here to load this message in the networking platform