BizTalk Server 2009 : 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_(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
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("");
  }