Changeset 40
- Timestamp:
- Oct 6, 2014, 3:40:53 PM (10 years ago)
- Location:
- trunk/xftp
- Files:
-
- 1 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/xftp/mountFtp.bat
r36 r40 1 Rem 24 juillet 2014 : suppression du montage lecteur f: 2 1 3 @echo off 2 4 … … 16 18 17 19 Rem connecter un lecteur réseau sur la borne xfel 18 net use w: \\borne-xfel\data\JSON /user:xfel1 0164468560 19 20 Rem net use w: \\borne-xfel\data\JSON /user:xfel1 0164468560 21 net use w: \\172.16.1.1\data\JSON /user:xfel1 0164468560 22 20 23 Rem connecter un lecteur réseau sur le serveur ftp 21 if %ipVrai% == 172 ("C:\Program Files\FERRO Software\FtpUse\ftpUse.exe" f: 172.16.1.19/temp/JSON)24 Rem if %ipVrai% == 172 ("C:\Program Files\FERRO Software\FtpUse\ftpUse.exe" f: 172.16.1.19/temp/JSON) 22 25 23 26 -
trunk/xftp/xftp.bat
r36 r40 1 Rem 24 juillet 2014 rajout montage/démontage lecteur f: 2 1 3 @echo off 4 5 6 set /p ipVrai= < c:\temp\ip172.txt 7 set ipVrai=%ipVrai:~44,3% 8 echo %ipVrai% > c:\temp\ipVrai.txt 9 10 if %ipVrai% == 172 ( 11 12 Rem connecter un lecteur réseau sur le serveur ftp 13 "C:\Program Files\FERRO Software\FtpUse\ftpUse.exe" f: 172.16.1.19/temp/JSON) 14 2 15 c: 3 16 cd c:\temp 4 cscript /nologo C:\Users\$xfel1\Desktop\outils\21022014\xftp.vbs >>xftp.txt 17 cscript /nologo C:\Users\$xfel1\Desktop\outils\xftp\xftp.vbs >>xftp.txt 18 Rem cscript /nologo "C:\Documents and Settings\marrucho.LAL\Bureau\xfel-SI\outils\xftp\xftp.vbs" 11 19 20 Rem déconnecter le lecteur réseau 21 if %ipVrai% == 172 ("C:\Program Files\FERRO Software\FtpUse\ftpUse.exe" f: /delete) 22 23 ) 24 5 25 exit -
trunk/xftp/xftp.vbs
r36 r40 1 ' 03 mars 2014 1 ' 24 juillet 2014 2 ' rajout dans les 2 fonctions ConnectLecteurReseauFtp... du test f: existe 2 3 3 4 Option Explicit … … 26 27 27 28 ' Wscript.echo "ConnectLecteurReseauFtpWithLast" 29 30 '240714 : rajout 31 Dim dirServeurFSO, serveurDir 32 Set dirServeurFSO = CreateObject("Scripting.FileSystemObject") 33 serveurDir = "f:" 34 If dirServeurFSO.DriveExists(serveurDir) Then 35 Wscript.echo "drive f:" 36 Else 37 Wscript.echo "f: do not exist" 38 Wscript.quit'ne rien faire 39 End If 40 Err.clear 41 ' 28 42 29 43 'lecture lecteur réseau ftp … … 87 101 ' Wscript.echo "ConnectLecteurReseauFtpWithId" 88 102 103 '240714 : rajout 104 Dim dirServeurFSO, serveurDir 105 Set dirServeurFSO = CreateObject("Scripting.FileSystemObject") 106 serveurDir = "f:" 107 If dirServeurFSO.DriveExists(serveurDir) Then 108 Wscript.echo "drive f:" 109 Else 110 Wscript.echo "f: do not exist" 111 Wscript.quit'ne rien faire 112 End If 113 Err.clear 114 ' 115 89 116 ''''' CREER LE REPERTOIRE EN LOCAL SI N'EXISTE PAS ''''' 90 117 Set dirFSO = CreateObject("Scripting.FileSystemObject") … … 195 222 If Left(objItem.IPAddress(0),3) = "134" Then 196 223 Wscript.Echo objItem.IPAddress(0), " : ...NO CONNECTION TO FTP SERVER..." 197 'ne fait rien 224 'ne fait rien 198 225 Wscript.Echo 199 226 Wscript.quit
Note: See TracChangeset
for help on using the changeset viewer.