Sull'errore riprendere dopo
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Regolare WshShell = WScript.CreateObject (“WScript.Shell„)
Regolar FSO = CreateObject (“Scripting.FileSystemObject„)
'Dichiarazioni variabili
ProgramFiles = WshShell.ExpandEnvironmentStrings (“%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings (“%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings (“%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings (“%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = andato (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) & “\„
WshShell.CurrentDirectory = InstallDir
ManagedMarker=InstallDir & “\ Success.txt„
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ dati di applicazione \ cliente \ sistema sicuri servizi di Cisco \ di Cisco \ “
'Generare il Logfile
Regolare InstLogFile = fso.CreateTextFile (ScriptFullName & “. Ceppo„, allineare)
InstLogFile.WriteLine ora () & “iniziando installazione di """ & ScriptFullName & """.„
Se fso.fileexists (AllUsersProfile & CfgXMLPath & CfgXML) allora
'lima di archivio
objFile stabilito = FSO.GetFile (AllUsersProfile & CfgXMLPath & CfgXML)
Se objFile.Attributes E 1 allora
objFile.Attributes = objFile.Attributes - 1
Concluder se
InstLogFile.WriteLine ora () & “ha trovato “Configuration.xml„ in percorso di Allusers. Appoggiandolo in su.„
fso.CopyFile AllUsersProfile & CfgXMLPath & CfgXML, AllUsersProfile & CfgXMLPath & CfgXMLbkp
'copiare la nuova lima
InstLogFile.WriteLine ora () & “sostituire/che inserisce nuovo “Configuration.xml„.„
fso.deletefile AllUsersProfile & CfgXMLPath & cfgXML
fso.copyfile InstallDir & cfgxml, AllUsersProfile & CfgXMLPath & cfgXML
Se non objFile.Attributes E 1 allora
objFile.Attributes = objFile.Attributes + 1
Concluder se
Altrimenti
InstLogFile.WriteLine ora () & ““Configuration.xml„ non trovato. CSSC presupponenti non installati.„
Concluder se
InstLogFile.writeline ora () & “l'installazione di """ & ScriptFullName & il """ è Finished.„
InstLogFile.Close ()
Regolano InstLogFile = niente
Regolar FSO = niente
Regolare WshShell = niente
|