サンプル スクリプト参照

以下は、Application Control スクリプト インターフェイスで実行できる一般的な処理を示す Visual Basic スクリプトの例です。

新しい構成の作成

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'既定の構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.DefaultConfiguration

Configuration.ParseXML ConfigurationXml

ConfigurationHelper.SaveLocalConfiguration "C:\Configuration.aamp",Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'既定の構成の読み込み

Configuration.ParseXML ConfigurationHelper.DefaultConfiguration

'空の構成をファイルに保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

ライブ構成を読み込む

''構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ファイルからの構成の読み込み

Dim ConfigurationXml

ConfigurationXml =

ConfigurationHelper.LoadLocalConfiguration("C:\Configuration.aamp")

Configuration.ParseXML ConfigurationXml

ConfigurationHelper.SaveLocalConfiguration "C:\Configuration.aamp",

Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

既定のルール

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

Configuration.DefaultRules.AllowCMDForBatchFiles = True

Configuration.DefaultRules.ValidateSystemProcesses = False

'信頼できる所有者を構成に追加

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

'構成をファイルに保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

DefaultConfiguration( ) メソッドは、英語の構成のみを返します。つまり、構成の一部のグループ名と他のテキストは、オペレーティング システムのネイティブ言語ではない場合があり、構成が正しく適用されない可能性があります。英語以外のオペレーティング システムでは、ネイティブ オペレーティング システムの製品コンソールから既定の構成をエクスポートする必要があります。これはネットワークにファイルとして保存するか、構成スクリプトが実行されるコンピュータに配布できます。これが実行された後、DefaultConfiguration( ) の代わりに、LoadLocalConfiguration( ) メソッドを使用します。これにより、同じ構成が生成されますが、正しいネイティブ言語になります。

グループ ルール

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

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

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'「すべてのユーザ」グループの SID を変更

Configuration.GroupRules.Item("Everyone").SID = "S-1-1-0"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

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"

Configuration.GroupRules.Add GroupRule.Xml

'ルールの削除

Configuration.GroupRules.Remove "BUILTIN\Remote Desktop Users"

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

ユーザ ルール

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'新しいユーザ ルールの作成と追加

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ユーザ ルールの変更

Dim UserRule

Set UserRule = Configuration.UserRules.Item("%COMPUTERNAME%\Guest")

UserRule.SID = "S-1-5-Domain-501"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ユーザ ルールの変更

Dim UserRule

Set UserRule = Configuration.UserRules.Item("%COMPUTERNAME%\Guest")

UserRule.SID = "S-1-5-Domain-501"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

デバイス ルール

' AM.HostType 列挙型の定数の定義

const AM_DeviceType_Computer = 0

const AM_DeviceType_ConnectingDevice = 1

const AM_DeviceType_Either = 2

' AM.HostNameType 列挙型の定数の定義

const AM_HostNameType_HostName = 0

const AM_HostNameType_IPAddress = 1

const AM_HostNameType_ComputerGroup = 2

const AM_HostNameType_OU = 3

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'デバイス ルールの作成

Dim DeviceRule

Set DeviceRule = Configuration.CreateInstanceFromClassName("AM.DeviceRule")

DeviceRule.Name = "Device Rule (1)"

Configuration.DeviceRules.Add DeviceRule.Xml

'ルールにデバイスを追加

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

'ルールに別のデバイスを追加

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

'「コンピュータ」グループを使用してデバイスを追加

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

'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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

' AM.SecurityLevel 列挙型の定数の定義

const AM_SecurityLevel_Restricted = 0

const AM_SecurityLevel_SelfAuthorizing = 1

const AM_SecurityLevel_Unrestricted = 2

const AM_SecurityLevel_AuditOnly = 3

' AM.HostType 列挙型の定数の定義

const AM_DeviceType_Computer = 0

const AM_DeviceType_ConnectingDevice = 1

const AM_DeviceType_Either = 2

' AM.HostNameType 列挙型の定数の定義

const AM_HostNameType_HostName = 0

const AM_HostNameType_IPAddress = 1

const AM_HostNameType_ComputerGroup = 2

const AM_HostNameType_OU = 3

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'デバイス ルールの作成

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'「デバイス ルール(1)」の削除

Configuration.DeviceRules.Remove "Device Rule (1)"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

スクリプト化されたルール

' AM.ExecutionContext 列挙型の定数の定義

const AM_ExecutionContext_PerSessionAsUser = 0

