• Home
 · 
• Windows System Services
 · 
• Connects to Active Directory, Automaticly Establishes your domain and username, requires a group na

Connects to Active Directory, Automaticly Establishes your domain and username, requires a group na

Connects to Active Directory, Automaticly Establishes your domain and username, requires a group name to be passed, then dose something if the

Rate Connects to Active Directory, Automaticly Establishes your domain and username, requires a group na

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'*FileName:    ScriptRunner.vbs
'*ScriptName:  ScriptRunner
'*Created:     25/05/04
'*Author:      Simon Stearn
'*
'*Description: 
'*             Visual Basic Script language, designed
'*             to map users home drive's and shared 
'*             drive's, based on the the groups a user
'*             belongs to in Active Directory, 
'*             This script Uses ADSI
'*
'*Usage: 
'*             If( VerifyGroupMembers( WN.UserDomain, strGroup, WN.UserName ) = True ) Then
'*             Basic If Statment calling Useing ADSI, WN.UserDomain will get the currently 
'*             connected Domain, strGroup needs a Group Name As String passed to it, finaly
'*             WN.UserName will get the currently Logged on/Logging on user
'*      
'*Revision History:
'*             Created 25/05/04 By Simon Stearn
'*
'*
*

Function VerifyGroupMembers( strDomain, strGroup, strUser )
    
    VerifyGroupMembers = False 
    Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")

    For Each objUser In objGroup.Members

        bMemberFound = False  

        If strUser = objUser.name then
            bMemberFound = True
            Exit For
        End If
    	
    	If( Not bMemberFound ) Then
    	    VerifyGroupMembers = False
    	End If
    Next

    VerifyGroupMembers = True
End Function


' ****************************************************************************
' Main
' ****************************************************************************
Set WN = CreateObject("Wscript.Network")


If( VerifyGroupMembers( WN.UserDomain, strGroup, WN.UserName ) = True ) Then
    WScript.Echo "User in Group Need Some Code To Do Some Thing"
Else
    WScript.Echo "Doing nothing, User Not in Group"
WScript.Echo "Member NOT found: " & strUser 'objUser.Name
End If