Na Błąd Wznawiać Następnie
Const ForReading = (1), ForWriting = 2, ForAppending = 8
Ustalony WshShell = WScript.CreateObject ("WScript.Shell")
Set FSO = CreateObject ("Scripting.FileSystemObject")
'Zmienny Deklaracja
ProgramFiles = WshShell.ExpandEnvironmentStrings ("%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings ("%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings ("%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings ("%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - (1)) & "\"
WshShell.CurrentDirectory = InstallDir
ManagedMarker=InstallDir & "\ Success.txt"
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ Podaniowy Dane \ Cisco \ Cisco Bezpiecznie Usługa Klient \ system \ "
'Tworzyć Logfile
Ustawiać InstLogFile = fso.CreateTextFile (ScriptFullName & ". Notować", Prawdziwy)
InstLogFile.WriteLine Teraz () & "Zaczynać Instalacja """ & ScriptFullName & """."
Jeżeli fso.fileexists (AllUsersProfile & CfgXMLPath & CfgXML) Wtedy
'archiwum kartoteka
Ustalony objFile = FSO.GetFile (AllUsersProfile & CfgXMLPath & CfgXML)
Jeżeli objFile.Attributes I (1) Wtedy
objFile.Attributes = objFile.Attributes - (1)
Kończyć Jeżeli
InstLogFile.WriteLine Teraz () & "Zakładać "Configuration.xml" w Allusers ścieżka. Popierać ono popierać."
fso.CopyFile AllUsersProfile & CfgXMLPath & CfgXML, AllUsersProfile & CfgXMLPath & CfgXMLbkp
'odbitkowy nowy kartoteka
InstLogFile.WriteLine Teraz () & "/Nowy "Configuration.xml"."
fso.deletefile AllUsersProfile & CfgXMLPath & cfgXML
fso.copyfile InstallDir & cfgxml, AllUsersProfile & CfgXMLPath & cfgXML
Jeśli nie objFile.Attributes I (1) Wtedy
objFile.Attributes = objFile.Attributes + (1)
Kończyć Jeżeli
Inny
InstLogFile.WriteLine Teraz () & ""Configuration.xml" znajdować. CSSC instalować."
Kończyć Jeżeli
InstLogFile.writeline teraz () & "Instalacja """ & ScriptFullName & """ Kończyć."
InstLogFile.Close ()
Ustalony InstLogFile = Nic
Set FSO = Nic
Ustalony WshShell = Nic
|