Bonjour!!
Voici mon code :
------------------------------------------------
On Error Resume Next
Function TestErreur(oFic)
If Err.number <> 0 Then
oFic.WriteLine "L'erreur " & Err.number & " [" & Err.description & "] s'est produite"
On Error GoTo 0
End If
End Function
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
cheminFicErreur = "C:\strategie.log"
objFSO.CreateTextFile cheminFicErreur, True
On Error Resume Next
Set objFileErr = objFSO.OpenTextFile(cheminFicErreur , ForAppending)
TestErreur(objFileErr)
On Error Resume Next
objFileErr.WriteLine "Connexion réseau H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "H:", "\\intranet\hopital"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "Y:", "\\intranet\mck_nl"
TestErreur(objFileErr)
Wscript.Quit
On Error Resume Next
objFileErr.WriteLine "Deconnexion H: et Y:"
TestErreur(objFileErr)
On Error Resume Next
objFileErr.Close
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "H:"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.RemoveNetworkDrive "Y:"
TestErreur(objFileErr)
----------------------------------------------
Dans ce code il y a donc création d'un fichier de log sous C: puis connexion de deux lecteurs réseaux. Merci de m'aider au niveau de l'écriture dans le fichier de log. J'aimerais qu'a l'intérieur de ce fichier il soit mis automatiquement les choses suivantes :
"Lecteurs réseaux connectés" si les lecteurs se sont connectés correctement et "lecteurs réseaux non connectés" si ils ne se sont pas connectés. Voila. Je ne connait pas trop la syntaxe et je ne sais pas si tout ce que j'ai mis dans mon code est juste et nécessaire.
Merci d'avance pour votre aide!
Geo