const AM_ExecutionContext_PerSessionAsSystem = 1

const AM_ExecutionContext_PerComputerAsSystem = 2

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'スクリプト化されたルールの作成

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

' AM.ExecutionContext 列挙型の定数の定義

const AM_ExecutionContext_PerSessionAsUser = 0

const AM_ExecutionContext_PerSessionAsSystem = 1

const AM_ExecutionContext_PerComputerAsSystem = 2

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'スクリプト化されたルールの作成

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 = "Scripted Rule (1)" Then

CurrentScriptedRule.Timeout = 7

End If

Next

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'スクリプト化されたルールの削除

Configuration.ScriptedRules.Remove "Scripted Rule (1)"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

ブラウザ制御

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'Application Manager の構成ファイルには aamp というファイル拡張子が付きます。このファイルに含まれる数多くのさまざまなファイルが1つになって

'構成ファイルになります。こうしたファイルの1つに ConfigurationXml があります。このファイルで、AM のすべてのルールが構成されます。

'ただし、aamp ファイルには、構成の主要部分には関与しない他のファイルも含まれます。

'現在、保存/読み込みルーチンの組み合わせが提供されています。これにより、ユーザは、aamp ファイル内の変更されていない他のファイルを保持しながら、configurationXml を上書きできます

'。通常の読み込み/保存ルーチンでは、configurationXml のみを含む新しいファイルが作成されます。

'LoadLocalConfigurationHandleWithAuditing ルーチンを呼び出すと、構成の xml が戻り値として返されますが、Auditing xml と

' FileHandle も返されます。

'同等の保存ルーチンでこのファイル ハンドルを使用することで、aamp ファイル内の、構成ファイル以外のファイルが保持されます。

Dim FileHandle

Dim ConfigurationXml

Dim AuditingXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfigurationHandleWithAuditing(AuditingXml, FileHandle)

Configuration.ParseXML ConfigurationXml

' 新しい 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 = "Add description here"

' URL リダイレクト項目を「すべてのユーザ」グループに追加

Configuration.GroupRules.Item("Everyone").UrlRedirectionURLs.Add UrlItem.xml

'aamp ファイルに含まれている他の既存のファイルを保持しながら、ConfigurationXml と Auditing xml を aamp ファイルに保存

ConfigurationHelper.SaveLiveConfigurationHandleWithAuditing Configuration.Xml, AuditingXml, FileHandle

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

プロファイルの構成

' AM.ANACMessageFrequencyType 列挙型の定数の定義

const AM_ANACMessageFrequencyType_EveryConnectionAttempt = 0

const AM_ANACMessageFrequencyType_Once = 1

const AM_ANACMessageFrequencyType_UseDelayBetweenMessages = 2

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'メッセージ設定の変更

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%."

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'アーカイブ設定の変更

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'アプリケーションの終了設定の変更

Configuration.ApplicationTerminationSettings.Enabled = True

Configuration.ApplicationTerminationSettings.DisplayInitialWarningMessage = True

Configuration.ApplicationTerminationSettings.CloseApplication = True

Configuration.ApplicationTerminationSettings.TerminateApplication = True

Configuration.ApplicationTerminationSettings.WaitTime = 60

'アプリケーションの終了トリガの変更

Configuration.ApplicationTerminationSettings.Triggers.TerminateOnConfigurationChange = True

Configuration.ApplicationTerminationSettings.Triggers.TerminateOnComputerIPAddressChanged = False

Configuration.ApplicationTerminationSettings.Triggers.TerminateOnConnectingDeviceChanged = True

' アプリケーション終了メッセージの変更

Configuration.MessageSettings.ApplicationTerminationMessages.ConfigAppliedWarningMessageCaption = "New Configuration Applied Message Caption"

Configuration.MessageSettings.ApplicationTerminationMessages.ConfigAppliedWarningMessageBody = "New Configuration Applied Message Body"

' 他の終了メッセージ オブジェクト:

'

' ConfigAppliedTerminateMessageCaption

' ConfigAppliedTerminateMessageBody

' IPAddressChangedWarningMessageCaption

' IPAddressChangedWarningMessageBody

' IPAddressChangedTerminateMessageCaption

' IPAddressChangedTerminateMessageBody

' ConnectingDeviceChangedWarningMessageCaption

' ConnectingDeviceChangedWarningMessageBody

' ConnectingDeviceChangedTerminateMessageCaption

' ConnectingDeviceChangedTerminateMessageBody

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'エンジニアリング キーの追加

