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 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
|
Faible strServer
Faible strUsername
Faible strPassword
Faible StrFilename
Faible fConfig
Faible objNetwork
Faible strPreviousFileName
Faible intProgramCounter
strPreviousFile = ""
intProgramCounter = 0
Const ForReading = 1
Placer l'objNetwork = le CreateObject (« WScript.Network »)
strOutputFile = « outputfile.txt »
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
placer le fConfig = l'objFSO.OpenTextFile (« config.txt », ForReading, faux)
Placer objOutputFile = objFSO.CreateTextFile (strOutputFile, vrai, vrai)
faire jusqu'à fconfig.atendofstream
strLine = fconfig.readline
Si UCase (laissé (strLine, 6)) = strServer = équilibre de « SERVEUR » puis (mi (strLine, InStr (strLine, « =") + 1))
Si UCase (laissé (strLine, 8)) = strUsername = équilibre de « username » puis (mi (strLine, InStr (strLine, « =") + 1))
Si UCase (laissé (strLine, 8)) = strPassword = équilibre de « MOT DE PASSE » puis (mi (strLine, InStr (strLine, « =") + 1))
Si UCase (laissé (strLine, 8)) = strFileName = équilibre de « NOM DE FICHIER » puis (mi (strLine, InStr (strLine, « =") + 1))
Si "" <> de strServer et "" <> de "" et de strPassword <> de strUsername et puis <> "" de strFileName
Si le cinglement (strServer) = rectifient alors
strServer, strUsername, strPassword, « z:\ » et StrFilename 'processfile
strServer processfile, strUsername, strPassword, strFilename
Autrement
le strServer d'objOutputFile.WriteLine et « est en différé. »
Finir si
strServer = ""
strUsername = ""
strPassword = ""
strFileName = ""
Finir si
Boucle
objOutputFile.Close
MsgBox « a fini. Voir svp » et strOutputFile
Fonction ProcessFile (strSvr, strUser, strPass, strFilePath)
Faible strMsg, strVersion, horodateur, strDriveLetter
Sur le résumé d'erreur après
objnetwork.removenetworkdrive « z : », Vrai, vrai
Err.Clear
strDriveLetter = parti (strFilePath, 1) et « $ »
objnetwork.mapnetworkdrive « z : », « \ \ » et strSvr et « \ » et strDriveLetter, faux, strUser, strPass
Si Err.Number <> 0 puis
Erreur de MsgBox « traçant » et strSvr et « . Veuillez vous vérifier peut tracer au serveur. » Et VbCrLf et « erreur » et Err.Number et « : » Et Err.Description
Err.Clear
Autrement
Sur l'erreur 0 GoTo
'S'assurer que le dossier existe
intProgramCounter = intProgramCounter + 1
Si objFSO.FileExists (« Z:\ » et mi (strFilePath, 4)) = faux puis
strMsg = strFilePath et « - dossier non trouvé. »
Autrement
'Obtenir la version du dossier et la mettre dans une corde de message
strVersion = objFSO.GetFileVersion (« Z:\ » et mi (strFilePath, 4))
'Écrire la corde de message au dossier de rendement (avec du CR LE LF)
Placer ffile = objfso.getfile (« Z:\ » et mi (le strFilePath, 4))
strtimestamp = ffile.DateLastModified
Si LCase (strPreviousFileName) <> LCase (mi (mi (strFilePath, 4), InStrRev (mi (strFilePath, 4), « \ ") + 1)) puis
intProgramCounter = 1
"" d'objOutputFile.WriteLine
Finir si
strMsg = intProgramCounter et « . » et strtimestamp et « « et strSvr et » « et strFilePath et » « et strVersion et » « et ffile.size et » bytes "
Finir si
strMsg d'objOutputFile.WriteLine
strPreviousFileName = mi (strFilePath, InStrRev (strFilePath, « \ ") + 1)
Finir si
objnetwork.removenetworkdrive « z : », Vrai, vrai
Err.Clear
Sur l'erreur 0 GoTo
Fonction de fin
Cinglement de fonction (strComputer)
Faible objShell, boolCode
Placer l'objShell = le CreateObject (« WScript.Shell »)
boolCode = objShell.Run (« cinglement - n 1 - W 300 » et strComputer, 0, vrais)
Si boolCode = 0 puis
Le cinglement = rectifient
Autrement
Cinglement = faux
Finir si
Finir la fonction
|
