|
bonjour,
en faite je doit crée un script qui remplira automatiquement un etendu dhcp, il devras pour ce faire dans un fichier txt ou csv pour reccupere les ip et les mac. j ai bien fais se script mais j ai du commetre une erreur car il ne marche pas
si vous avez une idée.....
voila mon script:
'Trouve et stocke le chemin du script. Nécessaire pour inclure d'autres fichiers.
MainPath = mid(Wscript.ScriptFullName, 1, InStrRev(Wscript.ScriptFullName, "\"))
IpMacFile = Mainpath & "IP_MAC.txt"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
If ofs.FileExists(IpMacFile) Then
Dim fc3, sLigne3
Dim ip, mac, Separateur3
'On ouvre le fichier client et on lit dedans ligne par ligne
Set fc3 = ofs.OpenTextFile(IpMacFile, 1, False, 0)
sLigne3 = fc3.ReadLine
Separateur3 = "|" 'separateur utilisé dans le fichier ip_mac.txt
'Tant que l'on n'est pas à la fin du fichier ou que l'on ne trouve pas la chaine END
Do While not fc3.AtEndOfStream AND Left(sLigne3,3) <> "END"
'trim() élimine les espaces de la chaine
If trim(sLigne3) <> "" Then
ip = Left(sLigne3, Instr(1,sLigne3, "|") - 1)
mac = Trim(Right(sLigne3, Len(sLigne3) - Instr(1, sLigne3 ,"|")))
On error resume next
commande = "netsh dchp server \\(la le nom de mon etendu) add reseverip " & ip & mac
return = objshell.run( "cmd /C CD C:\& " & commande & " ", 5, true)
On Error GoTo 0
End If
sLigne3 = fc3.ReadLine 'On lit la ligne suivante
Loop
fc3.close
Else
wscript.echo "Fichier non trouvé."
End IF
voila....
merci |