VBS fichier partagé
karkol
Messages postés
488
Statut
Membre
-
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?
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:
- VBS fichier partagé
- Fichier bin - Guide
- Fichier epub - Guide
- Partage de photos - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide