Référence des exemples de script
Voici des exemples de script Visual Basic montrant les opérations courantes qu'il est possible de réaliser à l'aide de l'interface de scripts Application Control (Contrôle des applications) :
Création de nouvelles configurations
Création d'une nouvelle configuration et enregistrement dans un fichier
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration par défaut
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.DefaultConfiguration
Configuration.ParseXML ConfigurationXml
ConfigurationHelper.SaveLocalConfiguration "C:\Configuration.aamp",Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Création d'une nouvelle configuration et enregistrement sous Configuration active
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration par défaut
Configuration.ParseXML ConfigurationHelper.DefaultConfiguration
'Enregistrer la configuration vide dans un fichier.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Chargement de configurations actives
Chargement d'une configuration depuis un fichier et enregistrement dans un fichier
''Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration depuis un fichier
Dim ConfigurationXml
ConfigurationXml =
ConfigurationHelper.LoadLocalConfiguration("C:\Configuration.aamp")
Configuration.ParseXML ConfigurationXml
ConfigurationHelper.SaveLocalConfiguration "C:\Configuration.aamp",
Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Règles par défaut
Modifier une configuration de règles par défaut
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
Configuration.DefaultRules.AllowCMDForBatchFiles = True
Configuration.DefaultRules.ValidateSystemProcesses = False
'Ajouter un propriétaire de confiance à la configuration
Dim theTrustedOwner
Set theTrustedOwner = Configuration.CreateInstanceFromClassName("AM.TrustedOwner")
theTrustedOwner.DisplayName = "%COMPUTERNAME%\Guest"
theTrustedOwner.SID = "S-1-5-Domain-501"
Configuration.DefaultRules.TrustedOwners.Add theTrustedOwner.Xml
'Enregistrer la configuration dans un fichier.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
La méthode DefaultConfiguration() renvoie uniquement une configuration en anglais. Cela signifie que certains noms de groupe et autres textes dans la configuration risquent de ne pas être dans la langue native du système d'exploitation, et que la configuration n'est pas appliquée correctement. Pour les systèmes d'exploitation qui ne sont pas en anglais, il faut exporter la configuration par défaut depuis la console de produit dans un système d'exploitation natif. Vous pouvez la stocker dans un fichier sur le réseau ou la distribuer vers la machine où l'écriture des scripts de configuration va être effectuée. Une fois l'opération effectuée, utilisez la méthode LoadLocalConfiguration() à la place de DefaultConfiguration().Cela produit la même configuration, mais dans la langue native correcte.
Règles de groupe
Création d'une règle de groupe
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
Dim GroupRule
Set GroupRule = Configuration.CreateInstanceFromClassName("AM.GroupRule")
GroupRule.DisplayName = "BUILTIN\Remote Desktop Users"
GroupRule.Name = GroupRule.DisplayName
GroupRule.SID = "S-1-5-32-555"
Set GroupRule = Configuration.GroupRules.Add(GroupRule.Xml)
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'une règle de groupe
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Changer le SID du groupe Tout le monde
Configuration.GroupRules.Item("Everyone").SID = "S-1-1-0"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'une règle de groupe
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer la règle de groupe
Dim GroupRule
Set GroupRule = Configuration.CreateInstanceFromClassName("AM.GroupRule")
GroupRule.DisplayName = "BUILTIN\Remote Desktop Users"
GroupRule.Name = GroupRule.DisplayName
GroupRule.SID = "S-1-5-32-555"
Configuration.GroupRules.Add GroupRule.Xml
'Supprimer la règle
Configuration.GroupRules.Remove "BUILTIN\Remote Desktop Users"
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Règles utilisateur
Création d'une règle utilisateur
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer et ajouter la nouvelle règle utilisateur
Dim UserRule
Set UserRule = Configuration.CreateInstanceFromClassName("AM.UserRule")
UserRule.DisplayName = "%COMPUTERNAME%\Guest"
UserRule.Name = UserRule.DisplayName
UserRule.SID = "S-1-5-Domain-501"
Configuration.UserRules.Add UserRule.Xml
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'une règle utilisateur
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Modifier la règle utilisateur
Dim UserRule
Set UserRule = Configuration.UserRules.Item("%COMPUTERNAME%\Guest")
UserRule.SID = "S-1-5-Domain-501"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'une règle utilisateur
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Modifier la règle utilisateur
Dim UserRule
Set UserRule = Configuration.UserRules.Item("%COMPUTERNAME%\Guest")
UserRule.SID = "S-1-5-Domain-501"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Règles de périphérique
Créer une règle de périphérique
' Définitions de constante pour l'énumération AM.HostType.
const AM_DeviceType_Computer = 0
const AM_DeviceType_ConnectingDevice = 1
const AM_DeviceType_Either = 2
' Définitions de constante pour l'énumération AM.HostNameType.
const AM_HostNameType_HostName = 0
const AM_HostNameType_IPAddress = 1
const AM_HostNameType_ComputerGroup = 2
const AM_HostNameType_OU = 3
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer une règle de périphérique
Dim DeviceRule
Set DeviceRule = Configuration.CreateInstanceFromClassName("AM.DeviceRule")
DeviceRule.Name = "Device Rule (1)"
Configuration.DeviceRules.Add DeviceRule.Xml
'Ajouter un périphérique à la règle
Dim Device
Set Device = Configuration.CreateInstanceFromClassName("AM.Device")
Device.Host = "MyComputer"
Device.NameType = AM_HostNameType_HostName
Configuration.DeviceRules.Item("Device Rule (1)").Devices.Add Device.Xml
'Ajouter un autre périphérique à la règle
Dim AnotherDevice
Set AnotherDevice = Configuration.CreateInstanceFromClassName("AM.Device")
AnotherDevice.Host = "192.168.0.2"
AnotherDevice.NameType = AM_HostNameType_IPAddress
Configuration.DeviceRules.Item("Device Rule (1)").Devices.Add AnotherDevice.Xml
Configuration.DeviceRules.Item("Device Rule
(1)").Devices.Item("192.168.0.2").HostType = AM_DeviceType_ConnectingDevice
'Ajouter un périphérique avec l'option Groupe d'ordinateurs
Dim ComputerGroupMembership
Set ComputerGroupMembership = Configuration.CreateInstanceFromClassName("AM.Device")
ComputerGroupMembership.Host =
"CN=Finance,OU=Administration,OU=Corporate,DC=myDomain"
ComputerGroupMembership.NameType = AM_HostNameType_ComputerGroup
Configuration.DeviceRules.Item("Device Rule (1)").Devices.Add
ComputerGroupMembership.Xml
'Ajouter un périphérique avec l'option OU
Dim OUMembership
Set OUMembership = Configuration.CreateInstanceFromClassName("AM.Device")
OUMembership.Host = "OU=HR,OU=Administration,OU=Corporate,DC=myDomain"
OUMembership.NameType = AM_HostNameType_OU
Configuration.DeviceRules.Item("Device Rule (1)").Devices.Add OUMembership.Xml
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'une règle de périphérique
' Définitions de constante pour l'énumération AM.SecurityLevel.
const AM_SecurityLevel_Restricted = 0
const AM_SecurityLevel_SelfAuthorizing = 1
const AM_SecurityLevel_Unrestricted = 2
const AM_SecurityLevel_AuditOnly = 3
' Définitions de constante pour l'énumération AM.HostType.
const AM_DeviceType_Computer = 0
const AM_DeviceType_ConnectingDevice = 1
const AM_DeviceType_Either = 2
' Définitions de constante pour l'énumération AM.HostNameType.
const AM_HostNameType_HostName = 0
const AM_HostNameType_IPAddress = 1
const AM_HostNameType_ComputerGroup = 2
const AM_HostNameType_OU = 3
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer une règle de périphérique
Dim DeviceRule
Set DeviceRule = Configuration.CreateInstanceFromClassName("AM.DeviceRule")
DeviceRule.Name = "Device Rule (1)"
Configuration.DeviceRules.Add DeviceRule.Xml
Configuration.DeviceRules.Item("Device Rule (1)").Name = "My Device Rule"
Configuration.DeviceRules.Item("Device Rule (1)").SecurityLevel =
AM_SecurityLevel_AuditOnly
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'une règle de périphérique
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Supprimer "Règle de périphérique(1)"
Configuration.DeviceRules.Remove "Device Rule (1)"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Règles scriptées
Créer une règle scriptée
'Définitions de constante pour l'énumération AM.ExecutionContext.
const AM_ExecutionContext_PerSessionAsUser = 0
const AM_ExecutionContext_PerSessionAsSystem = 1
const AM_ExecutionContext_PerComputerAsSystem = 2
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer la règle scriptée.
Dim ScriptedRule
Set ScriptedRule = Configuration.CreateInstanceFromClassName("AM.ScriptedRule")
ScriptedRule.Name = "Scripted Rule (1)"
Configuration.ScriptedRules.Add ScriptedRule.Xml
Configuration.ScriptedRules.Item("Scripted Rule (1)").WaitForLogin = True
Configuration.ScriptedRules.Item("Scripted Rule (1)").Script = "Function
ScriptedRule()" & Chr(10) & "'Test scripted rule" & Chr(10) & "ScriptedRule=TRUE" &
Chr(10) & "End Function"
Configuration.ScriptedRules.Item("Scripted Rule (1)").EntryFunction = "ScriptedRule"
Configuration.ScriptedRules.Item("Scripted Rule (1)").Timeout = 6
Configuration.ScriptedRules.Item("Scripted Rule (1)").Context =
AM_ExecutionContext_PerSessionAsSystem
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'une règle scriptée
'Définitions de constante pour l'énumération AM.ExecutionContext.
const AM_ExecutionContext_PerSessionAsUser = 0
const AM_ExecutionContext_PerSessionAsSystem = 1
const AM_ExecutionContext_PerComputerAsSystem = 2
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer la règle scriptée.
Dim ScriptedRule
Set ScriptedRule = Configuration.CreateInstanceFromClassName("AM.ScriptedRule")
ScriptedRule.Name = "Scripted Rule (1)"
Configuration.ScriptedRules.Add ScriptedRule.Xml
Dim CurrentScriptedRule
For Each CurrentScriptedRule in Configuration.ScriptedRules
If CurrentScriptedRule.Name = "Règle scriptée (1)" Then
CurrentScriptedRule.Timeout = 7
End If
Suivant
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'une règle scriptée
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Supprimer la règle scriptée.
Configuration.ScriptedRules.Remove "Scripted Rule (1)"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Contrôle du navigateur (Browser Control)
Ajout d'un élément Redirection d'URL
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Les fichiers de configuration Application Manager portent l'extension de fichier aamp. Ce fichier contient un grand nombre de fichiers différents qui, tous ensemble,
'deviennent notre fichier de configuration. L'un d'eux est ConfigurationXml. Il s'agit du fichier où toutes les règles AM sont configurées.
'Cependant, le fichier aamp contient d'autres fichiers qui jouent un rôle plus mineur dans la configuration.
'Nous fournissons désormais une combinaison de routines Enregistrer/Charger, qui permet à l'utilisateur d'écraser le fichier configurationXml tout en préservant les
'autres fichiers, qui restent inchangés dans le fichier aamp. Les routines Charger/Enregistrer normales provoquent la création d'un nouveau fichier contenant uniquement configurationXml
'L'appel de la routine LoadLocalConfigurationHandleWithAuditing retransmet le fichier XML de configuration comme valeur de retour, mais également le XML d'audit
' et une valeur FileHandle.
'utiliser ce descripteur de fichier dans la routine d'enregistrement (save) équivalente et préserve les fichiers autres que fichiers de configuration dans le fichier aamp.
Dim FileHandle
Dim ConfigurationXml
Dim AuditingXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfigurationHandleWithAuditing(AuditingXml, FileHandle)
Configuration.ParseXML ConfigurationXml
'Créer un nouvel élément Redirection d'URL
Dim UrlItem
Set UrlItem = Configuration.CreateInstanceFromClassName("AM.URLRedirectionItem")
UrlItem.Path = "bbc.co.uk"
UrlItem.CustomRedirectionUrl = "http://www.ivanti.com"
UrlItem.RedirectToCustomUrl = True
UrlItem.UseRegularExpression = False
UrlItem.Description = "Ajouter une description ici"
'Ajouter l'élément Redirection d'URL au groupe Tout le monde
Configuration.GroupRules.Item("Everyone").UrlRedirectionURLs.Add UrlItem.xml
'Enregistre les fichiers ConfigurationXml et XML d'audit dans le fichier aamp de la configuration, tout en préservant tous les autres fichiers existants qui s'y trouvent.
ConfigurationHelper.SaveLiveConfigurationHandleWithAuditing Configuration.Xml, AuditingXml, FileHandle
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Configuration des propriétés
Paramètres de message
'Définitions de constante pour l'énumération AM.ANACMessageFrequencyType.
const AM_ANACMessageFrequencyType_EveryConnectionAttempt = 0
const AM_ANACMessageFrequencyType_Once = 1
const AM_ANACMessageFrequencyType_UseDelayBetweenMessages = 2
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Modifier les paramètres de message
Configuration.MessageSettings.AccessDeniedMessageCaption = "Warning"
Configuration.MessageSettings.AccessDeniedMessageBody = "File has been blocked"
Configuration.MessageSettings.ApplicationLimitsExceededMessageCaption = "Warning"
Configuration.MessageSettings.ApplicationLimitsExceededMessageBody = "Too many files"
Configuration.MessageSettings.DisplayInitialWarningMessage = False
Configuration.MessageSettings.CloseApplication = False
Configuration.MessageSettings.TerminateApplication = False
Configuration.MessageSettings.WaitTime = 120
Configuration.MessageSettings.TimeLimitsWarningMessageCaption = "Warning"
Configuration.MessageSettings.TimeLimitsWarningMessageBody = "Out of time"
Configuration.MessageSettings.TimeLimitsDeniedMessageCaption = "Warning"
Configuration.MessageSettings.TimeLimitsDeniedMessageBody = "Wrong time"
Configuration.MessageSettings.SelfAuthorizationMessageCaption = "Warning"
Configuration.MessageSettings.SelfAuthorizationMessageBody = "Needs authorization"
Configuration.MessageSettings.SelfAuthorizationResponseCaption = "Authorized File"
Configuration.MessageSettings.SelfAuthorizationResponseBody = "File is now authorized."
Configuration.MessageSettings.ANACMessageBoxEnabled = True
Configuration.MessageSettings.ANACMessageFrequency =
AM_ANACMessageFrequencyType_Once
Configuration.MessageSettings.ANACMessageDelayBetweenMessageBoxes = 60
Configuration.MessageSettings.ANACMessageBoxCaption = "Application Manager -
Application Network Access Control"
Configuration.MessageSettings.ANACMessageBoxBody = "%ExecutableName% has been denied access to %NetworkLocation%."
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Options d'archive
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Modifier les paramètres d'archivage
Dim ArchiveFolder
Set ArchiveFolder = Configuration.CreateInstanceFromClassName("AM.ArchiveFolder")
ArchiveFolder.Path = "C:\ArchiveBackup"
Set ArchiveFolder =
Configuration.ArchivingSettings.ArchiveFolders.InsertBefore(ArchiveFolder.Xml, 1)
Configuration.ArchivingSettings.ArchivingEnabled = True
Configuration.ArchivingSettings.AnonymousEnabled = True
Configuration.ArchivingSettings.UserLimit = 26
Configuration.ArchivingSettings.TotalLimit = 51
Configuration.ArchivingSettings.NoAdminOwnedFiles = True
Configuration.ArchivingSettings.OverwriteExistingFiles = False
Configuration.ArchivingSettings.ArchiveLessThanEnabled = True
Configuration.ArchivingSettings.OverwriteOldest = True
Configuration.ArchivingSettings.ArchiveLessThanAmount = 10
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Arrêt d'application
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Modifier les paramètres Arrêt d'application
Configuration.ApplicationTerminationSettings.Enabled = True
Configuration.ApplicationTerminationSettings.DisplayInitialWarningMessage = True
Configuration.ApplicationTerminationSettings.CloseApplication = True
Configuration.ApplicationTerminationSettings.TerminateApplication = True
Configuration.ApplicationTerminationSettings.WaitTime = 60
'Modifier les déclencheurs Arrêt d'application
Configuration.ApplicationTerminationSettings.Triggers.TerminateOnConfigurationChange = True
Configuration.ApplicationTerminationSettings.Triggers.TerminateOnComputerIPAddressChanged = False
Configuration.ApplicationTerminationSettings.Triggers.TerminateOnConnectingDeviceChanged = True
'Modifier les messages Arrêt d'application
Configuration.MessageSettings.ApplicationTerminationMessages.ConfigAppliedWarningMessageCaption = "New Configuration Applied Message Caption"
Configuration.MessageSettings.ApplicationTerminationMessages.ConfigAppliedWarningMessageBody = "New Configuration Applied Message Body"
'Les autres objets Message d'arrêt sont les suivants :
'
' ConfigAppliedTerminateMessageCaption
' ConfigAppliedTerminateMessageBody
' IPAddressChangedWarningMessageCaption
' IPAddressChangedWarningMessageBody
' IPAddressChangedTerminateMessageCaption
' IPAddressChangedTerminateMessageBody
' ConnectingDeviceChangedWarningMessageCaption
' ConnectingDeviceChangedWarningMessageBody
' ConnectingDeviceChangedTerminateMessageCaption
' ConnectingDeviceChangedTerminateMessageBody
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Ajout d'une clé d'ingénierie
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Ajouter une clé d'ingénierie
Dim EngineeringKey
Set EngineeringKey = Configuration.CreateInstanceFromClassName("AM.EngineeringKey")
EngineeringKey.Name = "UrmSecPolicy"
EngineeringKey.Value = "1"
Configuration.EngineeringKeys.Add EngineeringKey.Xml
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Connexions réseau
Ajouter une connexion réseau
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Ajouter une connexion à la liste des connexions accessibles.
Dim AccessibleConn
Set AccessibleConn =
Configuration.CreateInstanceFromClassName("AM.NetworkConnection")
AccessibleConn.Path = "www.google.com:80/foo/*"
AccessibleConn.Address = "www.google.com"
AccessibleConn.Port = 80
AccessibleConn.Resource = "/foo/*"
AccessibleConn.UseWildcards = True
AccessibleConn.AddressType = 0
Configuration.GroupRules.Item("Everyone").AccessibleNetworkConnections.Add
AccessibleConn.Xml
'Ajouter une connexion à la liste des connexions interdites.
Dim ProhibitedConn
Set ProhibitedConn =
Configuration.CreateInstanceFromClassName("AM.NetworkConnection")
ProhibitedConn.Path = "www.facebook.com"
ProhibitedConn.AddressType = 0
ProhibitedConn.Description = "www.facebook.com"
Configuration.GroupRules.Item("Everyone").ProhibitedNetworkConnections.Add
ProhibitedConn.Xml
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'une connexion réseau
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Modifier le numéro de port de la connexion réseau
Configuration.GroupRules.Item("Everyone").AccessibleNetworkConnections.Item("www.goo
gle.com:80/foo/*").Port = 8080
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'une connexion réseau
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Supprimer la connexion réseau
Configuration.GroupRules.Item("Everyone").ProhibitedNetworkConnections.Remove
"www.facebook.com"
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Règles de processus
Création d'une règle de processus
Création d'une règle de processus
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer une règle de processus
Dim ProcessRule
Set ProcessRule = Configuration.CreateInstanceFromClassName("AM.ProcessRule")
ProcessRule.Name = "Règle de processus (1)"
Configuration.ProcessRules.Add ProcessRule.Xml
'Ajouter un fichier de processus à la règle
Dim FileProcess
Set FileProcess = Configuration.CreateInstanceFromClassName("AM.File")
FileProcess.Path = "c:\windows\system32\notepad.exe"
FileProcess.CommandLine = "c:\windows\system32\notepad.exe"
Configuration.ProcessRules.Item("Process Rule (1)").FileProcessItems.AddFileProcess.Xml
'Ajouter un autre fichier à la règle
Dim AnotherFile
Set AnotherFile = Configuration.CreateInstanceFromClassName("AM.File")
AnotherFile.Path = "c:\windows\system32\cmd.exe"
AnotherFile.CommandLine = "c:\windows\system32\cmd.exe"
Configuration.ProcessRules.Item("Process Rule (1)").FileProcessItems.AddAnotherFile.Xml
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'une règle de processus
'Définitions de constante pour l'énumération AM.SecurityLevel.
const AM_SecurityLevel_Restricted = 0
const AM_SecurityLevel_SelfAuthorizing = 1
const AM_SecurityLevel_Unrestricted = 2
const AM_SecurityLevel_AuditOnly = 3
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
Configuration.ProcessRules.Item("Process Rule (1)").Name = "My Process Rule"
Configuration.ProcessRules.Item("My Process Rule").SecurityLevel =
AM_SecurityLevel_AuditOnly
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'une règle de processus
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Supprimer "Règle de processus(1)"
Configuration.ProcessRules.Remove "Process Rule (1)"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Éléments Liste des règles
Ajout d'un fichier
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Ajouter un fichier à la liste des fichiers accessibles.
Dim AccessibleFile
Set AccessibleFile = Configuration.CreateInstanceFromClassName("AM.File")
AccessibleFile.Path = "calc.exe"
AccessibleFile.Commandline = "calc.exe"
Configuration.GroupRules.Item("Everyone").AccessibleFiles.Add AccessibleFile.Xml
'Ajouter un fichier à la liste des fichiers interdits.
Dim ProhibitedFile
Set ProhibitedFile = Configuration.CreateInstanceFromClassName("AM.File")
ProhibitedFile.Path = "regedit.exe"
ProhibitedFile.CommandLine = "regedit.exe"
Configuration.GroupRules.Item("Everyone").ProhibitedFiles.Add ProhibitedFile.Xml
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'un fichier
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Modifier calc.exe.
Configuration.GroupRules.Item("Everyone").AccessibleFiles.Item("calc.exe").TrustedOw
nershipChecking = False
Configuration.GroupRules.Item("Everyone").AccessibleFiles.Item("calc.exe").Applicati
onLimit = 5
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'un fichier
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Supprimer les fichiers
Configuration.GroupRules.Item("Everyone").AccessibleFiles.Remove "calc.exe"
Configuration.GroupRules.Item("Everyone").ProhibitedFiles.Remove "regedit.exe"
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Ajout d'un dossier
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
Dim AccessibleFolder
Set AccessibleFolder = Configuration.CreateInstanceFromClassName("AM.Folder")
AccessibleFolder.Path = "%ALLUSERSPROFILE%"
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Add AccessibleFolder.Xml
Dim ProhibitedFolder
Set ProhibitedFolder = Configuration.CreateInstanceFromClassName("AM.Folder")
ProhibitedFolder.Path = "%SystemDrive%\Utilities"
Configuration.GroupRules.Item("Everyone").ProhibitedFolders.Add ProhibitedFolder.Xml
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'un dossier
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).Recursive = False
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).AccessTimes.MondayTimeRangeCollection.Clear()
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).AccessTimes.TuesdayTimeRangeCollection.Clear()
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).AccessTimes.WednesdayTimeRangeCollection.Clear()
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).AccessTimes.ThursdayTimeRangeCollection.Clear()
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).AccessTimes.FridayTimeRangeCollection.Clear()
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).AccessTimes.SaturdayTimeRangeCollection.Clear()
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).AccessTimes.SundayTimeRangeCollection.Clear()
Dim TimeRange
Set TimeRange = Configuration.CreateInstanceFromClassName("AM.TimeRange")
TimeRange.StartHour = 9
TimeRange.EndHour = 13
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).AccessTimes.MondayTimeRangeCollection.InsertBefore TimeRange.Xml, 0
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Item("%ALLUSERSPROFILE%"
).ApplyAccessTimes = True
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'un dossier
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Supprimer le dossier accessible
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Remove
"%ALLUSERSPROFILE%"
'Supprimer le dossier interdit
Configuration.GroupRules.Item("Everyone").ProhibitedFolders.Remove
"%SystemDrive%\Utilities"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Ajout d'une signature numérique
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer un nouvel élément Signature
Dim SignatureFile
Set SignatureFile = Configuration.CreateInstanceFromClassName("AM.SignatureFile")
SignatureFile.SHA1Hash =
ConfigurationHelper.ReadSha1HashFromFile("C:\WINDOWS\regedit.exe")
SignatureFile.Path = "C:\WINDOWS\regedit.exe"
SignatureFile.CommandLine = SignatureFile.SHA1Hash
'Ajouter la signature à la règle
Configuration.GroupRules.Item("Everyone").AccessibleSignatures.Add SignatureFile.Xml
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'une signature numérique
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Les signatures numériques sont gérées via la ligne de commande (CommandLine), qui contient le hachage SHA1.
Vous devez donc obtenir
la valeur de hachage pour accéder à l'élément voulu.
Dim sha1Hash
sha1Hash = ConfigurationHelper.ReadSha1HashFromFile("C:\WINDOWS\regedit.exe")
Configuration.GroupRules.Item("Everyone").AccessibleSignatures.Item(sha1Hash).ApplyAccessTimes
= False
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'une signature numérique
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Les signatures numériques sont gérées via le hachage SHA1. Vous devez donc obtenir la valeur de hachage pour
accéder à l'élément voulu.
Dim sha1Hash
sha1Hash = ConfigurationHelper.ReadSha1HashFromFile("C:\WINDOWS\regedit.exe")
Configuration.GroupRules.Item("Everyone").AccessibleSignatures.Remove sha1Hash
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Ajout et suppression de lecteurs
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Ajouter le premier lecteur
Dim FirstDrive
Set FirstDrive = Configuration.CreateInstanceFromClassName("AM.Drive")
FirstDrive.Path = "H"
Configuration.GroupRules.Item("Everyone").AccessibleDrives.Add FirstDrive.Xml
'Ajouter un second lecteur
Dim SecondDrive
Set SecondDrive = Configuration.CreateInstanceFromClassName("AM.Drive")
SecondDrive.Path = "I"
Configuration.GroupRules.Item("Everyone").AccessibleDrives.Add SecondDrive.Xml
'Supprimer le premier lecteur ajouté
Configuration.GroupRules.Item("Everyone").AccessibleDrives.Remove "H"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Ajout d'un fournisseur de confiance
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Utiliser l'objet d'aide (helper) pour lire le certificat depuis le fichier signé
Dim CertificateData
CertificateData = ConfigurationHelper.ReadCertificateFromFile("C:\Program
Files\Internet Explorer\iexplore.exe", 0)
Dim DigitalCertificate
Set DigitalCertificate =
Configuration.CreateInstanceFromClassName("AM.DigitalCertificate")
DigitalCertificate.RawCertificateData = CertificateData
DigitalCertificate.Description = "Microsoft Corporation - Internet Explorer
Certificat"
Set DigitalCertificate =
Configuration.GroupRules.Item("Everyone").TrustedVendors.Add(DigitalCertificate.Xml)
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Ajout d'un fournisseur de confiance et de la date d'expiration de son certificat
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Utiliser l'objet d'aide (helper) pour lire le certificat et la date d'expiration depuis le fichier signé
Dim CertificateData
Dim dtMyDate
CertificateData = ConfigurationHelper.ReadCertificateDateFromFile("C:\Program
Files\Internet Explorer\iexplore.exe", 0, dtMyDate)
'Ajouter les informations de certificat à la configuration
Dim DigitalCertificate
Set DigitalCertificate =
Configuration.CreateInstanceFromClassName("AM.DigitalCertificate")
DigitalCertificate.RawCertificateData = CertificateData
DigitalCertificate.Description = "Microsoft Corporation - Internet Explorer
Certificat"
DigitalCertificate.ExpiryDate = dtMyDate
Set DigitalCertificate =
Configuration.GroupRules.Item("Everyone").TrustedVendors.Add(DigitalCertificate.Xml)
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'un fournisseur de confiance
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Utiliser l'objet d'aide (helper) pour lire le certificat depuis le fichier signé
Dim CertificateData
CertificateData = ConfigurationHelper.ReadCertificateFromFile("C:\Program
Files\Internet Explorer\iexplore.exe", 0)
Configuration.GroupRules.Item("Everyone").TrustedVendors.Item(CertificateData).Enfor
ceExpiryDate = True
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'un fournisseur de confiance
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Utiliser l'objet d'aide (helper) pour lire le certificat depuis le fichier signé
Dim CertificateData
CertificateData = ConfigurationHelper.ReadCertificateFromFile("C:\Program
Files\Internet Explorer\iexplore.exe", 0)
Configuration.GroupRules.Item("Everyone").TrustedVendors.Remove CertificateData
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Gestion des groupes
Ajout de groupes Bibliothèque
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer un nouveau groupe dans la bibliothèque
Dim LibraryGroup
Set LibraryGroup = Configuration.CreateInstanceFromClassName("AM.ApplicationGroup")
LibraryGroup.Path = "Common Applications"
Dim CommonFile
Set CommonFile = Configuration.CreateInstanceFromClassName("AM.File")
CommonFile.Path = "calc.exe"
CommonFile.Commandline = "calc.exe"
LibraryGroup.Files.Add CommonFile.Xml
Dim NotepadFile
Set NotepadFile = Configuration.CreateInstanceFromClassName("AM.File")
NotepadFile.Path = "notepad.exe"
NotepadFile.Commandline = "notepad.exe"
LibraryGroup.Files.Add NotepadFile.Xml
Configuration.ApplicationGroups.Add LibraryGroup.Xml
'Enregistrer la configuration dans un fichier.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Utilisation de groupes Bibliothèque
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Utiliser un groupe Bibliothèque existant dans les règles
Dim GroupReference
Set GroupReference =
Configuration.CreateInstanceFromClassName("AM.ApplicationGroupReference")
GroupReference.Group = "Applications communes"
GroupReference.TrustedOwnershipChecking = "True"
GroupReference.Path = "Applications communes"
Configuration.GroupRules.Item("Everyone").ProhibitedApplicationGroups.Add
GroupReference.Xml
'Enregistrer la configuration dans un fichier.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Gestion des privilèges utilisateur
Modification de stratégies UPM
'Options d'action de groupe URM
const AM_URMGroupAction_Add = 0
const AM_URMGroupAction_Drop = 1
'Actions de privilège URM
const AM_URMPrivilegeAction_NoChange = 0
const AM_URMPrivilegeAction_Enable = 1
const AM_URMPrivilegeAction_Disable = 2
const AM_URMPrivilegeAction_Remove = 3
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
Configuration.URMPolicies("Add
Administrator").PrivilegeActions("SeBackupPrivilege").Action =
AM_URMPrivilegeAction_Enable
Configuration.URMPolicies("Add
Administrator").GroupMembershipActions("BUILTIN\Administrators").Action =
AM_URMGroupAction_Drop
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression de stratégies UPM
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
Configuration.URMPolicies.Remove "Add Administrator"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Ajout d'un fichier de privilèges utilisateur
Modification d'un fichier de privilèges utilisateur
Suppression d'un fichier de privilèges utilisateur
Suppression du composant Privilèges utilisateur (User Privileges)
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMWellKnownControlPanelApplets.Remove
"cplClock"
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Audits
Enregistrement dans un fichier avec fichier d'audit
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration par défaut
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.DefaultConfiguration
Configuration.ParseXML ConfigurationXml
Dim AuditingFile
AuditingFile = "c:\Auditing.xml"
ConfigurationHelper.SaveLocalConfigurationWithAuditingFile
"C:\Configuration.aamp",Configuration.Xml,AuditingFile
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Enregistrement comme élément actif avec fichier d'audit
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration par défaut
Configuration.ParseXML ConfigurationHelper.DefaultConfiguration
'Enregistrer la configuration vide dans un fichier.
Dim AuditingFile
AuditingFile = "c:\Auditing.xml"
ConfigurationHelper.SaveLiveConfigurationWithAuditingFile
Configuration.Xml,AuditingFile
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Chargement d'un fichier avec audit
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
Dim AuditingXml
ConfigurationXml =
ConfigurationHelper.LoadLiveConfigurationWithAuditing(AuditingXml)
Configuration.ParseXML ConfigurationXml
'Modifier certains paramètres
Configuration.DefaultRules.AllowCMDForBatchFiles = False
Configuration.DefaultRules.ValidateSystemProcesses = False
'Enregistrer la configuration dans un fichier.
ConfigurationHelper.SaveLiveConfigurationWithAuditing Configuration.Xml, AuditingXml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Chargement de l'élément actif avec audit
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
Dim AuditingXml
ConfigurationXml =
ConfigurationHelper.LoadLocalConfigurationWithAuditing("c:\Configuration.aamp",Audit
ingXml)
Configuration.ParseXML ConfigurationXml
'Modifier les paramètres
Configuration.DefaultRules.AllowCMDForBatchFiles = False
Configuration.DefaultRules.ValidateSystemProcesses = False
'Enregistrer la configuration dans un fichier.
ConfigurationHelper.SaveLocalConfigurationWithAuditing
"C:\UpdatedConfiguration.aamp",Configuration.Xml, AuditingXml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Fonctions supplémentaires de chargement et d'enregistrement
Chargement d'un descripteur de configuration locale avec audit
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
Dim AuditingXml
Dim FileHandle
'Les fichiers de configuration Application Manager portent l'extension de fichier aamp. Ce fichier contient un grand nombre de fichiers différents qui, tous ensemble,
'deviennent notre fichier de configuration. L'un d'eux est ConfigurationXml. Il s'agit du fichier où toutes les règles AM sont configurées.
'Cependant, le fichier aamp contient d'autres fichiers qui jouent un rôle plus mineur dans la configuration.
'Nous fournissons désormais une combinaison de routines Enregistrer/Charger, qui permet à l'utilisateur d'écraser le fichier configurationXml tout en préservant les
'autres fichiers, qui restent inchangés dans le fichier aamp. Les routines Charger/Enregistrer normales provoquent la création d'un nouveau fichier contenant uniquement configurationXml
'L'appel de la routine LoadLocalConfigurationHandleWithAuditing retransmet le fichier XML de configuration comme valeur de retour, mais également le XML d'audit
' et une valeur FileHandle.
'utiliser ce descripteur de fichier dans la routine d'enregistrement (save) équivalente et préserve les fichiers autres que fichiers de configuration dans le fichier aamp.
ConfigurationXml =
ConfigurationHelper.LoadLocalConfigurationHandleWithAuditing("c:\temp\configuration.aamp", AuditingXml, FileHandle)
Configuration.ParseXML ConfigurationXml
Configuration.DefaultRules.AllowCMDForBatchFiles = True
Configuration.DefaultRules.ValidateSystemProcesses = True
'Enregistre les fichiers ConfigurationXml et XML d'audit dans le fichier aamp de la configuration, tout en préservant tous les autres fichiers existants qui s'y trouvent.
ConfigurationHelper.SaveLocalConfigurationHandleWithAuditing
"c:\temp\configuration.aamp", Configuration.Xml, AuditingXml, FileHandle
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Chargement d'un descripteur de configuration active avec audit
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
Dim AuditingXml
Dim FileHandle
'Les fichiers de configuration Application Manager portent l'extension de fichier aamp. Ce fichier contient un grand nombre de fichiers différents qui, tous ensemble,
'deviennent notre fichier de configuration. L'un d'eux est ConfigurationXml. Il s'agit du fichier où toutes les règles AM sont configurées.
'Cependant, le fichier aamp contient d'autres fichiers qui jouent un rôle plus mineur dans la configuration.
'Nous fournissons désormais une combinaison de routines Enregistrer/Charger, qui permet à l'utilisateur d'écraser le fichier configurationXml tout en préservant les
'autres fichiers, qui restent inchangés dans le fichier aamp. Les routines Charger/Enregistrer normales provoquent la création d'un nouveau fichier contenant uniquement configurationXml
'L'appel de la routine LoadLiveConfigurationHandleWithAuditing retransmet le fichier XML de configuration active comme valeur de retour, mais également le XML d'audit
' et une valeur FileHandle.
'utiliser ce descripteur de fichier dans la routine d'enregistrement (save) équivalente et préserve les fichiers autres que fichiers de configuration dans le fichier aamp.
ConfigurationXml = ConfigurationHelper.LoadLiveConfigurationHandleWithAuditing(
AuditingXml, FileHandle)
Configuration.ParseXML ConfigurationXml
Configuration.DefaultRules.AllowCMDForBatchFiles = True
Configuration.DefaultRules.ValidateSystemProcesses = True
'Enregistre les fichiers ConfigurationXml et XML d'audit dans la configuration active, tout en préservant tous les autres fichiers existants.
ConfigurationHelper.SaveLiveConfigurationHandleWithAuditing Configuration.Xml,
AuditingXml, FileHandle
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Chargement d'un descripteur de configuration locale sans audit
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
Dim AuditingXml
Dim FileHandle
'Les fichiers de configuration Application Manager portent l'extension de fichier aamp. Ce fichier contient un grand nombre de fichiers différents qui, tous ensemble,
'deviennent notre fichier de configuration. L'un d'eux est ConfigurationXml. Il s'agit du fichier où toutes les règles AM sont configurées.
'Cependant, le fichier aamp contient d'autres fichiers qui jouent un rôle plus mineur dans la configuration.
'Nous fournissons désormais une combinaison de routines Enregistrer/Charger, qui permet à l'utilisateur d'écraser le fichier configurationXml tout en préservant les
'autres fichiers, qui restent inchangés dans le fichier aamp. Les routines Charger/Enregistrer normales provoquent la création d'un nouveau fichier contenant uniquement configurationXml
'L'appel de la routine LoadLocalConfigurationHandle retransmet le fichier XML de configuration comme valeur de retour, mais également un descripteur de fichier (FileHandle).
'utiliser ce descripteur de fichier dans la routine d'enregistrement (save) équivalente et préserve les fichiers autres que fichiers de configuration
qui restent inchangés dans le fichier aamp.
ConfigurationXml =
ConfigurationHelper.LoadLocalConfigurationHandle("c:\temp\configuration.aamp",
FileHandle)
Configuration.ParseXML ConfigurationXml
Configuration.DefaultRules.AllowCMDForBatchFiles = True
Configuration.DefaultRules.ValidateSystemProcesses = True
'Enregistre le fichier ConfigurationXml dans la configuration spécifiée, tout en préservant tous les autres fichiers du descripteur de fichier (FileHandle).
ConfigurationHelper.SaveLocalConfigurationHandle "c:\temp\configuration.aamp",
Configuration.Xml, FileHandle
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Chargement d'un descripteur de configuration active sans audit
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
Dim AuditingXml
Dim FileHandle
'Les fichiers de configuration Application Manager portent l'extension de fichier aamp. Ce fichier contient un grand nombre de fichiers différents qui, tous ensemble,
'deviennent notre fichier de configuration. L'un d'eux est ConfigurationXml. Il s'agit du fichier où toutes les règles AM sont configurées.
'Cependant, le fichier aamp contient d'autres fichiers qui jouent un rôle plus mineur dans la configuration.
'Nous fournissons désormais une combinaison de routines Enregistrer/Charger, qui permet à l'utilisateur d'écraser le fichier configurationXml tout en préservant les
'autres fichiers, qui restent inchangés dans le fichier aamp. Les routines Charger/Enregistrer normales provoquent la création d'un nouveau fichier contenant uniquement configurationXml
'L'appel de la routine LoadLiveConfigurationHandle retransmet le fichier XML de configuration active comme valeur de retour, mais également un descripteur de fichier (FileHandle).
'utiliser ce descripteur de fichier dans la routine d'enregistrement (save) équivalente et préserve les fichiers autres que fichiers de configuration dans le fichier aamp.
ConfigurationXml = ConfigurationHelper.LoadLiveConfigurationHandle(FileHandle)
Configuration.ParseXML ConfigurationXml
Configuration.DefaultRules.AllowCMDForBatchFiles = True
Configuration.DefaultRules.ValidateSystemProcesses = True
'Enregistre le fichier ConfigurationXml dans la configuration active, tout en préservant tous les autres fichiers existants.
ConfigurationHelper.SaveLiveConfigurationHandle Configuration.Xml, FileHandle
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Ajout de fichiers et dossiers avec métadonnées
Ajout de fichiers et dossiers avec métadonnées
'Créer un élément Fichier avec des métadonnées qui seront utilisées plus loin dans le script
'
Set FileWithMetadata = Configuration.CreateInstanceFromClassName("AM.File")
'Définir le fichier proprement dit
FileWithMetadata.Path = "MetadataFile.exe"
'Définir une clé unique pour cet élément dans la collection à laquelle il est ajouté
FileWithMetadata.Commandline = "MetadataFile.exe"
'Définir des propriétés de métadonnées
FileWithMetadata.Metadata.ProductVersionMinimum = "*.*.*.*"
FileWithMetadata.Metadata.ProductVersionMinimumEnabled = True
FileWithMetadata.Metadata.ProductVersionMaximum = "*.*.*.*"
FileWithMetadata.Metadata.ProductVersionMaximumEnabled = True
FileWithMetadata.Metadata.FileVersionMinimum = "*.*.*.*"
FileWithMetadata.Metadata.FileVersionMinimumEnabled = True
FileWithMetadata.Metadata.FileVersionMaximum = "*.*.*.*"
FileWithMetadata.Metadata.FileVersionMaximumEnabled = True
FileWithMetadata.Metadata.VendorName = "VEND"
FileWithMetadata.Metadata.VendorNameEnabled = True
FileWithMetadata.Metadata.ProductName = "PROD"
FileWithMetadata.Metadata.ProductNameEnabled = True
FileWithMetadata.Metadata.CompanyName = "COMP"
FileWithMetadata.Metadata.CompanyNameEnabled = True
FileWithMetadata.Metadata.FileDescription = "DESC"
FileWithMetadata.Metadata.FileDescriptionEnabled = True
'Créer un élément Dossier avec des métadonnées qui seront utilisées plus loin dans le script
'
Set FolderWithMetadata = Configuration.CreateInstanceFromClassName("AM.Folder")
'Définir une clé unique pour cet élément dans la collection à laquelle il est ajouté
FolderWithMetadata.ItemKey = "c:\MetadataFolder"
'Définir le dossier proprement dit
FolderWithMetadata.Path = "c:\MetadataFolder"
'Définir des propriétés de métadonnées
FolderWithMetadata.Metadata.VendorName = "VEND"
FolderWithMetadata.Metadata.VendorNameEnabled = True
'Ajouter un fichier à la liste des fichiers accessibles.
Configuration.GroupRules.Item("Everyone").AccessibleFiles.Add FileWithMetadata.Xml
'Ajouter l'élément Fichier à une règle URM
'
'Créer l'élément URM
Set URMFile = Configuration.CreateInstanceFromClassName("AM.URMRuleItemPolicy")
'Configurer l'élément URM avec les détails du fichier accessible créé plus tôt
URMFile.KeyPath = FileWithMetadata.Commandline
URMFile.Application = FileWithMetadata.Xml
'Définir la stratégie URM à appliquer
URMFile.Policy.Policy = "Add Administrator"
'Ajouter l'élément URM
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMFiles.Add URMFile.xml
'Ajouter un dossier à la liste des dossiers accessibles.
Configuration.GroupRules.Item("Everyone").AccessibleFolders.Add FolderWithMetadata.Xml
'Ajouter l'élément Dossier à une règle URM
'
'Créer l'élément URM
Set URMFolder = Configuration.CreateInstanceFromClassName("AM.URMRuleItemPolicy")
'Configurer l'élément URM avec les détails du dossier accessible créé plus tôt
URMFolder.KeyPath = FolderWithMetadata.ItemKey
URMFolder.Application = FolderWithMetadata.Xml
'Définir la stratégie URM à appliquer
URMFolder.Policy.Policy = "Add Administrator"
'Ajouter l'élément URM
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMFolders.Add URMFolder.xml
'Règle de processus avec configuration de métadonnées pour le processus spécifique
'
'Créer une nouvelle règle de processus
Set ProcessRule = Configuration.CreateInstanceFromClassName("AM.ProcessRule")
ProcessRule.Name = "Règle de processus avec métadonnées"
'Ajouter un fichier de processus à la règle
ProcessRule.FileProcessItems.Add FileWithMetadata.Xml
'Ajouter la règle de processus
Configuration.ProcessRules.Add ProcessRule.Xml
'Enregistrer la configuration active.
'
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Applis Windows Store
Ajout d'une appli Windows Store
const AM_VersionMatching_andabove = 0
const AM_VersionMatching_andbelow = 1
const AM_VersionMatching_exactly = 2
const AM_VersionMatching_allversions = 3
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Interdire toutes les applis Windows Store
Dim BlockAllApps
Set BlockAllApps = Configuration.CreateInstanceFromClassName("AM.WindowsStoreApp")
BlockAllApps.DisplayName = "* * Toutes les applis installées * *"
BlockAllApps.PackageName = "*"
BlockAllApps.PublisherID = "*"
BlockAllApps.Publisher = "*"
BlockAllApps.PackageVersion = "1.0.0.0"
BlockAllApps.VersionMatch = AM_VersionMatching_allversions
BlockAllApps.Path = "*_*_1.0.0.0"
Configuration.GroupRules.Item("Everyone").ProhibitedWindowsStoreApps.Add
BlockAllApps.Xml
'Ajouter une appli Windows Store à la liste des connexions accessibles.
Dim AccessibleApp
Set AccessibleApp = Configuration.CreateInstanceFromClassName("AM.WindowsStoreApp")
AccessibleApp.DisplayName = "Skype"
AccessibleApp.PackageName = "Microsoft.SkypeApp"
AccessibleApp.PublisherID = "kzf8qxf38zg5c"
AccessibleApp.Publisher = "CN=Skype Software Sarl, O=Microsoft Corporation,
L=Luxembourg, S=Luxembourg, C=LU"
AccessibleApp.PackageVersion = "3.1.0.1007"
AccessibleApp.VersionMatch = AM_VersionMatching_andabove
AccessibleApp.Path = "kzf8qxf38zg5c_Microsoft.SkypeApp_3.1.0.1007"
Configuration.GroupRules.Item("Everyone").AccessibleWindowsStoreApps.Add AccessibleApp.Xml
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'une appli Windows Store
const AM_VersionMatching_andabove = 0
const AM_VersionMatching_andbelow = 1
const AM_VersionMatching_exactly = 2
const AM_VersionMatching_allversions = 3
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Modifier la mise en correspondance des versions
Configuration.GroupRules.Item("Everyone").AccessibleWindowsStoreApps.Item("kzf8qxf38zg5c_Microsoft.SkypeApp_3.1.0.1007").VersionMatch
= AM_VersionMatching_allversions
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'une appli Windows Store
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Supprimer Skype
Configuration.GroupRules.Item("Everyone").AccessibleWindowsStoreApps.Remove "kzf8qxf38zg5c_Microsoft.SkypeApp_3.1.0.1007"
'Enregistrer la configuration active.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Contrôles système
Ajout de contrôles système
'BuiltinActions
const AM_ControlPanelURMPolicy_BuiltinElevate = 0
const AM_ControlPanelURMPolicy_BuiltinRestrict = 1
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
Dim AuditingXml
Dim FileHandle
ConfigurationXml = ConfigurationHelper.LoadLiveConfigurationHandle(FileHandle)
Configuration.ParseXML ConfigurationXml
Dim UninstallItem
Set UninstallItem = Configuration.CreateInstanceFromClassName("AM.UninstallControl")
UninstallItem.Path = "Ivanti Application Manager"
UninstallItem.DisplayName = "Ivanti Application Manager"
UninstallItem.Publisher = "Ivanti"
UninstallItem.Version = "8.9.*"
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMUninstallControls.Add
UninstallItem.Xml
Dim EventlogItem
Set EventlogItem = Configuration.CreateInstanceFromClassName("AM.EventlogControl")
EventlogItem.Path = "Application"
EventlogItem.LogName = "Application"
EventlogItem.Policy = AM_ControlPanelURMPolicy_BuiltinElevate
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMEventlogControls.Add
EventlogItem.Xml
Dim ServiceItem
Set ServiceItem = Configuration.CreateInstanceFromClassName("AM.ServiceControl")
ServiceItem.Path = "Agent Ivanti Application Manager"
ServiceItem.ServiceDisplayName = "Agent Ivanti Application Manager"
ServiceItem.ServiceName = "*"
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMServiceControls.Add
ServiceItem.Xml
'Enregistrer la configuration dans un fichier.
ConfigurationHelper.SaveLiveConfigurationHandle Configuration.Xml, FileHandle
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Fichiers d'auto-élévation
Ajout de fichiers d'auto-élévation
'Définitions de constante pour l'énumération AM.SelfElevationFilterMode.
const AM_SelfElevationFilterMode_AllowAllExcept = 0
const AM_SelfElevationFilterMode_DenyAllExcept = 1
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration par défaut
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.DefaultConfiguration
Configuration.ParseXML ConfigurationXml
'Créer un fichier à ajouter aux fichiers d'auto-élévation pour le groupe "Tout le monde"
Dim SelfElevationFile
Set SelfElevationFile = Configuration.CreateInstanceFromClassName("AM.File")
SelfElevationFile.Path = "calc.exe"
SelfElevationFile.Commandline = "calc.exe"
'Ajouter un fichier à l'onglet Auto-élévation sous Droits utilisateur, pour le groupe "Tout le monde"
Configuration.GroupRules.Item("Everyone").SelfElevationRules.SelfElevationFiles.Add
SelfElevationFile.Xml
'Activer l'auto-élévation
Configuration.GroupRules.Item("Everyone").SelfElevationRules.SelfElevationEnabled
= true
'Activer l'option Appliquer Auto-élévation uniquement aux éléments de la liste
Configuration.GroupRules.Item("Everyone").SelfElevationRules.Filtermode = AM_SelfElevationFilterMode_DenyAllExcept
'Marquer les fichiers comme éléments accessibles
Configuration.GroupRules.Item("Everyone").SelfElevationRules.MakeAccessible = true
'Appliquer les droits utilisateur pour les processus enfant
Configuration.GroupRules.Item("Everyone").SelfElevationRules.ApplyToChildProcesses
= true
'Autoriser le fichier à s'exécuter même s'il n'appartient pas à un propriétaire de confiance
Configuration.GroupRules.Item("Everyone").SelfElevationRules.TrustedOwnershipChecking=
true
'Appliquer aux boîtes de dialogue communes
Configuration.GroupRules.Item("Everyone").SelfElevationRules.ApplyToOpenSave = true
'Installer en tant que propriétaire de confiance
Configuration.GroupRules.Item("Everyone").SelfElevationRules.ChangeOwnershipToAdmin
= true
'Enregistrer la configuration n sur disque
ConfigurationHelper.SaveLocalConfiguration "C:\Configuration.aamp",Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Demandes de changement de stratégie
Configuration de paramètres de demande de changement de stratégie
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Modifer les paramètres de changement de config à la demande
'Activer la fonction globale
Configuration.OnDemandConfigChangeSettings.OnDemandEnabled = True
'Activer l'option Demandes par e-mail
Configuration.OnDemandConfigChangeSettings.EmailRequestsEnabled = True
Configuration.OnDemandConfigChangeSettings.MailToAddress = "[email protected]"
'Activer les demandes urgentes
Configuration.OnDemandConfigChangeSettings.EmergencyRequestsEnabled = True
Configuration.OnDemandConfigChangeSettings.HelpDeskPhoneNumber = "0800 900 9000"
Dim key
key = ConfigurationHelper.EncryptSharedKey("hello chris")
Configuration.OnDemandConfigChangeSettings.SharedKey = key
'Configurer un lien depuis le message AMMessage
Configuration.OnDemandConfigChangeSettings.RequestMethods.AllowLinkFromAMDenied =
True
Configuration.OnDemandConfigChangeSettings.RequestMethods.AMDeniedLinkText = "Click
à cet endroit pour soumettre une demande de changement"
'Configurer un menu contextuel de Shell
Configuration.OnDemandConfigChangeSettings.RequestMethods.ShowShellMenu = True
Configuration.OnDemandConfigChangeSettings.RequestMethods.ShellMenuText = "Submit
une demande de changement"
'Configurer le lien de Bureau
Configuration.OnDemandConfigChangeSettings.RequestMethods.ShowDesktopIcon = True
Configuration.OnDemandConfigChangeSettings.RequestMethods.DesktopIconText = "Request
Changement de stratégie"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
MSI dans COMConfigurationHelper
Ouverture de MSI
Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadMsiConfiguration("C:\msi\AM8.6.msi")
Configuration.ParseXML ConfigurationXml
'Wscript.Echo ConfigurationXml
'Enregistrer la configuration vide dans un fichier.
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Enregistrement de MSI
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Enregistrer la configuration vide dans un fichier.
ConfigurationHelper.SaveMsiConfiguration "C:\msi\AMout.msi",ConfigurationXml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Gestion des droits utilisateur
Ajout d'un fichier de droits utilisateur
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer une nouvelle entrée FileItem
Dim File
Set File = Configuration.CreateInstanceFromClassName("AM.File")
File.Path = "notepad.exe"
File.CommandLine = "notepad.exe"
Dim URMItem
Set URMFile = Configuration.CreateInstanceFromClassName("AM.URMRuleItemPolicy")
URMFile.KeyPath = "notepad.exe"
URMFile.Policy.Policy = Configuration.URMPolicies.Item("Add Administrator").Name
URMFile.Application = File.Xml
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMFiles.Add URMFile.xml
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Modification d'un fichier de droits utilisateur
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
'Créer une nouvelle entrée FileItem
Dim File
Set File = Configuration.CreateInstanceFromClassName("AM.File")
File.Path = "notepad.exe"
File.Arguments = "test.txt"
File.CommandLine = "notepad.exe test.txt"
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMFiles.Item("notepad.exe").Application = File.Xml
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMFiles.Item("notepad.exe").KeyPath = File.CommandLine
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Suppression d'un fichier de droits utilisateur
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
Dim ConfigurationXml
ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
Configuration.ParseXML ConfigurationXml
Configuration.Grouprules.Item("Everyone").UserRightsRules.URMFiles.Remove "notepad.exe test.txt"
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing
Ajout d'un fichier de droits utilisateur avec l'élévation intégrée
'URM BuiltinElevate Policy
const BuiltinElevate_Policy = "516A5D5B-685C-49C3-A4FC-3A54BF6CC392\BUILTINADMIN"
'Créer la configuration
Dim Configuration
Set Configuration = CreateObject("AM.Configuration.5")
'Créer l'objet d'aide (helper) de configuration
Dim ConfigurationHelper
Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")
'Charger la configuration active
'Dim ConfigurationXml
'ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration
'Configuration.ParseXML ConfigurationXml
'Charger la configuration par défaut
Configuration.ParseXML ConfigurationHelper.DefaultConfiguration
'Créer une nouvelle entrée FileItem
Dim File
Set File = Configuration.CreateInstanceFromClassName("AM.File")
File.Path = "notepad.exe"
File.CommandLine = "notepad.exe"
Dim URMItem
Set URMFile = Configuration.CreateInstanceFromClassName("AM.URMRuleItemPolicy")
URMFile.KeyPath = "notepad.exe"
URMFile.Policy.Policy = BuiltinElevate_Policy
URMFile.Application = File.Xml
'Attention, notez qu'ApplyToOpenSave a un nom incorrect - sa signification a été "basculée"
' ApplyToOpenSave = False => Appliquer aux boîtes de dialogue communes
' ApplyToOpenSave = True => Ne PAS appliquer aux boîtes de dialogue communes.
URMFile.ApplyToOpenSave = False
URMFile.ApplyToChildProcesses = True
URMFile.ChangeOwnershipToAdmin = True
Configuration.GroupRules.Item("Everyone").UserRightsRules.URMFiles.Add URMFile.xml
'Enregistrer la configuration active
ConfigurationHelper.SaveLiveConfiguration Configuration.Xml
Set ConfigurationHelper = Nothing
Set Configuration = Nothing