MSBTS_SendHandler.AdapterName Property (WMI)

Artikel
07/21/2023

Berisi nama adaptor yang digunakan.

Sintaks yang ditampilkan adalah bahasa netral.

Sintaks

  
string AdapterName;

Keterangan

Properti ini diperlukan untuk pembuatan instans. Properti ini dapat ditulis pada pembuatan instans. Setelah pembuatan instans, properti ini bersifat baca-saja.

Properti ini memiliki kualifikasi Kunci . Bersama dengan MgmtDbNameOverride dan MgmtDbServerOverride, kunci ini membentuk kunci campuran untuk kelas .

Panjang maksimum untuk properti ini adalah 256 karakter.

Contoh

Contoh berikut diambil dari file Property\VBScript\ConfigureSMTP.vbs SDK\Samples\Admin\WMI\Set Send Handler.

  
Sub ConfigureSMTPSendHandler()  
   'error handling is done by explicity checking the err object rather than using  
   'the VB ON ERROR construct, so set to resume next on error.  
   On Error Resume Next  
  
   'Get the command line arguments entered for the script  
   Dim objArgs: Set objArgs = WScript.Arguments  
  
   'Make sure the expected number of arguments were provided on the command line.  
   'if not, print usage text and exit.  
   If (objArgs.Count <> 2) Then  
      PrintUsage()  
      WScript.Quit 0  
   End If  
  
   Dim objInstSet, objInst, strQuery, strSMTPHostName, strFromAddress, strConfigXML, strAdapterName  
  
   strAdapterName = "SMTP"  
   strSMTPHostName = objArgs(0)  
   strFromAddress = objArgs(1)  
   strConfigXML = "<CustomProps><SMTPHost vt=""8"">" & strSMTPHostName & "</SMTPHost><SMTPAuthenticate vt=""19"">2</SMTPAuthenticate><From vt=""8"">" & strFromAddress & "</From></CustomProps>"  
  
   'set up a WMI query to acquire a list of send handlers with the given Name key value.  
   'This should be a list of zero or one send handlers.  
   strQuery = "SELECT * FROM MSBTS_SendHandler WHERE AdapterName =""" & strAdapterName & """"  
   Set objInstSet = GetObject("Winmgmts:!root\MicrosoftBizTalkServer").ExecQuery(strQuery)  
  
   'Check for error condition before continuing.  
   If Err <> 0   Then  
      PrintWMIErrorThenExit Err.Description, Err.Number  
   End If  
  
   'If send handler found, set configuration information, otherwise print error and end.  
   If objInstSet.Count > 0 then  
      For Each objInst in objInstSet  
         'Set config data for send handler  
         objInst.CustomCfg = strConfigXML  
         If Err <> 0   Then  
            PrintWMIErrorThenExit Err.Description, Err.Number  
         End If  
  
         'Commit the change to the database  
         objInst.Put_(1)  
         If Err <> 0   Then  
            PrintWMIErrorThenExit Err.Description, Err.Number  
         End If  
         WScript.Echo "The Send Handler was successfully configured."  
      Next  
   Else  
      WScript.Echo "No Send Handler was found matching that AdapterName."  
   End If  
End Sub

Tidak ada sampel yang disediakan untuk C#.

Persyaratan

Header: Dinyatakan dalam BTSWMISchema2K.mof atau BTSWMISchemaXP.mof.

Namespace: Disertakan dalam \root\MicrosoftBizTalkServer.

Bagikan melalui