Dim oShell
Dim ipserver
Dim ipetend

inputpointtxt=InputBox("Entrez le nom du fichier à importer.","Académie de Créteil")

IF inputpointtxt<>"" THEN

ipserver="192.168.0.200"
ipetend="192.168.0.0"
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K for /f "" tokens=1-4 delims=;"" %a in ("&inputpointtxt&") do (netsh dhcp server " &ipserver&" scope "&ipetend&" add reservedip %a %b %c %d dhcp)"
message=MsgBox("Importation terminée","Académie de Créteil",64)
END IF