Visual Basic

Kschuler wrote:

When this occurs the setup fails and displays a very cryptic error

Function IsMember(sUser,sGroup)<br />
	' sUser must be a complete LDAP string:<br />
	' cn=DonJ,ou=West,dc=Company,dc=com<br />
	<br />
	On Error Resume Next<br />
	Const PROPERTY_NOT_FOUND = &h8000500d<br />
	<br />
	Set oUser = GetObject(sUser)<br />
	If Not IsObject(oUser) Then<br />
		IsMember = False<br />
		Exit Function<br />
	End If<br />
	<br />
	arrMemberOf = oUser.GetEx("memberOf")<br />
	If Err.number = PROPERTY_NOT_FOUND Then<br />
		IsMember = False<br />
		Exit Function<br />
	Else<br />
		For Each Group in arrMemberOf<br />
			If Group = sGroup Then<br />
				IsMember = True<br />
				Exit Function<br />
			End If<br />
		Next<br />
	End If<br />
	<br />
	IsMember = False<br />
End Function

Kschuler wrote:

Thanks for the code, but where would I be able to put this so it would run before an install? Keeping in mind that the user will probably not have the .Net 2.0 framework installed yet, which Visual Studio 2005 requires (So I can't just put it in a DLL/exe and run it before the install)

If IsMember("cn=[UserName],ou=[OUName],dc=[CompanyName]","[GroupName]") Then<br />
    ' The user is a member - do something here (start to execute the setup file)<br />
Else<br />
    ' The user is not a member - do something here (prompt user to exit an installation process).<br />
End If