SCCM-TOOLS.COM - Stand Alone - Where is my Collection?

Where is my Collection?

This tool will allow the admin to search for a specific collection with as few as 1 letter and it will map the location of the collection.

Download

Code

<head>
<title>Where is my Collection?</title>
<body>

<HTA:APPLICATION
      ID="FindcolID"
     APPLICATIONNAME="FindCollection"
     SCROLL="NO"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="normal"
     SYSMENU="no"
>

</head>
<script language="VBScript">
'Created by Matthew Hudson
   ''smsServer  Replace with your server name
   ''XXX Replace with your site code
  Sub Closeme
    window.close()
  end sub

Sub Window_Onload
 window.moveTo 200,200
  window.resizeto 630,260
end sub

</script>

<body onload=Window_Onload onkeypress="Checkenter">
<script language="VBScript">
Dim CollectionArray(100) ' The number of levels down a collection could be
Set Shell = CreateObject("Wscript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set SWbemLocator=CreateObject("WbemScripting.SWbemLocator")
set SWbemServices = SWbemLocator.ConnectServer("SMSSERVER","root\SMS\site_XXX")
   If Err.Number Then
        Err.Clear
        Closeme()
    End If
sub search()
     count=0
     if findcoLL.value <> "" Then
        strQuery = "select * from SMS_Collection where name like '%"& findcoLL.value &"%'"
        Set Collections= SWbemServices.ExecQuery(strQuery)
        strHTML= strHTML & "<select size=""6"" name=""Collectionlisting"" style=""width:300"">"

for each Collection in Collections
           count=count+1

if count<50 then
             strHTML= strHTML & "<option value="& Collection.CollectionID  &">"& Collection.Name &"</option>"
            End if
        Next

strHTML= strHTML & "</select>"
       Output.InnerHTML = strHTML
      ' strHTML=nothing
       strHTML= "<input type=""button"" value=""Locate my Collection""  onClick=""CollectionLocation"">"
         LocationButton.innerHtml =  strHTML

End if

end sub

'''''''''''''''''''''
Sub CollectionLocation
  Dim CollectionRequested,Count
  count=0

CollectionRequested = Collectionlisting.value

''Get the name of the collection we selected
  strQuery = "select * from SMS_Collection where CollectionID ='"& CollectionRequested & "'"
  Set CollectionNames= SWbemServices.ExecQuery(strQuery)
  For Each CollectionName in CollectionNames
     CollectionArray(Count)=CollectionName.Name
   ' Msgbox (CollectionName.Name)
  Next

Count=1

Do Until CollectionRequested = "COLLROOT"
    strQuery = "select * from SMS_CollectToSubCollect where subcollectionid='" & CollectionRequested &"'"
    Set Collections= SWbemServices.ExecQuery(strQuery)

For each Collection in Collections
     strQuery = "select * from SMS_Collection where CollectionID ='"& Collection.parentCollectionID  & "'"
     Set CollectionNames= SWbemServices.ExecQuery(strQuery)
     For Each CollectionName in CollectionNames
       ParentCollectoinID = Collection.parentCollectionID
      ' Msgbox (Collection.parentCollectionID & CollectionName.Name)
       CollectionArray(Count)=CollectionName.Name
     Next
   Next

CollectionRequested  =  ParentCollectoinID
  count=count+1
Loop

'print out the list
CollectionTree(Count)

end Sub

Sub CollectionTree(CollectionCount)
 Dim WhatCollections
   'Find the upper bounds of the array
   Row =0

For X = CollectionCount to 0 step -1
     WhatCollections= WhatCollections &  String(Row, 45) & CollectionArray(x) & "</br>"
     Row=Row+2
   Next

Collectionlist.InnerHTML = WhatCollections

End Sub

''''''''''''''''
Sub Checkenter
        If window.event.Keycode = 13 Then
            search()
        End If
End Sub

</script>
<input type="value" style="background-color:#ffb7d6" name="findcoll" size="20" >
<input type="button" value="OK" name="acceptcomp"  onClick="search" style="background:red; ">
<BR>
<hr>

Documentation

This tool can be run as a standalone or you may choose to add it to your right click tools.

You will need to create the Extensions folder, Actions folder, as well as
the guids.  The folder path should look
like the path below

x:\Program Files\Microsoft Configuration

Manager\AdminUI\XmlStorage\Extensions\
Actions\fa922e1a-6add-477f-b70e-9a164f3b11a2
Copy the HTA to a programs folder somewhere and edit the file path in

the xml documents.

The program will give you the ability to find a collection either by a
standalone program or you may choose to add it to your console as a
right click tool.

1. Right click a collection and search for your collection

The script use a LIKE clause so you can type in adobe and find all the

adobe collections.
--------------------------------
Configuring the application

a.  You will need to modify the HTA file and replace the  following line
        set SWbemServices =

SWbemLocator.ConnectServer("SMSserver","root\SMS\site_XXX")
SMSserver - replace with your SCCM server name
site_XXX - replace XXX your Site Code

b. If this is running from a remote console then it might be necessary to

pass a user name and password.  Please
refer to the documentation below.
http://msdn.microsoft.com/en-us/library/aa393720(VS.85).aspx

GUIDs
----------------------------
dbb315c3-1d8b-4e6a-a7b1-db8246890f59 - Root Collection
fa922e1a-6add-477f-b70e-9a164f3b11a2 - Collection

Created by: Matthew Hudson