Create Host, Host Instances, Receive Handlers, Send Handlers, and Start Host Instances WMI

by | Nov 10, 2010 | BizTalk Community Blogs via Syndication

I wanted a script that post a new BizTalk build, I could run and it could create new hosts, host instances, create new receive and send handlers and finally start the host instances

'Create the new host



CreateHost "App2Host", InProcess, "CORP\BTSAppUsers-Dev", False, False, False, False





'Make the new host the default host



UpdateHost "App2Host",True,True





'Turn the tracking off of the initially installed host



UpdateHost "App1Host",False,False





'Create the host instance



FinalizeInstallHostInstance "App2Host","CORP\svcBTSHost-Dev","P4ssw0rd!"





ReConfigureReceiveHandler "App1Host","WCF-SQL"



CreateReceiveHandler "App2Host","WCF-SQL"



CreateSendHandler "App2Host","WCF-SQL"





'Start all of the host instances that are not currently running



StartAllInProcessHostInstance





Sub CreateHost (HostName, HostType, NTGroupName, AuthTrusted, Isdefault, IsHost32BitOnly, HostTracking )



   On Error Resume Next





   Dim objLocator, objService, objHostSetting, objHS





   ' Connects to local server WMI Provider BizTalk namespace



   Set objLocator = Createobject ("wbemScripting.SWbemLocator")



   Set objService = objLocator.ConnectServer(".", "root/MicrosoftBizTalkServer")





   ' Get WMI class MSBTS_HostSetting



   Set objHostSetting = objService.Get ("MSBTS_HostSetting")





   Set objHS = objHostSetting.SpawnInstance_





   objHS.Name = HostName



   objHS.HostType = HostType



   objHS.NTGroupName = NTGroupName



   objHS.AuthTrusted = AuthTrusted



   objHS.Isdefault = IsDefault



   objHS.IsHost32BitOnly = IsHost32BitOnly



   objHS.HostTracking = HostTracking





   ' Create instance



   objHS.Put_(CreateOnly)





   CheckWMIError



   wscript.echo "Host - " & HostName & " - has been created successfully"



   



end Sub





Sub UpdateHost (HostName, HostTracking, IsDefault)



   On Error Resume Next





   Dim objLocator, objService, objHS





   ' Connects to local server WMI Provider BizTalk namespace



   Set objLocator = Createobject ("wbemScripting.SWbemLocator")



   Set objService = objLocator.ConnectServer(".", "root/MicrosoftBizTalkServer")





   ' Look for WMI Class MSBTS_HostSetting with name equals HostName value



   Set objHS = objService.Get("MSBTS_HostSetting.Name='" & HostName & "'")





   objHS.HostTracking = HostTracking



   objHS.IsDefault = IsDefault





   ' Update instance properties



   objHS.Put_(UpdateOnly)





   ' Check for error condition before continuing.



   CheckWMIError



   wscript.echo "Host - " & HostName & " - has been updated successfully"



   



end Sub



Sub FinalizeInstallHostInstance (HostName, uid, pwd)



 On Error Resume Next



 Dim ServerName, objSysInfo



 Set objSysInfo = CreateObject( "WinNTSystemInfo" )



 ServerName = objSysInfo.ComputerName



 CheckWMIError 



 MapInstallHostInstance HostName,ServerName,uid,pwd



end Sub





Sub MapInstallHostInstance (HostName, ServerName, uid, pwd)



'Sub MapInstallHostInstance (HostName, uid, pwd)



   On Error Resume Next





   Dim objLocator, objService, objServerHost, objSH



   Dim objHostInstance, objHI



   'Dim ServerName, wshShell





   ' Connects to local server WMI Provider BizTalk namespace



   Set objLocator = Createobject ("wbemScripting.SWbemLocator")



   Set objService = objLocator.ConnectServer(".", "root/MicrosoftBizTalkServer")



   Set objServerHost = objService.Get ("MSBTS_ServerHost")





   Set objSH = objServerHost.SpawnInstance_





   objSH.HostName = HostName



   objSH.ServerName = ServerName





   ' Invoke MSBTS_ServerHost Map method



   objSH.Map





   CheckWMIError



   wscript.echo "Host - " & HostName & " - has been mapped successfully to server - " & ServerName





   Set objHostInstance = objService.Get ("MSBTS_HostInstance")





   Set objHI = objHostInstance.SpawnInstance_





   objHI.Name = "Microsoft BizTalk Server " & HostName & " " & ServerName



   



   ' Invoke MSBTS_HostInstance Install method



   objHI.Install uid, pwd, true   ' Calling MSBTS_HostInstance::Install(string Logon, string Password, boolean GrantLogOnAsService) method





   CheckWMIError



   wscript.echo "HostInstance - " & HostName & " - has been installed successfully on server - " & ServerName



   



