|
Home > Archive > BizTalk Server General > March 2006 > Specifying Filters in WMI script
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Specifying Filters in WMI script
|
|
| Pankaj 2005-08-25, 7:48 am |
| Hi All
I am creating a HTTP send port using WMI script.
However, I am not able to specify Filters and Outbound Maps
in the WMI script.
Also, pl let me know how to specify content-type property
in the HTTP transport properties in the WMI script.
The script is
Option Explicit
' wbemChangeFlagEnum Setting
const UpdateOnly = 1
const CreateOnly = 2
CreateDynamicSendPort
Sub CreateDynamicSendPort()
Dim objLocator, objService, objSendPort, objSP
' Connects to local server WMI Provider BizTalk namespace
Set objLocator = Createobject ("wbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer(".",
"root/MicrosoftBizTalkServer")
' Get WMI class MSBTS_SendPort
Set objSendPort = objService.Get ("MSBTS_SendPort")
Set objSP = objSendPort.SpawnInstance_
objSP.Name = "xmlWorkOrderHTTPSendPort1"
objSP.IsDynamic=false
objSP.IsTwoWay=false
objSP.PTTransportType="HTTP"
objSP.PTAddress="http://test/someURL.ao"
objSP.PTRetryCount=3
objSP.PTRetryInterval=5
objSP.PTServiceWindowEnabled=false
'objSP.Filter="BTS.ReceivePortName=csvWorkOrderRcvPort1"
'objSP.Filter="Property=BTS.ReceivePortName Operator=0
Value=csvWorkOrderRcvPort1"
'objSP.Filter="<Filter><Group><Statement Property="BTS.ReceivePortName"
Operator="0" Value="csvWorkOrderRcvPort1"/></Group></Filter>"
objSP.SendPipeline= "Microsoft.BizTalk.DefaultPipelines.XMLTransmit,
Microsoft.BizTalk.DefaultPipelines, Version=3.0.1.0, Culture=neutral,
PublicKeyToken=31bf3856ad364e35"
objSP.Put_(CreateOnly)
'objSP.Put_(UpdateOnly)
CheckWMIError
End Sub
Sub CheckWMIError()
If Err <> 0 Then
On Error Resume Next
Dim strErrDesc: strErrDesc = Err.Description
Dim ErrNum: ErrNum = Err.Number
Dim WMIError : Set WMIError = CreateObject("WbemScripting.SwbemLastError")
If ( TypeName(WMIError) = "Empty" ) Then
wscript.echo strErrDesc & " (HRESULT: " & Hex(ErrNum) & ")."
Else
wscript.echo WMIError.Description & "(HRESULT: " & Hex(ErrNum) & ")."
Set WMIError = nothing
End If
wscript.quit 0
End If
End Sub
Regards
Pankaj
| |
| Doug Girard [MSFT] 2006-03-25, 11:38 am |
| These two articles should assist:
http://msdn.microsoft.com/library/d...-us/sdk/htm/frl
rfmicrosoftbiztalkexploreromsendportclas
sfiltertopic.asp (WMI)
http://msdn.microsoft.com/library/d...-us/sdk/htm/frl
rfmicrosoftbiztalkexploreromsendportclas
stopic.asp (ExplorerOM)
HTH,
Doug Girard [MSFT]
Note: This posting is provided "AS IS" with no warranties, and confers no
rights.
--------------------
>From: "Pankaj"<pankajml@aditi.com>
>Subject: Specifying Filters in WMI script
>Date: Thu, 25 Aug 2005 06:37:19 -0500
>Message-ID: < 15f27e80649841e0babf0a48d47bf859@ureader
.com>
>X-Mailer: qqMail .NET version 2.0 by Guoqi Zheng
>Newsgroups: microsoft.public.biztalk.general
>NNTP-Posting-Host: 2.70-84-119.reverse.theplanet.com 70.84.119.2
>Lines: 1
>Path:
TK2MSFTNGXA01.phx.gbl!TK2MSFTNGP08.phx.gbl!TK2MSFTNGP14.phx.gbl!ureader.com
>Xref: TK2MSFTNGXA01.phx.gbl microsoft.public.biztalk.general:16934
>X-Tomcat-NG: microsoft.public.biztalk.general
>
>Hi All
>
>I am creating a HTTP send port using WMI script.
>However, I am not able to specify Filters and Outbound Maps
>in the WMI script.
>Also, pl let me know how to specify content-type property
>in the HTTP transport properties in the WMI script.
>
>The script is
>
>
>
>Option Explicit
>' wbemChangeFlagEnum Setting
>const UpdateOnly = 1
>const CreateOnly = 2
>
>CreateDynamicSendPort
>
>Sub CreateDynamicSendPort()
> Dim objLocator, objService, objSendPort, objSP
> ' Connects to local server WMI Provider BizTalk namespace
> Set objLocator = Createobject ("wbemScripting.SWbemLocator")
> Set objService = objLocator.ConnectServer(".",
>"root/MicrosoftBizTalkServer")
> ' Get WMI class MSBTS_SendPort
> Set objSendPort = objService.Get ("MSBTS_SendPort")
> Set objSP = objSendPort.SpawnInstance_
> objSP.Name = "xmlWorkOrderHTTPSendPort1"
> objSP.IsDynamic=false
> objSP.IsTwoWay=false
> objSP.PTTransportType="HTTP"
> objSP.PTAddress="http://test/someURL.ao"
> objSP.PTRetryCount=3
> objSP.PTRetryInterval=5
> objSP.PTServiceWindowEnabled=false
>
> 'objSP.Filter="BTS.ReceivePortName=csvWorkOrderRcvPort1"
> 'objSP.Filter="Property=BTS.ReceivePortName Operator=0
>Value=csvWorkOrderRcvPort1"
> 'objSP.Filter="<Filter><Group><Statement Property="BTS.ReceivePortName"
>Operator="0" Value="csvWorkOrderRcvPort1"/></Group></Filter>"
>
> objSP.SendPipeline= "Microsoft.BizTalk.DefaultPipelines.XMLTransmit,
>Microsoft.BizTalk.DefaultPipelines, Version=3.0.1.0, Culture=neutral,
>PublicKeyToken=31bf3856ad364e35"
>
> objSP.Put_(CreateOnly)
> 'objSP.Put_(UpdateOnly)
> CheckWMIError
>End Sub
>
>Sub CheckWMIError()
> If Err <> 0 Then
> On Error Resume Next
> Dim strErrDesc: strErrDesc = Err.Description
> Dim ErrNum: ErrNum = Err.Number
> Dim WMIError : Set WMIError = CreateObject("WbemScripting.SwbemLastError")
> If ( TypeName(WMIError) = "Empty" ) Then
> wscript.echo strErrDesc & " (HRESULT: " & Hex(ErrNum) & ")."
> Else
> wscript.echo WMIError.Description & "(HRESULT: " & Hex(ErrNum) & ")."
> Set WMIError = nothing
> End If
> wscript.quit 0
> End If
>End Sub
>
>
>Regards
>Pankaj
>
|
|
|
|
|