Auf Störung zunächst wieder.aufnehmen
Const ForReading = 1, ForWriting = 2, ForAppending = 8
WshShell = WScript.CreateObject („WScript.Shell“) einstellen
Einstellen FSO = CreateObject („Scripting.FileSystemObject“)
'Variable Erklärungen
ProgramFiles = WshShell.ExpandEnvironmentStrings („%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings („%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings („%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings („%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = verlassen (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) u. „\“
WshShell.CurrentDirectory = InstallDir
ManagedMarker=InstallDir u. „\ Success.txt“
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ Anwendungs-Daten \ Cisco-\ Cisco-sicherer Service-Klient \ -system \ „
'Protokolldatei verursachen
InstLogFile = fso.CreateTextFile einstellen (ScriptFullName u. „. Maschinenbordbuch“, zutreffend)
InstLogFile.WriteLine jetzt () u. „, Installation von """ u. ScriptFullName u. """ beginnend.“
Wenn fso.fileexists (AllUsersProfile u. CfgXMLPath u. CfgXML) dann
'Bibliotheksdatei
Gesetztes objFile = FSO.GetFile (AllUsersProfile u. CfgXMLPath u. CfgXML)
Wenn objFile.Attributes UND 1 dann
objFile.Attributes = objFile.Attributes - 1
Beenden wenn
InstLogFile.WriteLine jetzt () u. „fand „Configuration.xml“ im Allusers Weg. Es unterstützen.“
fso.CopyFile AllUsersProfile u. CfgXMLPath u. CfgXML, AllUsersProfile u. CfgXMLPath u. CfgXMLbkp
'neue Akte kopieren
InstLogFile.WriteLine jetzt () u. „Ersetzen/neues „Configuration.xml“ einsetzend.“
fso.deletefile AllUsersProfile u. CfgXMLPath u. cfgXML
fso.copyfile InstallDir u. cfgxml, AllUsersProfile u. CfgXMLPath u. cfgXML
Wenn nicht objFile.Attributes UND 1 dann
objFile.Attributes = objFile.Attributes + 1
Beenden wenn
Sonst
InstLogFile.WriteLine jetzt () u. „„Configuration.xml“ nicht gefunden. Annehmende CSSC nicht angebracht.“
Beenden wenn
InstLogFile.writeline jetzt () u. „Installation von """ u. ScriptFullName u. """ ist fertig.“
InstLogFile.Close ()
Einstellen InstLogFile = nichts ts
Einstellen FSO = nichts
WshShell einstellen = nichts
|