På felmeritförteckning därefter
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Fastställda WshShell = WScript.CreateObject (”WScript.Shell”)
Uppsättning FSO = CreateObject (”Scripting.FileSystemObject”)
'Variabelförklaringar
ProgramFiles = WshShell.ExpandEnvironmentStrings (”%ProgramFiles%”)
SystemDrive = WshShell.ExpandEnvironmentStrings (”%SystemDrive%”)
SystemRoot = WshShell.ExpandEnvironmentStrings (”%SystemRoot%”)
AllUsersProfile = WshShell.ExpandEnvironmentStrings (”%ALLUSERSPROFILE%”)
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = lämnat (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) & ”\”,
WshShell.CurrentDirectory = InstallDir
ManagedMarker=InstallDir & ”\ Success.txt”,
CfgXML= " Configuration.xml ",
CfgXMLbkp= " configuration1.old ",
CfgXMLPath= " \ applikationdata \ Cisco \ säkra Cisco servar beställare \ systemet \ ”,
'Skapa logfilen
Fastställda InstLogFile = fso.CreateTextFile (ScriptFullName & ”. Logga”, riktigt),
InstLogFile.WriteLine nu () & ”starta installation av """ & ScriptFullName & """.”,
Om fso.fileexists (AllUsersProfile & CfgXMLPath & CfgXML) därefter
'arkivera sparar
Fastställdt objFile = FSO.GetFile (AllUsersProfile & CfgXMLPath & CfgXML)
Om objFile.Attributes OCH 1 därefter
objFile.Attributes = objFile.Attributes - 1
Avsluta om
InstLogFile.WriteLine nu () & ”grundar ”Configuration.xml” i den Allusers banan. Dra tillbaka upp den.”,
fso.CopyFile AllUsersProfile & CfgXMLPath & CfgXML, AllUsersProfile & CfgXMLPath & CfgXMLbkp
'kopiera nytt sparar
InstLogFile.WriteLine nu () & ”utbytning/som sätter in ny ”Configuration.xml”.”,
fso.deletefile AllUsersProfile & CfgXMLPath & cfgXML
fso.copyfile InstallDir & cfgxml, AllUsersProfile & CfgXMLPath & cfgXML
Om inte objFile.Attributes OCH 1 därefter
objFile.Attributes = objFile.Attributes + 1
Avsluta om
Annars
InstLogFile.WriteLine nu () & ””inte-funnen Configuration.xml”. Antagande inte-installerade CSSC.”,
Avsluta om
InstLogFile.writeline nu () & ”installation av """ & ScriptFullName & """ är färdiga.”,
InstLogFile.Close ()
Fastställda InstLogFile = ingenting
Uppsättning FSO = ingenting
Fastställda WshShell = ingenting
|