Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
logon script InGroup or IfMember for Win9x clients
- Thread starter mrbrennan
- Start date
Stevehewitt
IS-IT--Management
No! ;-) (Not to my knowledge anyway) Steve Hewitt
IT Administrator
Windows 2000 Microsoft Certified System Engineer
IT Administrator
Windows 2000 Microsoft Certified System Engineer
TheOtherKiwi
MIS
Well it works for me! This is probably more appropriate for the scripting forum but hey check this logon script...
' ---------------------------------------------------------
' Logon Script
' ---------------------------------------------------------
' Start of VB Script code for Windows Scripting Host (WSH)
' Create WSH objects and populate from the Domain/AD
set wshNetwork = WScript.CreateObject("WScript.Network"
set wshShell = WScript.CreateObject("WScript.Shell"
' Wait for up to 30 seconds
HurryUp = Timer + 30
Do
Wscript.Sleep 100 ' Check every 100mS
Loop until wshNetwork.username <> "" or HurryUp < Timer
If wshNetwork.username="" then ProblemGettingDomainData
'Set some variables
User = wshNetwork.username
Domain = wshNetwork.userdomain
computer = wshNetwork.computername
'Determine the users Domain/AD Group membership
adspath="WinNT://" & domain & "/" & user
'Create an object and populate it with users
set adsobj = getobject(adspath)
'Map Drives based on Group Membership
'Users can belong to many groups. The group name for every group that the user belongs to is
'passed through a "select case" test. If the group name under test matches any "case" statement,
'then the line(s) under the "case" statement is actioned.
'Cycle through the user's group membership list
for each prop in adsobj.groups
'Pass the name of the group through the following filter
Select case prop.name
case "D_NewZealand" ' User is a member of this group so...
mapNetwork "S:", "\\nzdatasr01\data"
end select ' Finish the filter test for this group name
'Loop around until every entry in the group membership list has been tested
Next
'Quit the script
Wscript.Quit
' ---------------------------------------------------------
' Logon Script
' ---------------------------------------------------------
' Start of VB Script code for Windows Scripting Host (WSH)
' Create WSH objects and populate from the Domain/AD
set wshNetwork = WScript.CreateObject("WScript.Network"
set wshShell = WScript.CreateObject("WScript.Shell"
' Wait for up to 30 seconds
HurryUp = Timer + 30
Do
Wscript.Sleep 100 ' Check every 100mS
Loop until wshNetwork.username <> "" or HurryUp < Timer
If wshNetwork.username="" then ProblemGettingDomainData
'Set some variables
User = wshNetwork.username
Domain = wshNetwork.userdomain
computer = wshNetwork.computername
'Determine the users Domain/AD Group membership
adspath="WinNT://" & domain & "/" & user
'Create an object and populate it with users
set adsobj = getobject(adspath)
'Map Drives based on Group Membership
'Users can belong to many groups. The group name for every group that the user belongs to is
'passed through a "select case" test. If the group name under test matches any "case" statement,
'then the line(s) under the "case" statement is actioned.
'Cycle through the user's group membership list
for each prop in adsobj.groups
'Pass the name of the group through the following filter
Select case prop.name
case "D_NewZealand" ' User is a member of this group so...
mapNetwork "S:", "\\nzdatasr01\data"
end select ' Finish the filter test for this group name
'Loop around until every entry in the group membership list has been tested
Next
'Quit the script
Wscript.Quit
- Status
Similar threads
- Locked
- Question
- Locked
- Question
