BizTalk 2006 : Deploying and Managing BizTalk Applications - Administrative Tools (part 2) - WMI

[C#]
using System.Management;

      // Basic WMI operation - Create
     // sample to show MSBTS_HostSetting instance creation
     public void CreateHost(string ServerName, string HostName, int HostType,

string NTGroupName, bool AuthTrusted)
      {
         try
         {
            PutOptions options = new PutOptions();
            options.Type = PutType.CreateOnly;

           // Create a ManagementClass object and spawn a ManagementObject instance
           ManagementClass objHostSettingClass = new ManagementClass("\\\\" + 

ServerName + "\\root\\MicrosoftBizTalkServer", "MSBTS_HostSetting", null);
            ManagementObject objHostSetting = objHostSettingClass.CreateInstance();

            // Set the properties for the Host
            objHostSetting["Name"] = HostName;
            objHostSetting["HostType"] = HostType;
            objHostSetting["NTGroupName"] = NTGroupName;
            objHostSetting["AuthTrusted"] = AuthTrusted;

           // Creating the host
           objHostSetting.Put(options);
           System.Console.WriteLine(string.Format("The Host '{0}'has been 

created successfully", HostName ));
         }
         catch(Exception ex)

					  

{
           System.Console.WriteLine("CreateHost - " + HostName + 

" - failed: " + ex.Message);
          }
}

[VBScript]
Option Explicit
' wbemChangeFlagEnum Setting
const UpdateOnly = 1
const CreateOnly = 2
Sub CreateHost (ServerName, HostName, HostType, NTGroupName, AuthTrusted)
   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(ServerName, 

"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

    ' Create Host
    objHS.Put_open_parenthesis_CreateOnly)

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

					  

using System.Management;
static public void ListenForSvcInstSuspendEvent()
 {
     try
     {
       // Set up an event watcher and a handler for the Create 

MSBTS_ServiceInstanceSuspendedEvent event
       ManagementEventWatcher watcher = 

new ManagementEventWatcher( new ManagementScope("root\\MicrosoftBizTalkServer"),

new EventQuery("SELECT * FROM MSBTS_ServiceInstanceSuspendedEvent") );

        watcher.EventArrived += new EventArrivedEventHandler(MyEventHandler);

        // Start watching for MSBTS_ServiceInstanceSuspendedEvent events
        watcher.Start();

        Console.WriteLine("Press enter to quit");
        Console.ReadLine();
        watcher.Stop();
     }
     catch (Exception ex)
     {
        Console.WriteLine("Error: " + ex.Message);
     }
  }
  static public void MyEventHandler(object sender, EventArrivedEventArgs e)
  {
     // Print out the service instance ID and error description upon receiving
    // of the suspend event
    Console.WriteLine("A MSBTS_ServiceInstanceSuspendEvent has occurred!");
    Console.WriteLine(string.Format("ServiceInstanceID: {0}", 

e.NewEvent["InstanceID"]));
     Console.WriteLine(string.Format("ErrorDescription: {0}", 

e.NewEvent["ErrorDescription"]));
     Console.WriteLine("");
}