[Résolu][VBScript] Voir si l'on accède à un répertoire réseau

Voir si l'on accède à un répertoire réseau [Résolu][VBScript] - VB/VBA/VBS - Programmation

Marsh Posté le 04-03-2013 à 15:08:45    

Bonjour,
 
Besoin :
Je viens vers vous car je n'arrive pas à écrire en VBScript mon besoin qui est :
Savoir si j'arrive à accéder à un répertoire partagé sur un serveur distant et si tel n'est pas le cas réaliser une action(dans mon cas il suffit de démarrer mon serveur via WoL, mais là n'est pas ma problèmatique).
 
 
Test :
 
1- J'ai effectué un 1er test avec la méthode Network.MapNetworkDrive

Code :
  1. 'Déclaration
  2. Dim wshNetwork
  4. SET wshNetwork  = CreateObject("Wscript.Network" )
  5. strLocalDrive = "Z:"
  6. strRemoteShare = "MonServeur"
  7. strUser = "User"
  8. strPassword = "Password"
  10. wshNetwork.MapNetworkDrive strLocalDrive, strRemoteShare ,true, strUser, strPassword


Mais si le serveur "MonServeur" n'est pas démarré, cela me génére une message d'erreur mais le code ne va pas plus loin...
Erreur retournée :

Code :
  1. D:\test.vbs(13, 1) WSHNetwork.MapNetworkDrive: Aucun logiciel réseau n'a accepté le chemin réseau fourni.


 
 
2- Test du répertoire :

Code :
  1. sFolderName = "\\MonServeur\Folder"
  2. Set fso = CreateObject("Scripting.FileSystemObject" )
  4.     ' Vérifier que le dossier source existe bien.
  6.     If fso.FolderExists(sFolderName) Then
  7. WScript.Echo("Folder Exist" )
  8. Else
  9.     WScript.Echo("Folder Does Not Exist" )
  10. End If


 
Mais là, je ne peux pas rentrer de login/mot de passe. Du coup le répertoire n'est pas vu même si le serveur distant est allumé !!
 
 
 
Le 1er test me semble le plus adéquat pour moi, mais je n'arrive pas à faire "continuer" le script si le serveur distant ne répond pas ou n'existe pas !
Du coup je ne trouve pas de soultion.
Merci d'avance pour votre aide.


Message édité par patafix le 04-03-2013 à 15:41:31
Reply

Marsh Posté le 04-03-2013 à 15:08:45   

Reply

Marsh Posté le 04-03-2013 à 15:41:01    

Je viens de trouver l'instruction :

Code :
  1. On Error Resume Next


 
Merci quand même  :jap:  !


Message édité par patafix le 04-03-2013 à 15:41:58
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed