[THIN] Re: VB ??

  • From: "Moock, Jay" <Jay.Moock@xxxxxxxx>
  • To: <thin@xxxxxxxxxxxxx>
  • Date: Mon, 11 Sep 2006 13:45:05 -0400

Found this on the net somewhere.  It returns a boolean.
Set objNetwork = CreateObject("Wscript.Network")
strNTName = objNetwork.userName
Set objUser = GetObject("WinNT://" & strNetBIOSDomain & "/" & strNTName &
IsMember("Group Name")
Function IsMember(strGroup)
' Function to test for user group membership.
' strGroup is the NT name (sAMAccountName) of the group to test.
' objGroupList is a dictionary object, with global scope.
' Returns True if the user is a member of the group.
  If IsEmpty(objGroupList) Then
    Call LoadGroups
  End If
  IsMember = objGroupList.Exists(strGroup)
End Function
Sub LoadGroups
' Subroutine to populate dictionary object with group memberships.
' objUser is the user object, with global scope.
' objGroupList is a dictionary object, with global scope.
  Dim objGroup
  Set objGroupList = CreateObject("Scripting.Dictionary")
  objGroupList.CompareMode = vbTextCompare
  For Each objGroup In objUser.Groups
    objGroupList(objGroup.name) = True
  Set objGroup = Nothing
End Sub

        -----Original Message-----
        From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx]
On Behalf Of Guzzo, Mark A (Mark)
        Sent: Monday, September 11, 2006 1:37 PM
        To: thin@xxxxxxxxxxxxx
        Subject: [THIN] VB ??

        Hello all,


        I was ask to start converting my kixtart logon Citrix scripts to VB
and so I have one hugh question. Is there a simple InGroup() function for VB
like there is for kixtart? I have Googled this and only seem to come up with
user defind functions for this and they all seem to come up short. Does
anyone have a simple but effective code sinp they can share please?


        I'm a VB newbee ;-)




        M a r k G u z z o 

        Utility Infrastructure Services 

        Citrix / VMware Administrator 

        Lucent Technologies 

        2601 Lucent Ln, Lisle, IL 60532-3640 

        RM:52N15 W/F:630.979.9731 


Other related posts: