1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| Option explicit
Dim title,defaut,rep,data,var1,var2,var3,var4,pass,pass2,pass4,pass3,com,Result,WshShell,f,fso,chemin,oShell,strHomeFolder,objShell
title="Installation MULTIFONCTION"
defaut="dlg~-1~-1~600~400|frame~10~10~132~132|img~12~12~128~128~atom128.ico|frame~146~23~70~2|label~216~14~210~19~ Installation MFP |frame~414~23~70~2|group~150~38~300~98~ &Script d'installation |label~184~70~240~29~ PROGRAME D'INSTALLATION POUR MULTIFONCTION CREE PAR MOI |group~10~148~150~98~&TYPE DE PILOTE|rdbox~14~172~82~19~Type PCL|rdbox~14~210~82~19~Type PS|label~10~250~200~19~&Configuration de L'imprimante :|cbox~10~272~444~100~Recto-N/B#Recto-Couleur#Recto-Verso-N/B#Recto-Verso-Couleur|label~168~148~184~19~&Informations d'installation |frame~350~158~126~2|label~168~172~166~19~Nom de L'imprimante :|edit~300~170~170~21~|label~168~199~190~19~Adresse IP de L'imprimante :|ipctrl~335~198~148~21~127.0.0.1|label~168~230~40~19~&Date :|datepick~212~228~100~21~" & Date & "|label~10~305~450~38~Notice : test"
rep=InputBox("",title,defaut)
data = Split(rep,"|")
If UBound(data) > 0 then var1="drivers=" & data(2) & vbCrLf ' les valeurs séparées de chaque ctrl edit
If UBound(data) > 0 then var2="config:" & data(4) & vbCrLf
If UBound(data) > 0 then var3="Nom," & data(5)& vbCrLf
If UBound(data) > 0 then var4="IP;" & data(6) & vbCrLf
'Preparation de l'environnement
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%\downloads\fichier.txt")
Set fso=CreateObject("Scripting.FileSystemObject")
chemin="fichier.txt"
'"8" = ecriture en fin de fichier, "1" = Lecture seul , "2" = Ecriture seul
'"true" crée le fichier si non existant, "false" ne crée pas le fichier
'Ouverture du fichier et ecriture en fin (ligne par ligne)
set f=fso.OpenTextFile(chemin,8,True)
pass=var1
pass2=var2
Pass3=var3
pass4=var4
'Ecrire dans le fichier
f.WriteLine(pass)
f.WriteLine(pass2)
f.WriteLine(pass3)
f.WriteLine(pass4)
f.close
set f=nothing
set fso=nothing
Set WshShell = CreateObject("WScript.Shell")
Set objShell = (CreateObject("Wscript.shell"))
com="cmd /c start.bat"
Result=WshShell.Run(com,1,True)'Option 1 Console Visible.Option 0 Console Invisible
Call objShell.Run("PowerShell -NoProfile -ExecutionPolicy Bypass -Command nbrecto.ps1", 1, True) |
Partager