Login Script Help

Tech-Archive recommends: Fix windows errors by optimizing your registry

I've gotten pretty far here with this login script but I'm hitting a
problem with a certain function that I'm using. It returns a True no
matter what Group Name I put.





Option Explicit

'Dims for objects
Dim objFSO, objShell, objNetwork, objUser, objSysInfo, objVoice
'Dim for ADSysinfo
Dim strUserDN, strDomain, strUser
'Dims for Time Eval
Dim strMorning, strAfternoon, strEvening, MyTime
'Dims for Name Eval
Dim strFirst, strLast
'Dims for build summary message
Dim strWelcomMsg, strMsg

set objFSO=CreateObject("Scripting.FileSystemObject")
set objShell=CreateObject("Wscript.Shell")
set objNetwork=CreateObject("Wscript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")

'Gets User's AD profile
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://"; & strUserDN)

strFirst = objUser.givenName
strLast = objUser.sn

'Determines Group Memberships
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Test") Then
Wscript.Echo objNetwork.Username

If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Domain
Users") Then Wscript.Echo "Domain Users"

If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"CANNOTBE!Q")
= True Then Wscript.Echo "Test Group"


Function IsAMemberOf(strDomain,strUser,strGroup)
On Error Resume Next
Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser &
",user")
Set objGrp=GetObject("WinNT://" & strDomain & "/" & strGroup &
",group")

If objGrp.IsMember(objUser.ADsPath) Then
IsAMemberOf=True
Else
IsAMemberOf=False
End If

End Function


Not sure where I went wrong.
.

Relevant Pages

  • Weird LDAP query anomaly...
    ... Dim objRootDSE, strDNSDomain, objConnection, objCommand, strQuery ... Dim objRecordSet, strUserDN, strOS, objFSO, strFilePath ... Set objConnection = CreateObject ... However when I enumerate containers through the following script ...
    (microsoft.public.scripting.vbscript)
  • Re: Login Script Help
    ... Dim objFSO, objShell, objNetwork, objUser, objSysInfo, objVoice ... 'Dim for ADSysinfo ... Dim strUserDN, strDomain, strUser ... IsAMemberOf = False ...
    (microsoft.public.windows.server.scripting)
  • Login Script Help
    ... 'Dim for ADSysinfo ... Dim strUserDN, strDomain, strUser ... Dim strFirst, strLast ... Users") Then Wscript.Echo "Domain Users" ...
    (microsoft.public.windows.server.scripting)
  • Re: Expected end of statment 800A0400
    ... Dim strCN, strSam, strFirst, strLast, strPWD, strE-mail ... The error is fixed by replacing strE-mail with strEmail throughout. ...
    (microsoft.public.scripting.vbscript)
  • Re: Expected end of statment 800A0400
    ... Dim strCN, strSam, strFirst, strLast, strPWD, strE-mail ... The error is fixed by replacing strE-mail with strEmail throughout. ...
    (microsoft.public.scripting.vbscript)