Hi, I'm getting a random error that says
Error Type:
(0x80070035)
C:\INETPUB\WWWROOT\NEWINTRANET\TOOLS\CONTACTPOINTS\../../includes/IsInGroup.asp, line 15
here's my code:
<script language="VBScript" RUNAT=Server>
Function IsInGroupReturn(User, Group)
Dim Member
If Group.IsMember(User.ADsPath) Then
IsInGroupReturn = True
Else
IsInGroupReturn = False
End If
End Function
Function IsInGroup(strUsername, strUserDomain, GroupName)
Dim objDomain, objGroup, objUser
Set objDomain = GetObject("WinNT://" & strUserDomain)
Set objGroup = objDomain.GetObject("Group", GroupName)
Set objUser = GetObject("WinNT://" & strUserDomain & "/" & strUsername)
IsInGroup = IsInGroupReturn(objUser, objGroup)
End Function
</SCRIPT>
It seems that this used to work b4 I started the job. The guy who create it left and is unreachable. I have no clue why this stopped working. Can anyone help?