getting group names from a domain with code ?

[locutus]

Hi
I have a problem , I have been asked if it is possible to get all the groups iin a domain that the user logs on to.
ie when the program I am writing runs it will pick up what domain I am logged onto and then retrieve all the groups in the domain by name to populate a list box.

Is this even possible ?

How would I go about this any idea's? as I dont even know where to start , this is a bit out of my league.

Rgds ,Locutus

[EJ12N]

if it is from a website you can parse the info you need and add it then to the list box else dont know explain al ittle more

[Knoxvile]

Hi
A little more info on the problem I have.

The user of the application will log on to the network at work and log into the uk domain of my organisation.
I want then to be able to make a text file or list box then of all the groups in the domain that I am logged onto on the work network. This is nothing to do with web sites as mention above.

Any one able to help ?

Is this even possible ?

The user will be using a regular win 95 machine which is not a server.

Rgds, Knoxvile

[JordanChris]

Its not my work, and I haven't actually used it.
I am not sure if it will give you what you want.
However, the attached has some filenames that mak it sound as though they could be what you want...


OR the following .VBS file might have some ideas in it....

'
' Checks for membership of a group
'
Function IsMember(sGroup)
    Dim sAdsPath, oUser, oGroup
    If IsEmpty(oGroupDict) Then
        Set oGroupDict         = CreateObject("Scripting.Dictionary")
        oGroupDict.CompareMode = vbTextCompare
 
        sAdsPath  = oNet.UserDomain & "/" & oNet.UserName
        Set oUser = GetObject("WinNT://" & sAdsPath & ",user")
        For Each oGroup In oUser.Groups
            oGroupDict.Add oGroup.Name, "-"
        Next
        Set oUser = Nothing
    End If
 
    IsMember = CBool(oGroupDict.Exists(sGroup))
End Function
'
'================================================================================
'
Option Explicit ' Force explicit declarations
'
' Variables
'
Dim WSHNetwork
Dim FSO
Dim strUserName ' Current user
Dim strUserDomain ' Current User's domain name
Dim ObjGroupDict ' Dictionary of groups to which the user belongs
Dim strDrive ' Drive letter
Dim strShare ' Share path (UNC)
Dim colDrives ' Enumerate Drives
Dim i ' Another variable
 
Set WSHNetwork = WScript.CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")
'
' Wait until the user is really logged in...
'
strUserName = ""
While strUserName = ""
WScript.Sleep 100 ' 1/10 th of a second
strUserName = WSHNetwork.UserName
Wend
strUserDomain = WSHNetwork.UserDomain
 
' Read the user's account "Member Of" tab info across the network
' once into a dictionary object.
 
Set ObjGroupDict = CreateMemberOfObject(strUserDomain, strUserName)
 
'GROUP1
If MemberOf(ObjGroupDict, "GROUP1") Then
    'Map network Drives
        Call ConnectNetworkDrives("W:", "\\SERVER\SHARE1")
    'Connect Printer(s)
        WSHNetwork.AddWindowsPrinterConnection "\\SERVER\PRINTER1"
    'Set Default printer
        'WSHNetwork.SetDefaultPrinter "\\SERVER\PRINTER1"
End If
 
 
'GROUP2
If MemberOf(ObjGroupDict, "GROUP2") Then
    'Map Network Drives
        'Call ConnectNetworkDrives("<LETTER>:", "\\<SERVER>\<SHARE>")
    'Connect Printer(s)
        WSHNetwork.AddWindowsPrinterConnection "\\SERVER\PRINTER2"
    'Set Default printer
        'WSHNetwork.SetDefaultPrinter "\\SERVER\PRINTER2"
End If
 
Function MemberOf(ObjDict, strKey)
' Given a Dictionary object containing groups to which the user
' is a member of and a group name, then returns True if the group
' is in the Dictionary else return False.
'
' Inputs:
' strDict - Input, Name of a Dictionary object
' strKey - Input, Value being searched for in
' the Dictionary object
' Sample Usage:
'
' If MemberOf(ObjGroupDict, "DOMAIN ADMINS") Then
' wscript.echo "Is a member of Domain Admins."
' End If
'
'
MemberOf = CBool(ObjGroupDict.Exists(strKey))
 
End Function
 
 
Function CreateMemberOfObject(strDomain, strUserName)
' Given a domain name and username, returns a Dictionary
' object of groups to which the user is a member of.
'
' Inputs:
'
' strDomain - Input, NT Domain name
' strUserName - Input, NT username
'
Dim objUser, objGroup
 
Set CreateMemberOfObject = CreateObject("Scripting.Dictionary")
CreateMemberOfObject.CompareMode = vbTextCompare
Set objUser = GetObject("WinNT://" & strDomain & "/" & strUserName & 
",user")
For Each objGroup In objUser.Groups
CreateMemberOfObject.Add objGroup.Name, "-"
Next
Set objUser = Nothing
 
End Function
 
Function ConnectNetworkDrives(strDrive, strShare)
' Input drive letter and share path
' This function connects a drive letter to a specified share share
 
' Inputs:
 
' strDrive = Drive letter e.g. "W:"
' strShare = Share path e.g. "\\Server\Share"
 
   Set colDrives = wshNetwork.EnumNetworkDrives
   For i = 0 To colDrives.Count - 1 Step 2
      If (colDrives(i) = strDrive) Then
         wshNetwork.RemoveNetworkDrive strDrive
      End If
   Next
   wshNetwork.MapNetworkDrive strDrive, strShare
End Function