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:
|
Schemerige strServer
Schemerige strUsername
Schemerige strPassword
Schemerige StrFilename
Schemerige fConfig
Schemerige objNetwork
Schemerige strPreviousFileName
Schemerige intProgramCounter
strPreviousFile = ""
intProgramCounter = 0
Const ForReading = 1
Reeks objNetwork = CreateObject („WScript.Network“)
strOutputFile = „outputfile.txt“
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
reeks fConfig = objFSO.OpenTextFile („config.txt“, Valse ForReading,)
Vastgestelde objOutputFile = objFSO.CreateTextFile (strOutputFile, Waar, Waar)
doe tot fconfig.atendofstream
strLine = fconfig.readline
Als Verlaten UCase ((strLine, 6)) = „SERVER“ toen strServer = Medio Versiering ((strLine, InStr (strLine, „=“) + 1))
Als Verlaten UCase ((strLine, 8)) = „GEBRUIKERSBENAMING“ toen strUsername = Medio Versiering ((strLine, InStr (strLine, „=“) + 1))
Als Verlaten UCase ((strLine, 8)) = „WACHTWOORD“ toen strPassword = Medio Versiering ((strLine, InStr (strLine, „=“) + 1))
Als Verlaten UCase ((strLine, 8)) = „FILENAME“ toen strFileName = Medio Versiering ((strLine, InStr (strLine, „=“) + 1))
Als strServer <> "" en strUsername <> "" en strPassword <> "" en strFileName <> "" toen
Als (strServer) = Waar toen pingel
'processfile strServer, strUsername, strPassword, „z:\“ & StrFilename
processfile strServer, strUsername, strPassword, strFilename
Anders
objOutputFile.WriteLine strServer & „is off-line.“
Beëindig als
strServer = ""
strUsername = ""
strPassword = ""
strFileName = ""
Eind als
Lijn
objOutputFile.Close
Gebeëindigde MsgBox „. Gelieve te zien“ & strOutputFile
Functie ProcessFile (strSvr, strUser, strPass, strFilePath)
Schemerige strMsg, strVersion, timestamp, strDriveLetter
Op Fout hervat daarna
objnetwork.removenetworkdrive „z: “, Waar, Waar
Err.Clear
strDriveLetter = Weggegaan (strFilePath, 1) & „$“
objnetwork.mapnetworkdrive „z: “, „\ \“ & strSvr & „\“ & strDriveLetter, Vals, strUser, strPass
Als Err.Number <> 0 toen
Fout die van MsgBox de „in kaart brengen aan“ & strSvr & „. Gelieve te controleren u aan de server kunt in kaart brengen.“ & VbCrLf & „Fout“ & Err.Number & „: “ & Err.Description
Err.Clear
Anders
Op Fout GoTo 0
'Zorg ervoor het dossier bestaat
intProgramCounter = intProgramCounter + 1
Als objFSO.FileExists („Z:\“ & Medio (strFilePath, 4)) = Vals toen
strMsg = strFilePath & „- gevonden niet Dossier. “
Anders
'Krijg de Versie van het Dossier en zet het in een Koord van het Bericht
strVersion = objFSO.GetFileVersion („Z:\“ & Medio (strFilePath, 4))
'Schrijf het koord van het Bericht aan het Dossier van de Output (met een Cr LF)
Plaats ffile = objfso.getfile („Z:\“ & Medio (strFilePath, 4))
strtimestamp = ffile.DateLastModified
Als LCase (strPreviousFileName) <> Medio LCase ((Medio (strFilePath, 4), Medio InStrRev ((strFilePath, 4), „\“) + 1)) Dan
intProgramCounter = 1
objOutputFile.WriteLine ""
Eind als
strMsg = intProgramCounter & „. “ & strtimestamp & „„& strSvr &“ „& strFilePath &“ „& strVersion &“ „& ffile.size &“ Bytes "
Eind als
objOutputFile.WriteLine strMsg
strPreviousFileName = Medio (strFilePath, InStrRev (strFilePath, „\“) + 1)
Eind als
objnetwork.removenetworkdrive „z: “, Waar, Waar
Err.Clear
Op Fout GoTo 0
De Functie van het eind
De functie pingelt (strComputer)
Schemerige objShell, boolCode
Reeks objShell = CreateObject („WScript.Shell“)
boolCode = objShell.Run („pingel - n 1 - w 300“ & strComputer, Ware 0,)
Als boolCode = 0 toen
Pingel = Waar
Anders
Pingel = Vals
Beëindig als
Beëindig Functie
|
