Sur l'erreur reprendre après
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Placer WshShell = WScript.CreateObject (« WScript.Shell »)
Placer FSO = CreateObject (« Scripting.FileSystemObject »)
'Déclarations variables
ProgramFiles = WshShell.ExpandEnvironmentStrings (« %ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings (« %SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings (« %SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings (« %ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = parti (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) et « \ »
WshShell.CurrentDirectory = InstallDir
ManagedMarker=InstallDir et « \ Success.txt »
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ données d'application \ client \ système bloqués de Cisco \ services de Cisco \ «
'Créer le fichier de consignation
Placer InstLogFile = fso.CreateTextFile (ScriptFullName et « . Notation », vraies)
InstLogFile.WriteLine maintenant () et « commençant l'installation du """ et le ScriptFullName et le """. »
Si fso.fileexists (AllUsersProfile et CfgXMLPath et CfgXML) puis
'fichier d'archives
objFile réglé = FSO.GetFile (AllUsersProfile et CfgXMLPath et CfgXML)
Si objFile.Attributes ET 1 puis
objFile.Attributes = objFile.Attributes - 1
Finir si
InstLogFile.WriteLine maintenant () et « a trouvé « Configuration.xml » dans le chemin d'Allusers. Le soutenant. »
fso.CopyFile AllUsersProfile et CfgXMLPath et CfgXML, AllUsersProfile et CfgXMLPath et CfgXMLbkp
'copier le nouveau dossier
InstLogFile.WriteLine maintenant () et « remplacement/insérant nouveau « Configuration.xml ». »
fso.deletefile AllUsersProfile et CfgXMLPath et cfgXML
fso.copyfile InstallDir et cfgxml, AllUsersProfile et CfgXMLPath et cfgXML
Sinon objFile.Attributes ET 1 puis
objFile.Attributes = objFile.Attributes + 1
Finir si
Autrement
InstLogFile.WriteLine maintenant () et « « Configuration.xml » non trouvé. CSSC supposants non installés. »
Finir si
InstLogFile.writeline maintenant () et « installation de """ et ScriptFullName et """ est de finition. »
InstLogFile.Close ()
Placent InstLogFile = rien
Placer FSO = rien
Placer WshShell = rien
|