end Sub



Sub ReConfigureReceiveHandler(HostName,AdapterName)



	'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.





	Dim objInstSet, objInst, strQuery





	'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_ReceiveHandler WHERE AdapterName =""" & AdapterName & """"



	Set objInstSet = GetObject("Winmgmts:!root\MicrosoftBizTalkServer").ExecQuery(strQuery)





	'If send handler found, set configuration information, otherwise print error and end.



	If objInstSet.Count > 0 then



		For Each objInst in objInstSet



			objInst.HostNameToSwitchTo=HostName





			



			'Commit the change to the database



			objInst.Put_(UpdateOnly)



			If Err <> 0	Then



				PrintWMIErrorThenExit Err.Description, Err.Number



			End If



			WScript.Echo "The "& AdapterName &" Receive Handler was successfully configured."



		Next



	Else



		WScript.Echo "No Receive Handler was found matching that AdapterName."



	End If



End Sub



' Sample to show MSBTS_ReceiveHandler instance creation with CustomCfg property



Sub CreateReceiveHandler (HostName, AdapterName)



   On Error Resume Next





   Dim objLocator, objService, objReceiveHandler, objRH, objSendHandler, objSH





   ' Connects to local server WMI Provider BizTalk namespace



   Set objLocator = Createobject ("wbemScripting.SWbemLocator")



   Set objService = objLocator.ConnectServer(".", "root/MicrosoftBizTalkServer")





   ' Get WMI class MSBTS_ReceiveHandler



   Set objReceiveHandler = objService.Get ("MSBTS_ReceiveHandler")





   Set objRH = objReceiveHandler.SpawnInstance_





   objRH.AdapterName = AdapterName



   objRH.HostName = HostName





   ' Create instance



   objRH.Put_(CreateOnly)





   CheckWMIError



   wscript.echo "Receive Handler - " & AdapterName & " " & HostName & " - has been created successfully"



   



end Sub



Sub CreateSendHandler (HostName, AdapterName)



   On Error Resume Next





   Dim objLocator, objService, objSendHandler, objSH





   ' Connects to local server WMI Provider BizTalk namespace



   Set objLocator = Createobject ("wbemScripting.SWbemLocator")



   Set objService = objLocator.ConnectServer(".", "root/MicrosoftBizTalkServer")





   ' Get WMI class MSBTS_ReceiveHandler



   'Insert the Send Handler make sure you use SendHandler2 as SendHandler is a throwback to BTS 2004 which does not allow updates



   Set objSendHandler = objService.Get ("MSBTS_SendHandler2")





   Set objSH = objSendHandler.SpawnInstance_





   objSH.AdapterName = AdapterName



   objSH.HostName = HostName





   ' Create instance



   objSH.Put_(CreateOnly)





   CheckWMIError



   wscript.echo "Send Handler - " & AdapterName & " " & HostName & " - has been created successfully"



   



end Sub



Sub StartAllInProcessHostInstance ()



   On Error Resume Next





   Dim Query, HostInstSet, Inst





   ' Enumerate all InProcess type Host Instance



   Query = "SELECT * FROM MSBTS_HostInstance WHERE HostType =1"



   Set HostInstSet = GetObject("Winmgmts:!root\MicrosoftBizTalkServer").ExecQuery(Query)





   For Each Inst in HostInstSet





      ' If host instance is stopped, then it'll start it



      If( HostInstServiceState_Stopped = Inst.ServiceState ) Then



         wscript.echo "Starting host instance..."



             Inst.Start   ' Calling MSBTS_HostInstance::Start() method



         CheckWMIError



         wscript.echo "HostInstance - " & Inst.HostName & " - has been started successfully on server - " & Inst.RunningServer



      End If



   Next





end Sub







'This subroutine deals with all errors using the WbemScripting object.  Error descriptions



'are returned to the user by printing to the console.



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