Wild Card for strGroup in Active Directory

Question

I am using the following vb script. Several of our Active Directory groups start with SPS_ I have tried SPS_* and SPS_% and can not get it to pull the group information. Could someone please assist?
Thank you in advance!
Option Explicit
Dim strFile, strGroupDN, objGroup, objExcel, intRow, objMember, objSheet
Dim objRootDSE, strDNSDomain, objTrans, strNetBIOSDomain, strGroup
Dim strLogonTime 'Formatted Last Logon Time output string
' Constants for NameTranslate
Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1
const ADS_UF_SMARTCARD_REQUIRED = &h40000
'Specify (or prompt for) the spreadsheet file.
strFile = "H:\Desktop\AD SPSA\SPS_Users.xls"
' Determine DNS domain name from RootDSE object.
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
' Use the NameTranslate object to find the NetBIOS domain name
' from the DNS domain name.
Set objTrans = CreateObject("NameTranslate")
objTrans.Init ADS_NAME_INITTYPE_GC, ""
objTrans.Set ADS_NAME_TYPE_1779, strDNSDomain
strNetBIOSDomain = objTrans.Get(ADS_NAME_TYPE_NT4)
' Remove trailing backslash.
strNetBIOSDomain = Left(strNetBIOSDomain, _
Len(strNetBIOSDomain) - 1)
strGroup = "SPS_*"
strGroup LIKE '_PS'
' Use NameTranslate to convert NT name to DN.
On Error Resume Next
objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain & "\" & strGroup
If (Err.Number <> 0) Then
On Error GoTo 0
' NT name not found.
Wscript.Echo "Group " & strGroup & " not found"
Wscript.Quit
End If
strGroupDN = objTrans.Get(ADS_NAME_TYPE_1779)
' Bind to group object.
Set objGroup = GetObject("LDAP://" & strGroupDN)
' Create new workbook.
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add
' Bind to worksheet.
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
' Add header row.
objSheet.Cells(1, 1).Value = "SAMAccountName"
objSheet.Cells(1, 2).Value = "Last Name"
objSheet.Cells(1, 3).Value = "First Name"
objSheet.Cells(1, 4).Value = "e-mail Address"
objSheet.Cells(1, 5).Value = "Phone Number"
objSheet.Cells(1, 6).Value = "SPS AD Description"
objSheet.Cells(1, 7).Value = "Date Created"
objSheet.Cells(1, 8).Value = "EDIPI"
objSheet.Cells(1, 9).Value = "LastLogon"
objSheet.Cells(1, 10).Value = "TSAllowLogon"
objSheet.Cells(1, 11).Value = "LDAP Path"
intRow = 2
For Each objMember In objGroup.Members
objSheet.Cells(intRow, 1).Value = objMember.sAMAccountName
objSheet.Cells(intRow, 2).Value = objMember.sn
objSheet.Cells(intRow, 3).Value = objMember.givenName
objSheet.Cells(intRow, 4).Value = objMember.mail
objSheet.Cells(intRow, 5).Value = objMember.telephoneNumber
objSheet.Cells(intRow, 6).Value = objMember.description
objSheet.Cells(intRow, 7).Value = objMember.WhenCreated
objSheet.Cells(intRow, 8).Value = objMember.UserPrincipalName
objSheet.Cells(intRow, 9).Value = objMember.LastLogin
objSheet.Cells(intRow, 10).Value = objMember.AllowLogon
objSheet.Cells(intRow, 11).Value = objMember.ADsPath
intRow = intRow + 1
Next
' Save the spreadsheet and close the workbook.
objExcel.ActiveWorkbook.SaveAs strFile
objExcel.ActiveWorkbook.Close
' Quit Excel.
objExcel.Application.Quit
Lee Mossolle

Answer 1

Bill,
We have over 100 AD Groups that all start with SPS so I need to search all of the groups and see what users have the Deny this user permissions to log on to Terminal Server which the flag for this is AllowLogon. If AllowLogon is equal to 0 then the user
needs the AD Profile updated so that then can access a program in the CITRIX Environment. So if I could use a wildcard in the strGroup, I could query for several groups and not one at a time. I am sorry for not explaining that better!
Thanks,
Lee
Lee Mossolle