VBS fichier partagé

karkol Messages postés 488 Statut Membre -  
karkol Messages postés 488 Statut Membre -
Bonjour,
J'ai fait un script qui enregistre une adresse IP saisi et son nom dans un dossier CSV existant. Il fonctionne.
Le script :

' gestion du plan d'adressage
' ---------------------------
Option Explicit
Dim objfso, IP, ligne, nom, reponse
Dim FichPlanIP 'fichier contenant le plan d'adressage IP
Dim DicoIP 'Dictionnaire contenant le plan d'addressage IP
Set objfso = WScript.CreateObject("Scripting.Filesystemobject")
Set DicoIP = CreateObject("scripting.dictionary")

' parcours du fichier et alimentation du dictionnaire

Set FichPlanIP=objfso.OpenTextFile("IP.csv",1)
Do Until FichPlanIP.AtEndOfStream
ligne=Split(FichPlanIP.ReadLine, ";")
DicoIP.Add ligne(0), ligne(1)
Loop
FichPlanIP.Close

reponse=MsgBox("voulez-vous ajouter une nouvelle Ip?",4)
Do While reponse=6
' test de l'existence d'une adresse IP et
' ajout éventuel d'une ligne dans le dictionnaire

IP= inputBox("entrer une adresse IP ")
If DicoIP.Exists(IP) Then
WScript.Echo "adresse utilisée: " & IP & " -> " & DicoIP.Item(IP)
Else
nom= inputBox("entrer le nom de la machine")
' ouverture du fichier en mode ajout en fin
Set FichPlanIP=objfso.OpenTextFile("IP.csv",8)
FichPlanIP.WriteLine IP & ";" & nom
FichPlanIP.Close
End If
reponse=MsgBox("voulez-vous ajouter une nouvelle Ip?",4)
Loop

Il y a un point que je voudrais aborder :
Comment faire pour qu'il puisse écrire sur un fichier partagé dans le réseau, donc où se trouverait le CSV?
A voir également:

1 réponse

karkol Messages postés 488 Statut Membre 57
 
up
0