Dim EngineeringKey

Set EngineeringKey = Configuration.CreateInstanceFromClassName("AM.EngineeringKey")

EngineeringKey.Name = "UrmSecPolicy"

EngineeringKey.Value = "1"

Configuration.EngineeringKeys.Add EngineeringKey.Xml

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

ネットワーク接続

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'アクセス可能な接続のリストに接続を追加

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

'禁止された接続のリストに接続を追加

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ネットワーク接続のポート番号を変更

Configuration.GroupRules.Item("Everyone").AccessibleNetworkConnections.Item("www.goo

gle.com:80/foo/*").Port = 8080

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ネットワーク接続の削除

Configuration.GroupRules.Item("Everyone").ProhibitedNetworkConnections.Remove

"www.facebook.com"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

プロセス ルール

プロセス ルールの作成

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'プロセス ルールの作成

Dim ProcessRule

Set ProcessRule = Configuration.CreateInstanceFromClassName("AM.ProcessRule")

ProcessRule.Name = "Process Rule (1)"

Configuration.ProcessRules.Add ProcessRule.Xml

'ルールにファイル プロセスを追加

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

'ルールに別のファイルを追加

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

' AM.SecurityLevel 列挙型の定数の定義

const AM_SecurityLevel_Restricted = 0

const AM_SecurityLevel_SelfAuthorizing = 1

const AM_SecurityLevel_Unrestricted = 2

const AM_SecurityLevel_AuditOnly = 3

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'「プロセス ルール(1)」の削除

Configuration.ProcessRules.Remove "Process Rule (1)"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

ルールリスト項目

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'アクセス可能ファイルのリストにファイルを追加

Dim AccessibleFile

Set AccessibleFile = Configuration.CreateInstanceFromClassName("AM.File")

AccessibleFile.Path = "calc.exe"

AccessibleFile.Commandline = "calc.exe"

Configuration.GroupRules.Item("Everyone").AccessibleFiles.Add AccessibleFile.Xml

'禁止されたファイルのリストにファイルを追加

Dim ProhibitedFile

Set ProhibitedFile = Configuration.CreateInstanceFromClassName("AM.File")

ProhibitedFile.Path = "regedit.exe"

ProhibitedFile.CommandLine = "regedit.exe"

Configuration.GroupRules.Item("Everyone").ProhibitedFiles.Add ProhibitedFile.Xml

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'calc.exe の編集

Configuration.GroupRules.Item("Everyone").AccessibleFiles.Item("calc.exe").TrustedOw

nershipChecking = False

Configuration.GroupRules.Item("Everyone").AccessibleFiles.Item("calc.exe").Applicati

onLimit = 5

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ファイルの削除

Configuration.GroupRules.Item("Everyone").AccessibleFiles.Remove "calc.exe"

Configuration.GroupRules.Item("Everyone").ProhibitedFiles.Remove "regedit.exe"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'アクセス可能なフォルダを削除

Configuration.GroupRules.Item("Everyone").AccessibleFolders.Remove

"%ALLUSERSPROFILE%"

'禁止されたフォルダの削除

Configuration.GroupRules.Item("Everyone").ProhibitedFolders.Remove

"%SystemDrive%\Utilities"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'新しい署名項目の作成

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

'ルールに署名を追加

Configuration.GroupRules.Item("Everyone").AccessibleSignatures.Add SignatureFile.Xml

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'デジタル署名を SHA1ハッシュを含めてコマンドラインでキー化することで

、

目的の項目にアクセスするためのハッシュ値を取得します。

Dim sha1Hash

sha1Hash = ConfigurationHelper.ReadSha1HashFromFile("C:\WINDOWS\regedit.exe")

Configuration.GroupRules.Item("Everyone").AccessibleSignatures.Item(sha1Hash).ApplyAccessTimes

= False

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'デジタル署名を SHA1ハッシュでキー化して、目的の項目にアクセスするためのハッシュ値を取得します

。

Dim sha1Hash

sha1Hash = ConfigurationHelper.ReadSha1HashFromFile("C:\WINDOWS\regedit.exe")

Configuration.GroupRules.Item("Everyone").AccessibleSignatures.Remove sha1Hash

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'最初のドライブを追加

Dim FirstDrive

Set FirstDrive = Configuration.CreateInstanceFromClassName("AM.Drive")

FirstDrive.Path = "H"

Configuration.GroupRules.Item("Everyone").AccessibleDrives.Add FirstDrive.Xml

'2番目のドライブを追加

Dim SecondDrive

Set SecondDrive = Configuration.CreateInstanceFromClassName("AM.Drive")

SecondDrive.Path = "I"

Configuration.GroupRules.Item("Everyone").AccessibleDrives.Add SecondDrive.Xml

'追加した最初のドライブを削除

Configuration.GroupRules.Item("Everyone").AccessibleDrives.Remove "H"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ヘルパー オブジェクトを使用して、署名されたファイルから証明書を読み取る

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

"

Set DigitalCertificate =

Configuration.GroupRules.Item("Everyone").TrustedVendors.Add(DigitalCertificate.Xml)

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ヘルパー オブジェクトを使用して、署名されたファイルから証明書と有効期限を読み取る

Dim CertificateData

Dim dtMyDate

CertificateData = ConfigurationHelper.ReadCertificateDateFromFile("C:\Program

Files\Internet Explorer\iexplore.exe", 0, dtMyDate)

'構成に証明書情報を追加

Dim DigitalCertificate

Set DigitalCertificate =

Configuration.CreateInstanceFromClassName("AM.DigitalCertificate")

DigitalCertificate.RawCertificateData = CertificateData

DigitalCertificate.Description = "Microsoft Corporation - Internet Explorer

"

DigitalCertificate.ExpiryDate = dtMyDate

Set DigitalCertificate =

Configuration.GroupRules.Item("Everyone").TrustedVendors.Add(DigitalCertificate.Xml)

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ヘルパー オブジェクトを使用して、署名されたファイルから証明書を読み取る

Dim CertificateData

CertificateData = ConfigurationHelper.ReadCertificateFromFile("C:\Program

Files\Internet Explorer\iexplore.exe", 0)

Configuration.GroupRules.Item("Everyone").TrustedVendors.Item(CertificateData).Enfor

ceExpiryDate = True

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ヘルパー オブジェクトを使用して、署名されたファイルから証明書を読み取る

Dim CertificateData

CertificateData = ConfigurationHelper.ReadCertificateFromFile("C:\Program

Files\Internet Explorer\iexplore.exe", 0)

Configuration.GroupRules.Item("Everyone").TrustedVendors.Remove CertificateData

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

グループ管理

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ライブラリ内に新規グループを作成

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

'構成をファイルに保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'ルールで既存のライブラリ グループを使用

Dim GroupReference

Set GroupReference =

Configuration.CreateInstanceFromClassName("AM.ApplicationGroupReference")

GroupReference.Group = "Common Applications"

GroupReference.TrustedOwnershipChecking = "True"

GroupReference.Path = "Common Applications"

Configuration.GroupRules.Item("Everyone").ProhibitedApplicationGroups.Add

GroupReference.Xml

'構成をファイルに保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

ユーザ権限管理

スクリプトに移動

'URM グループ処理オプション

const AM_URMGroupAction_Add = 0

const AM_URMGroupAction_Drop = 1

'URM 権限アクション

const AM_URMPrivilegeAction_NoChange = 0

const AM_URMPrivilegeAction_Enable = 1

const AM_URMPrivilegeAction_Disable = 2

const AM_URMPrivilegeAction_Remove = 3

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

Configuration.URMPolicies.Remove "Add Administrator"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

ユーザ権限ファイルの追加

ユーザ権限ファイルの編集

ユーザ権限ファイルの削除

スクリプトに移動

スクリプトに移動

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

Configuration.GroupRules.Item("Everyone").UserRightsRules.URMWellKnownControlPanelApplets.Remove

"cplClock"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

監査

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'既定の構成の読み込み

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

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'既定の構成の読み込み

Configuration.ParseXML ConfigurationHelper.DefaultConfiguration

'空の構成をファイルに保存

Dim AuditingFile

AuditingFile = "c:\Auditing.xml"

ConfigurationHelper.SaveLiveConfigurationWithAuditingFile

Configuration.Xml,AuditingFile

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

Dim AuditingXml

ConfigurationXml =

ConfigurationHelper.LoadLiveConfigurationWithAuditing(AuditingXml)

Configuration.ParseXML ConfigurationXml

'一部の設定を編集

Configuration.DefaultRules.AllowCMDForBatchFiles = False

Configuration.DefaultRules.ValidateSystemProcesses = False

'構成をファイルに保存

ConfigurationHelper.SaveLiveConfigurationWithAuditing Configuration.Xml, AuditingXml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

Dim AuditingXml

ConfigurationXml =

ConfigurationHelper.LoadLocalConfigurationWithAuditing("c:\Configuration.aamp",Audit

ingXml)

Configuration.ParseXML ConfigurationXml

'設定の編集

Configuration.DefaultRules.AllowCMDForBatchFiles = False

Configuration.DefaultRules.ValidateSystemProcesses = False

'構成をファイルに保存

ConfigurationHelper.SaveLocalConfigurationWithAuditing

"C:\UpdatedConfiguration.aamp",Configuration.Xml, AuditingXml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

追加の読み込みおよび保存関数

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

Dim AuditingXml

Dim FileHandle

'Application Manager の構成ファイルには aamp というファイル拡張子が付きます。このファイルに含まれる数多くのさまざまなファイルが1つになって

'構成ファイルになります。こうしたファイルの1つに ConfigurationXml があります。このファイルで、AM のすべてのルールが構成されます。

'ただし、aamp ファイルには、構成の主要部分には関与しない他のファイルも含まれます。

'現在、保存/読み込みルーチンの組み合わせが提供されています。これにより、ユーザは、aamp ファイル内の変更されていない他のファイルを保持しながら、configurationXml を上書きできます

'。通常の読み込み/保存ルーチンでは、configurationXml のみを含む新しいファイルが作成されます。

'LoadLocalConfigurationHandleWithAuditing ルーチンを呼び出すと、構成の xml が戻り値として返されますが、Auditing xml と

' FileHandle も返されます。

'同等の保存ルーチンでこのファイル ハンドルを使用することで、aamp ファイル内の、構成ファイル以外のファイルが保持されます。

ConfigurationXml =

ConfigurationHelper.LoadLocalConfigurationHandleWithAuditing("c:\temp\configuration.aamp", AuditingXml, FileHandle)

Configuration.ParseXML ConfigurationXml

Configuration.DefaultRules.AllowCMDForBatchFiles = True

Configuration.DefaultRules.ValidateSystemProcesses = True

'aamp ファイルに含まれている他の既存のファイルを保持しながら、ConfigurationXml と Auditing xml を aamp ファイルに保存

ConfigurationHelper.SaveLocalConfigurationHandleWithAuditing

"c:\temp\configuration.aamp", Configuration.Xml, AuditingXml, FileHandle

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

Dim AuditingXml

Dim FileHandle

'Application Manager の構成ファイルには aamp というファイル拡張子が付きます。このファイルに含まれる数多くのさまざまなファイルが1つになって

'構成ファイルになります。こうしたファイルの1つに ConfigurationXml があります。このファイルで、AM のすべてのルールが構成されます。

'ただし、aamp ファイルには、構成の主要部分には関与しない他のファイルも含まれます。

'現在、保存/読み込みルーチンの組み合わせが提供されています。これにより、ユーザは、aamp ファイル内の変更されていない他のファイルを保持しながら、configurationXml を上書きできます

'。通常の読み込み/保存ルーチンでは、configurationXml のみを含む新しいファイルが作成されます。

'LoadLiveConfigurationHandleWithAuditing ルーチンを呼び出すと、ライブ構成の xml が戻り値として返されますが、Auditing xml と

' FileHandle も返されます。

'同等の保存ルーチンでこのファイル ハンドルを使用することで、aamp ファイル内の、構成ファイル以外のファイルが保持されます。

ConfigurationXml = ConfigurationHelper.LoadLiveConfigurationHandleWithAuditing(

AuditingXml, FileHandle)

Configuration.ParseXML ConfigurationXml

Configuration.DefaultRules.AllowCMDForBatchFiles = True

Configuration.DefaultRules.ValidateSystemProcesses = True

'他の既存のファイルを保持しながら、ConfigurationXml と Auditing xml をライブ構成に保存

ConfigurationHelper.SaveLiveConfigurationHandleWithAuditing Configuration.Xml,

AuditingXml, FileHandle

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

Dim AuditingXml

Dim FileHandle

'Application Manager の構成ファイルには aamp というファイル拡張子が付きます。このファイルに含まれる数多くのさまざまなファイルが1つになって

'構成ファイルになります。こうしたファイルの1つに ConfigurationXml があります。このファイルで、AM のすべてのルールが構成されます。

'ただし、aamp ファイルには、構成の主要部分には関与しない他のファイルも含まれます。

'現在、保存/読み込みルーチンの組み合わせが提供されています。これにより、ユーザは、aamp ファイル内の変更されていない他のファイルを保持しながら、configurationXml を上書きできます

'。通常の読み込み/保存ルーチンでは、configurationXml のみを含む新しいファイルが作成されます。

'LoadLocalConfigurationHandle ルーチンを呼び出すと、構成の xml が戻り値として返されますが、FileHandle も返されます。

'同等の保存ルーチンでこのファイル ハンドルを使用することで、構成ファイル以外のファイルが保持されます

。

ConfigurationXml =

ConfigurationHelper.LoadLocalConfigurationHandle("c:\temp\configuration.aamp",

FileHandle)

Configuration.ParseXML ConfigurationXml

Configuration.DefaultRules.AllowCMDForBatchFiles = True

Configuration.DefaultRules.ValidateSystemProcesses = True

'FileHandle からの他の既存のファイルを保持しながら、ConfigurationXml を指定の構成に保存します。

ConfigurationHelper.SaveLocalConfigurationHandle "c:\temp\configuration.aamp",

Configuration.Xml, FileHandle

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

Dim AuditingXml

Dim FileHandle

'Application Mananger の構成ファイルには aamp というファイル拡張子が付きます。このファイルに含まれる数多くのさまざまなファイルが1つになって

'構成ファイルになります。こうしたファイルの1つに ConfigurationXml があります。このファイルで、AM のすべてのルールが構成されます。

'ただし、aamp ファイルには、構成の主要部分には関与しない他のファイルも含まれます。

'現在、保存/読み込みルーチンの組み合わせが提供されています。これにより、ユーザは、aamp ファイル内の変更されていない他のファイルを保持しながら、configurationXml を上書きできます

'。通常の読み込み/保存ルーチンでは、configurationXml のみを含む新しいファイルが作成されます。

'LoadLiveConfigurationHandle ルーチンを呼び出すと、ライブ構成の xml が戻り値として返されますが、FileHandle も返されます。

'同等の保存ルーチンでこのファイル ハンドルを使用することで、aamp ファイル内の、構成ファイル以外のファイルが保持されます。

ConfigurationXml = ConfigurationHelper.LoadLiveConfigurationHandle(FileHandle)

Configuration.ParseXML ConfigurationXml

Configuration.DefaultRules.AllowCMDForBatchFiles = True

Configuration.DefaultRules.ValidateSystemProcesses = True

'他の既存のファイルを保持しながら、ConfigurationXml をライブ構成に保存

ConfigurationHelper.SaveLiveConfigurationHandle Configuration.Xml, FileHandle

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

メタデータを含むファイルとフォルダの追加

'スクリプトの後段で使用するメタデータを含むファイル項目を作成

'

Set FileWithMetadata = Configuration.CreateInstanceFromClassName("AM.File")

'実際のファイルを設定

FileWithMetadata.Path = "MetadataFile.exe"

'追加先のコレクション内にこの項目用の一意のキーを設定

FileWithMetadata.Commandline = "MetadataFile.exe"

'一部のメタデータ プロパティを設定

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

'スクリプトの後段で使用するメタデータを含むフォルダ項目を作成

'

Set FolderWithMetadata = Configuration.CreateInstanceFromClassName("AM.Folder")

'追加先のコレクション内にこの項目用の一意のキーを設定

FolderWithMetadata.ItemKey = "c:\MetadataFolder"

'実際のフォルダを設定

FolderWithMetadata.Path = "c:\MetadataFolder"

'一部のメタデータ プロパティを設定

FolderWithMetadata.Metadata.VendorName = "VEND"

FolderWithMetadata.Metadata.VendorNameEnabled = True

'アクセス可能ファイルのリストにファイルを追加

Configuration.GroupRules.Item("Everyone").AccessibleFiles.Add FileWithMetadata.Xml

'このファイル項目を URM ルールに追加

'

'URM 項目の作成

Set URMFile = Configuration.CreateInstanceFromClassName("AM.URMRuleItemPolicy")

'前の手順で作成したアクセス可能ファイルの詳細を使用して URM 項目を構成

URMFile.KeyPath = FileWithMetadata.Commandline

URMFile.Application = FileWithMetadata.Xml

'適用する URM ポリシーの設定

URMFile.Policy.Policy = "Add Administrator"

'URM 項目の追加

Configuration.GroupRules.Item("Everyone").UserRightsRules.URMFiles.Add URMFile.xml

'アクセス可能フォルダのリストにフォルダを追加

Configuration.GroupRules.Item("Everyone").AccessibleFolders.Add FolderWithMetadata.Xml

'このフォルダ項目を URM ルールに追加

'

'URM 項目の作成

Set URMFolder = Configuration.CreateInstanceFromClassName("AM.URMRuleItemPolicy")

'前の手順で作成したアクセス可能フォルダの詳細を使用して URM 項目を構成

URMFolder.KeyPath = FolderWithMetadata.ItemKey

URMFolder.Application = FolderWithMetadata.Xml

'適用する URM ポリシーの設定

URMFolder.Policy.Policy = "Add Administrator"

'URM 項目の追加

Configuration.GroupRules.Item("Everyone").UserRightsRules.URMFolders.Add URMFolder.xml

'特定のプロセスのメタデータ構成を含むプロセス ルール

'

'新規プロセス ルールの作成

Set ProcessRule = Configuration.CreateInstanceFromClassName("AM.ProcessRule")

ProcessRule.Name = "Process Rule With Metadata"

'ルールにファイル プロセスを追加

ProcessRule.FileProcessItems.Add FileWithMetadata.Xml

'プロセス ルールの追加

Configuration.ProcessRules.Add ProcessRule.Xml

'ライブ構成の保存

'

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

Windows Store アプリ

const AM_VersionMatching_andabove = 0

const AM_VersionMatching_andbelow = 1

const AM_VersionMatching_exactly = 2

const AM_VersionMatching_allversions = 3

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'すべての Windows Store アプリを禁止

Dim BlockAllApps

Set BlockAllApps = Configuration.CreateInstanceFromClassName("AM.WindowsStoreApp")

BlockAllApps.DisplayName = "* * All installed apps * *"

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

'アクセス可能な接続のリストに Windows Store アプリを追加

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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

const AM_VersionMatching_andabove = 0

const AM_VersionMatching_andbelow = 1

const AM_VersionMatching_exactly = 2

const AM_VersionMatching_allversions = 3

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'バージョンの突き合わせの変更

Configuration.GroupRules.Item("Everyone").AccessibleWindowsStoreApps.Item("kzf8qxf38zg5c_Microsoft.SkypeApp_3.1.0.1007").VersionMatch

= AM_VersionMatching_allversions

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

Skype の削除

Configuration.GroupRules.Item("Everyone").AccessibleWindowsStoreApps.Remove "kzf8qxf38zg5c_Microsoft.SkypeApp_3.1.0.1007"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

システム制御

'BuiltinActions

const AM_ControlPanelURMPolicy_BuiltinElevate = 0

const AM_ControlPanelURMPolicy_BuiltinRestrict = 1

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

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 = "Ivanti Application Manager Agent"

ServiceItem.ServiceDisplayName = "Ivanti Application Manager Agent"

ServiceItem.ServiceName = "*"

Configuration.GroupRules.Item("Everyone").UserRightsRules.URMServiceControls.Add

ServiceItem.Xml

'構成をファイルに保存

ConfigurationHelper.SaveLiveConfigurationHandle Configuration.Xml, FileHandle

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

自己昇格ファイル

'AM.SelfElevationFilterMode 列挙型の定数の定義

const AM_SelfElevationFilterMode_AllowAllExcept = 0

const AM_SelfElevationFilterMode_DenyAllExcept = 1

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'既定の構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.DefaultConfiguration

Configuration.ParseXML ConfigurationXml

' 「すべてのユーザ」グループ用の自己昇格ファイルに追加するファイルを作成

Dim SelfElevationFile

Set SelfElevationFile = Configuration.CreateInstanceFromClassName("AM.File")

SelfElevationFile.Path = "calc.exe"

SelfElevationFile.Commandline = "calc.exe"

'「すべてのユーザ」グループ用の、ユーザ権限の下の [自己昇格] タブにファイルを追加

Configuration.GroupRules.Item("Everyone").SelfElevationRules.SelfElevationFiles.Add

SelfElevationFile.Xml

'自己昇格の有効化

Configuration.GroupRules.Item("Everyone").SelfElevationRules.SelfElevationEnabled

= true

'リスト内の項目にのみ適用する自己昇格を設定する

Configuration.GroupRules.Item("Everyone").SelfElevationRules.Filtermode = AM_SelfElevationFilterMode_DenyAllExcept

'ファイルをアクセス可能な項目にする

Configuration.GroupRules.Item("Everyone").SelfElevationRules.MakeAccessible = true

'子プロセスのユーザ権限を適用する

Configuration.GroupRules.Item("Everyone").SelfElevationRules.ApplyToChildProcesses

= true

'信頼できる所有者が所有していない場合でもファイルの実行を許可する

Configuration.GroupRules.Item("Everyone").SelfElevationRules.TrustedOwnershipChecking=

true

'共通ダイアログに適用する

Configuration.GroupRules.Item("Everyone").SelfElevationRules.ApplyToOpenSave = true

'信頼できる所有者としてインストール

Configuration.GroupRules.Item("Everyone").SelfElevationRules.ChangeOwnershipToAdmin

= true

'構成をディスクに保存する

ConfigurationHelper.SaveLocalConfiguration "C:\Configuration.aamp",Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

ポリシー変更要求

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'オン デマンド構成変更の設定の変更

'グローバル機能を有効にする

Configuration.OnDemandConfigChangeSettings.OnDemandEnabled = True

'電子メール要求を有効にする

Configuration.OnDemandConfigChangeSettings.EmailRequestsEnabled = True

Configuration.OnDemandConfigChangeSettings.MailToAddress = "[email protected]"

'緊急要求を有効にする

Configuration.OnDemandConfigChangeSettings.EmergencyRequestsEnabled = True

Configuration.OnDemandConfigChangeSettings.HelpDeskPhoneNumber = "0800 900 9000"

Dim key

key = ConfigurationHelper.EncryptSharedKey("hello chris")

Configuration.OnDemandConfigChangeSettings.SharedKey = key

'AMMessage からのリンクを構成する

Configuration.OnDemandConfigChangeSettings.RequestMethods.AllowLinkFromAMDenied =

True

Configuration.OnDemandConfigChangeSettings.RequestMethods.AMDeniedLinkText = "Click

here to submit a change request"

'Shell のコンテキスト メニューを構成する

Configuration.OnDemandConfigChangeSettings.RequestMethods.ShowShellMenu = True

Configuration.OnDemandConfigChangeSettings.RequestMethods.ShellMenuText = "Submit

a change request"

デスクトップ リンクの構成

Configuration.OnDemandConfigChangeSettings.RequestMethods.ShowDesktopIcon = True

Configuration.OnDemandConfigChangeSettings.RequestMethods.DesktopIconText = "Request

Policy Change"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

COMConfigurationHelper の MSI

構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadMsiConfiguration("C:\msi\AM8.6.msi")

Configuration.ParseXML ConfigurationXml

'Wscript.Echo ConfigurationXml

'空の構成をファイルに保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'空の構成をファイルに保存

ConfigurationHelper.SaveMsiConfiguration "C:\msi\AMout.msi",ConfigurationXml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

ユーザ権限管理

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'新規 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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

'新規 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

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

Dim ConfigurationXml

ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

Configuration.ParseXML ConfigurationXml

Configuration.Grouprules.Item("Everyone").UserRightsRules.URMFiles.Remove "notepad.exe test.txt"

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing

'URM BuiltinElevate Policy

const BuiltinElevate_Policy = "516A5D5B-685C-49C3-A4FC-3A54BF6CC392\BUILTINADMIN"

'構成の作成

Dim Configuration

Set Configuration = CreateObject("AM.Configuration.5")

'構成ヘルパーの作成

Dim ConfigurationHelper

Set ConfigurationHelper = CreateObject("AM.ConfigurationHelper.1")

'ライブ構成の読み込み

'Dim ConfigurationXml

'ConfigurationXml = ConfigurationHelper.LoadLiveConfiguration

'Configuration.ParseXML ConfigurationXml

'既定の構成の読み込み

Configuration.ParseXML ConfigurationHelper.DefaultConfiguration

'新規 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

'ApplyToOpenSave は名前が正しくないことに注意してください。意味が「逆転」しています。

' ApplyToOpenSave = False => 共通ダイアログに適用する

' ApplyToOpenSave = True => 共通ダイアログに適用しない

URMFile.ApplyToOpenSave = False

URMFile.ApplyToChildProcesses = True

URMFile.ChangeOwnershipToAdmin = True

Configuration.GroupRules.Item("Everyone").UserRightsRules.URMFiles.Add URMFile.xml

'ライブ構成の保存

ConfigurationHelper.SaveLiveConfiguration Configuration.Xml

Set ConfigurationHelper = Nothing

Set Configuration = Nothing