System Admin

Option Explicit

Sub CreateHost (HostName, HostType, NTGroupName, AuthTrusted)
   On Error Resume Next

   Dim objLocator, objService, objHostSetting, objHS, objBTSHost

   ' Connects to local server WMI Provider BizTalk namespace
   Set objLocator = Createobject ("wbemScripting.SWbemLocator")
   Set objService = objLocator.ConnectServer(".", "root/MicrosoftBizTalkServer")
   
   if err <> 0 then
        wscript.echo "Error Point 1: " & Err.Description
   end if
   
   set objBTSHost = objService.ExecQuery("select * from MSBTS_Host where Name = " & HostName)

   if err <> 0 then
        wscript.echo "Error Point 2: " & Err.Description
   end if

   
   wscript.echo objBTSHost.Count
   
   if err <> 0 then
        wscript.echo "Error Point 3: " & Err.Description
   end if

  ' More code after this
  ' ....
   
end Sub

On Error Resume Next

' Create a host, an instance of it, and associate.
CreateHost "MyHost", 1, "BizTalk Application Users", false

Dave Kreskowiak wrote:

I've got the very same problem at work and, wow, guess what solved it!

Perspx wrote:

It might have something to do with the fact that the OS is 10 years out of date..?

subai wrote:

I'm trying to install win 98 on a new PC