03-25-06 04:38 PM
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
>
[ Post a follow-up to this message ]
| 
