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 :
- 'Déclaration
- Dim wshNetwork
- SET wshNetwork = CreateObject("Wscript.Network" )
- strLocalDrive = "Z:"
- strRemoteShare = "MonServeur"
- strUser = "User"
- strPassword = "Password"
- 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 :
- 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 :
- sFolderName = "\\MonServeur\Folder"
- Set fso = CreateObject("Scripting.FileSystemObject" )
- ' Vérifier que le dossier source existe bien.
- If fso.FolderExists(sFolderName) Then
- WScript.Echo("Folder Exist" )
- Else
- WScript.Echo("Folder Does Not Exist" )
- 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
FORUM HardWare.fr
!