[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 &
",user")
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
Next
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 ;-)
Thanks...
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:
