System Admin

Jörgen Andersson wrote:

Have you clicked your way through the tree down to the USB Hubs?

Set objWMI = GetObject _
    ("winmgmts:root\cimv2")
    
Set colDisks = objWMI.ExecQuery _
     ("Select * From Win32_LogicalDisk " _
     & "Where DeviceId = 'C:'")

WScript.Echo colDisks.Count

Set objWMI = GetObject _
    ("winmgmts:root\cimv2")
    
Set colDisks = objWMI.ExecQuery _
     ("Select * From Win32_LogicalDisk " _
     & "Where DeviceId = 'C:'", , 48)

WScript.Echo colDisks.Count

SWbemObjectSet: Unspecified error

Set objWMI = GetObject _
    ("winmgmts:root\cimv2")
    
Set colDisks = objWMI.ExecQuery _
     ("Select * From Win32_LogicalDisk " _
     & "Where DeviceId = 'Blah'")

WScript.Echo colDisks.Count
WScript.Echo TypeName(colDisks)
WScript.Echo CStr(colDisks Is Nothing)
WScript.Echo CStr(IsNull(colDisks))

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!