cs_docgeo
Messages postés7Date d'inscriptionjeudi 10 juin 2004StatutMembreDernière intervention10 novembre 2006
-
15 sept. 2006 à 17:08
cs_docgeo
Messages postés7Date d'inscriptionjeudi 10 juin 2004StatutMembreDernière intervention10 novembre 2006
-
18 sept. 2006 à 12:49
Bonjour !!
Je suis en train de faire un script VB mais j'ai quelques soucis.
Tout d'abord mon script créer un fichier de log sous C:. Ensuite il connecte deux lecteurs réseaux. Jusque là tout va bien. Après j'aimerais que mon fichier de log se remplisse en disant : lecteurs réseaux connectés ou lecteurs réseaux non connectés. J'aimerais que mon fichier de log se remplisse au fur et à mesure que mon script s'éxecute. C'est à partir de là que je bloque.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 15 sept. 2006 à 18:28
Salut
Il te suffit d'ouvrir ton fichier LOG au moment où tu as besoin d'écrire dedans en utilisant "Append" dans la commande Open afin qu'il ouvre le fichier et qu'il se positionne à la fin du fichier, le Print #x, "la ligne que tu écris" écrira à la suite.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005 Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_docgeo
Messages postés7Date d'inscriptionjeudi 10 juin 2004StatutMembreDernière intervention10 novembre 2006 18 sept. 2006 à 11:45
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:", "[file://\\intranet\hopital \\intranet\hopital]"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "Y:", "[file://\\intranet\mck_nl \\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.
cs_docgeo
Messages postés7Date d'inscriptionjeudi 10 juin 2004StatutMembreDernière intervention10 novembre 2006 18 sept. 2006 à 12:49
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:", "[file://\\intranet\hopital \\intranet\hopital]"
TestErreur(objFileErr)
On Error Resume Next
WshNetwork.MapNetworkDrive "Y:", "[file://\\intranet\mck_nl \\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.