17-05-2009, 05:12
|
|
|
חבר מתאריך: 07.02.04
הודעות: 2,421
|
|
זה ה SCRIPT
קוד PHP:
Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup
Const Admin_Group = "cn=admin"
Const Managers_Group = "cn=Managers"
Const Operations_Group = "cn=Operations"
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))
If InStr(strGroup, lcase(Admin_Group)) Then
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "b:", "\\servername\home","false",objNetwork.UserName
objNetwork.MapNetworkDrive "f:", "\\servername\home","false",objNetwork.UserName
ElseIf InStr(strGroup, lcase(Managers_Group)) Then
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "g:", "\\servername\home","false",objNetwork.UserName
objNetwork.MapNetworkDrive "h:", "\\servername\home","false",objNetwork.UserName
ElseIf InStr(strGroup, lcase(Operations_Group)) Then
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "i:", "\\servername\home","false",objNetwork.UserName
objNetwork.MapNetworkDrive "j:", "\\servername\home","false",objNetwork.UserName
End If
WScript.Quit
' End of example VBScript .
כל קבוצע נמצאת בסיגמנט אחר באתר.
אני לא רוצה שהמשתמשים ש"יוצאים" מהסיגמנט שלהם לאתר אחר יעלו אם ה USER שלנם ויקבצו מיפוי .
עוד הסבר.
USER עובד בסיגמנט מסויים ששיך למחלקה XXX זה מקום העבודה הקבוע שלו ובו מוגדר לא מיפוי לשרת קבצים וכ"ו.
אותו USER הלך לישיבה באתר אחר בחברה (סיגמנט אחר) ומעלה את ה USER שלו.....אני לא רוצה שבאתר הזה הוא יקבל את המיפויים הרלוונטים.
בקיצור - אני רוצה לקבוע IP או טווח כתובות לכל קבוצה שתזדהה מול AC .
נערך לאחרונה ע"י eyal-r בתאריך 17-05-2009 בשעה 05:26.
|