Le portail francophone de la géomatique

Rami Sawda · Sat 03 April 2004 15:28

De: rami

Je souhaite effectuer l'equivalent d'un Ping grace a ARCMAP et VBA dans le but de tester un reseau informatique local et pouvoir identifier le pc qui n'est pas connecter au reseau grace a un point dynamique qui va etre cree dans ARCMAP sur la carte du reseau

Arcsig · Sun 04 April 2004 05:15

s'agit il juste de tester un point de montage disque (par exemple z: ou serveurpartage ) ou de tester un port reseau
si c'est seulement un point de montage, c'est simple:
il faut
- ajouter dans les references la bibliotheque Microsoft Scripting Runtime
- creer la fonction suivante:

Code:

public function CheminExiste(strChemin as string) as boolean
Dim fso As New Scripting.FileSystemObject
CheminExiste fso.FolderExists(strChemin)
end function

- tester vos points de montage : par exemple :

Code:

if not CheminExiste( MonServeurMonRepertoire ) then
-> traitement
end if

Communauté	Ressources	L'emploi	Le marché	L'association	Fils RSS
Forum Blogs Wiki Planet Sites amis	Agenda Biblio Fiches AMO-CNIG Paris PCGIS Téléchargements	Offres d'emploi Banque de CV Formations Démarche Métiers	Geo-Entreprises Geo-Communiqué Appels d'offres	L'association Qui sommes-nous ? Nous aider Bienfaiteurs Partenaires Historique Statuts	Tout le site Job Géomatique Services GeoBlogs ...	Faire un don Mentions légales

Le portail francophone de la géomatique

Annonce

#1 Sat 03 April 2004 15:28

VBA -ARCMAP-RESEAU

#2 Sun 04 April 2004 05:15

Re: VBA -ARCMAP-RESEAU

Code:

Code:

Pied de page des forums