用于管理服务连接点的 Excel 宏
服务连接点可以使用简单的 Excel 宏进行管理。
以下 Excel 宏显示了创建新服务连接点的最低要求。
Option Explicit
Private Sub p_CreateExampleSCP()
Dim oAdSysInfo As ADSystemInfo
Set oAdSysInfo = CreateObject("ADSystemInfo")
Dim objComputer As ActiveDs.IADsContainer
Set objComputer = GetObject("LDAP://" + oAdSysInfo.ComputerName)
Dim IADsSCP As ActiveDs.IADs
Set IADsSCP = objComputer.Create("ServiceConnectionPoint", _
"CN=Example SCP")
IADsSCP.PutEx 2, "serviceBindingInformation", _
Array( _
" - UNC connection to Service", _
" - WS-Man connection to service" _
)
IADsSCP.PutEx 2, "Keywords", _
Array( _
"KW1=A kewyrowd value" _
)
IADsSCP.SetInfo
End Sub
以下 Excel 宏显示如何删除示例服务连接点。
Option Explicit
Private Sub p_DeleteExampleScp()
Dim oAdSysInfo As ADSystemInfo
Set oAdSysInfo = CreateObject("ADSystemInfo")
Dim objComputer As ActiveDs.IADsContainer
Set objComputer = GetObject("LDAP://" + oAdSysInfo.ComputerName)
objComputer.Delete "ServiceConnectionPoint", _
"CN=Example SCP"
End Sub