En error reasumir después
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Fijar WshShell = WScript.CreateObject (“WScript.Shell”)
Fijar FSO = CreateObject (“Scripting.FileSystemObject”)
'Declaraciones variables
ProgramFiles = WshShell.ExpandEnvironmentStrings (“%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings (“%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings (“%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings (“%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = ido (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) y “\”
WshShell.CurrentDirectory = InstallDir
ManagedMarker=InstallDir y “\ Success.txt”
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ datos de uso \ cliente \ sistema seguros de Cisco \ de los servicios de Cisco \ “
'Crear el archivo de registro
Fijar InstLogFile = fso.CreateTextFile (ScriptFullName y “. Registro”, verdades)
InstLogFile.WriteLine ahora () y “comenzando la instalación del """ y ScriptFullName y """.”
Si fso.fileexists (AllUsersProfile y CfgXMLPath y CfgXML) entonces
'fichero de archivo
objFile determinado = FSO.GetFile (AllUsersProfile y CfgXMLPath y CfgXML)
Si objFile.Attributes Y 1 entonces
objFile.Attributes = objFile.Attributes - 1
Terminar si
InstLogFile.WriteLine ahora () y “encontró “Configuration.xml” en la trayectoria de Allusers. Apoyándolo.”
fso.CopyFile AllUsersProfile y CfgXMLPath y CfgXML, AllUsersProfile y CfgXMLPath y CfgXMLbkp
'copiar el nuevo archivo
InstLogFile.WriteLine ahora () y “reemplazo/que inserta nuevo “Configuration.xml”.”
fso.deletefile AllUsersProfile y CfgXMLPath y cfgXML
fso.copyfile InstallDir y cfgxml, AllUsersProfile y CfgXMLPath y cfgXML
Si no objFile.Attributes Y 1 entonces
objFile.Attributes = objFile.Attributes + 1
Terminar si
InstLogFile.WriteLine ahora () y ““Configuration.xml” no encontrado. CSSC presuntuosos no instalados.”
Terminar si
InstLogFile.writeline ahora () y la “instalación del """ y ScriptFullName y el """ es Finished.”
InstLogFile.Close ()
Fijan InstLogFile = nada
Fijar FSO = nada
Fijar WshShell = nada
|