Changeset 40 for trunk

Timestamp:

Oct 6, 2014, 3:40:53 PM (10 years ago)

Author:

marrucho

Message:

mount.bat monte w:
xftp.bat monte f:
le planificateur de taches lance xft-autre.bat qui lance xftp.bat qui lance xftp.vbs

Location:

trunk/xftp

Files:

• mountFtp.bat (modified) (2 diffs)
• xftp-autre.bat (added)
• xftp.bat (modified) (1 diff)
• xftp.vbs (modified) (4 diffs)

trunk/xftp/mountFtp.bat

@@ +1 @@
+Rem 24 juillet 2014 : suppression du montage lecteur f:
+
 @echo off
 
@@ -16 +18 @@
 
 Rem connecter un lecteur réseau sur la borne xfel
-net use w: \\borne-xfel\data\JSON /user:xfel1 0164468560
-                    
+Rem net use w: \\borne-xfel\data\JSON /user:xfel1 0164468560
+net use w: \\172.16.1.1\data\JSON /user:xfel1 0164468560
+
 Rem connecter un lecteur réseau sur le serveur ftp
-if %ipVrai% == 172 ("C:\Program Files\FERRO Software\FtpUse\ftpUse.exe" f: 172.16.1.19/temp/JSON)
+Rem if %ipVrai% == 172 ("C:\Program Files\FERRO Software\FtpUse\ftpUse.exe" f: 172.16.1.19/temp/JSON)
 
 

trunk/xftp/xftp.bat

@@ +1 @@
+Rem 24 juillet 2014 rajout montage/démontage lecteur f:
+
 @echo off 
+
+
+set /p ipVrai= < c:\temp\ip172.txt
+set ipVrai=%ipVrai:~44,3%
+echo %ipVrai% > c:\temp\ipVrai.txt
+
+if %ipVrai% == 172 (
+
+Rem connecter un lecteur réseau sur le serveur ftp
+"C:\Program Files\FERRO Software\FtpUse\ftpUse.exe" f: 172.16.1.19/temp/JSON)
+
 c:
 cd c:\temp
-cscript /nologo C:\Users\$xfel1\Desktop\outils\21022014\xftp.vbs >>xftp.txt
+cscript /nologo C:\Users\$xfel1\Desktop\outils\xftp\xftp.vbs >>xftp.txt
+Rem cscript /nologo "C:\Documents and Settings\marrucho.LAL\Bureau\xfel-SI\outils\xftp\xftp.vbs" 11
+
+Rem déconnecter le lecteur réseau
+if %ipVrai% == 172 ("C:\Program Files\FERRO Software\FtpUse\ftpUse.exe" f: /delete)
+
+)
+
 exit

trunk/xftp/xftp.vbs

@@ -1 @@
-' 03 mars 2014
+' 24 juillet 2014
+' rajout dans les 2 fonctions ConnectLecteurReseauFtp... du test f: existe
 
 Option Explicit
@@ -26 +27 @@
 
 '       Wscript.echo "ConnectLecteurReseauFtpWithLast"
+
+        '240714 : rajout
+        Dim dirServeurFSO, serveurDir
+        Set dirServeurFSO = CreateObject("Scripting.FileSystemObject")
+        serveurDir = "f:"
+        If dirServeurFSO.DriveExists(serveurDir) Then
+                Wscript.echo "drive f:"
+        Else
+                Wscript.echo "f: do not exist"                  
+                Wscript.quit'ne rien faire
+        End If  
+        Err.clear
+        '
 
         'lecture lecteur réseau ftp
@@ -87 +101 @@
 '       Wscript.echo "ConnectLecteurReseauFtpWithId"
 
+        '240714 : rajout
+        Dim dirServeurFSO, serveurDir
+        Set dirServeurFSO = CreateObject("Scripting.FileSystemObject")
+        serveurDir = "f:"
+        If dirServeurFSO.DriveExists(serveurDir) Then
+                Wscript.echo "drive f:"
+        Else
+                Wscript.echo "f: do not exist"                  
+                Wscript.quit'ne rien faire
+        End If  
+        Err.clear
+        '
+        
         ''''' CREER LE REPERTOIRE EN LOCAL SI N'EXISTE PAS '''''
         Set dirFSO = CreateObject("Scripting.FileSystemObject")
@@ -195 +222 @@
    If Left(objItem.IPAddress(0),3) = "134" Then
       Wscript.Echo objItem.IPAddress(0), " : ...NO CONNECTION TO FTP SERVER..."      
-      'ne fait rien
+      'ne fait rien            
       Wscript.Echo
       Wscript.quit