Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: mike castillo
  Where is mike castillo?
 Joo Seng Road, Singapore
 Philippines
 mike castillo
 To: Eric den Doop
  Where is Eric den Doop?
 Houten
 Netherlands
 Eric den Doop
 Tags
Subject: RE: Verifying Workstation on Network
Thread ID: 22863 Message ID: 22870 # Views: 8 # Ratings: 0
Version: Visual FoxPro 8 Category: Win32API programming
Date: Tuesday, April 29, 2003 6:42:07 AM         
   


> Hi Pete,
>
> I believe there is a ping dll on the west-wind.com. Don't know if it's free. You can also try the west-wind site monitor, an app that is designed to send an email as soon as it can't connect to a (web?) computer.
> --
> Eric den Doop
> www.foxite.com - The Home Of The Visual FoxPro Experts

Hi Pete!
just try this, try to add foxrun.pif and complist.txt (just save any blank notepad file as complist.txt ) on the default directory

CREATE CURSOR netComps(computer c(254))
DECLARE INTEGER WinExec IN win32api AS custrun ;
STRING command, INTEGER param
 
=custrun("foxrun.pif /C net view > complist.txt",0)

FILETOSTR("complist.txt")
*Find out if coms on networks are alive.
*Parse a FILETOSTR() file to find the active computers on the network.
DIMENSION laCompList[OCCURS("\\",FILETOSTR("complist.txt")),2]
FOR lnx = 1 TO OCCURS("\\",FILETOSTR("complist.txt"))
   lcCompName = SUBSTR(FILETOSTR("complist.Txt"),AT("\\",FILETOSTR("complist.Txt"),lnX)+2,7)
   laCompList[lnX,1] = lcCompName &&Save the computername to the array
 	
 	cComputer = "\\" +ALLTRIM(lcCompName)+[\C\]
 	SELECT netComps
 	APPEND BLANK
 	replace computer WITH cComputer
ENDFOR

sele netComps
brow normal


COMPLETE THREAD

Verifying Workstation on Network Posted by Pete Sass @ 4/28/2003 10:03:58 PM
RE: Verifying Workstation on Network Posted by Eric den Doop @ 4/28/2003 10:21:12 PM
RE: Verifying Workstation on Network Posted by mike castillo @ 4/29/2003 6:42:07 AM
Verifying Workstation on Network "Close.. Got it!" Posted by Pete Sass @ 4/29/2003 5:43:07 PM