Descubra a que agrupe a usuario referido dentro de una escritura de la conexión pertenece.
|
|
Las escrituras de la conexión son útiles para traz impulsiones de modo que los usuarios puedan almacenar sus archivos del trabajo en localizaciones estándares en los servidores de archivo de la red. Sería agradable poder traz las impulsiones basadas en una calidad de miembro de grupo de usuario, y eso es sobre cuál está este corte. Poniendo una información de la calidad de miembro de grupo de usuario en un objeto del diccionario, usted puede descubrir rápidamente si un usuario es un miembro de un grupo y entonces realizar acciones (tales como traz impulsiones) si son. La escritura en este corte permite que usted logre esto y más.
Esta escritura comprueba rápidamente para considerar si un usuario es un miembro de un grupo particular. Lee a miembro de la información de la lengüeta para la cuenta y los lugares del usuario él en un objeto del diccionario, porque un objeto del diccionario ofrece el acceso rápido y fácil a la información de la calidad de miembro de grupo. Si el usuario es un miembro del grupo especificado, una caja de diálogo le dirá tan.
Para utilizar esta escritura, mecanografíela en la libreta (con el abrigo de palabra inhabilitado) y ahórrela con una extensión de los vbs como CheckMembership.vbs.
Declaraciones explícitos ' de la fuerza explícita de la opción
'
' variables
'
WSHNetwork Dévil
FSO Dévil
Usuario actual del strUserName dévil '
Domain Name del usuario actual dévil del strUserDomain '
Diccionario de ObjGroupDict dévil ' de los grupos a quienes el usuario pertenece
Fije WSHNetwork =
WScript.CreateObject("WScript.Network")
Fije FSO =
CreateObject("Scripting.FileSystemObject")
'
' espere hasta que entran al usuario realmente...
'
strUserName = ""
Mientras que strUserName = ""
Th 1/10 de WScript.Sleep 100 ' de un segundo
strUserName = WSHNetwork.UserName
Wend
strUserDomain = WSHNetwork.UserDomain
' lea la cuenta "miembro del usuario" de la lengüeta Info a través de la red
' una vez en un objeto del diccionario.
Fije ObjGroupDict = CreateMemberOfObject(strUserDomain, strUserName)
Si MemberOf(ObjGroupDict, "Dominio Admins") Entonces
wscript.echo "es un miembro del dominio Admins."
' REM esta línea para traz impulsiones de la red
la ' red del mapa conduce aquí, UNREM abajo alinea:
' WSHNetwork.MapNetworkDrive "O:", "\\server1\share"
' WSHNetwork.MapNetworkDrive "Q:", "\\server2\share"
wscript.echo "no es un miembro del dominio Admins"
Termine Si
Función MemberOf(ObjDict, strKey)
' dado un objeto del diccionario que contiene a los grupos a quienes el usuario
' es un miembro de y un nombre de grupo, entonces vuelve verdad si el grupo
' está en la vuelta del diccionario falsa.
'
' entradas:
' strDict - entrada, nombre de un objeto del diccionario
' strKey - entrada, valor que es buscado para adentro
' el objeto del diccionario
' Uso De la Muestra:
'
' Si MemberOf(ObjGroupDict, "DOMINIO ADMINS") Entonces
' wscript.echo "es un miembro del dominio Admins."
' Termine Si
'
'
MemberOf = CBool(ObjGroupDict.Exists(strKey))
Función Del Final
Función CreateMemberOfObject(strDomain, strUserName)
' dado un Domain Name y un username, vueltas un diccionario
' objeto de los grupos a quienes el usuario es un miembro.
'
' entradas:
'
' strDomain - entrada, Domain Name del NT
' strUserName - entrada, username del NT
'
ObjUser dévil, objGroup
Fije CreateMemberOfObject =
CreateObject("Scripting.Dictionary")
CreateMemberOfObject.CompareMode = vbTextCompare
Fije el objUser = GetObject("WinNT://" _
y strDomain y "/" _
y strUserName y ", usuario")
Para cada objGroup en objUser.Groups
CreateMemberOfObject.Add objGroup.Name, "-"
Después
Fije el objUser = nada
Termine La Función
Para traz las impulsiones basadas en un diverso grupo de usuario que el dominio Admins modifican esta línea según lo requerido:
Si MemberOf(ObjGroupDict, "Dominio Admins") Entonces
Por ejemplo, si usted desea traz las impulsiones basadas encendido si los usuarios son miembros de un grupo global nombrado el uso de Sales esta línea en lugar de otro:
Si MemberOf(ObjGroupDict, "Ventas") Entonces
Para traz impulsiones en vez de exhibir una caja de mensaje, comente fuera de la línea siguiente:
wscript.echo "es un miembro del dominio Admins." ' REM esta línea para traz impulsiones de la red
y uncomment estas líneas:
' WSHNetwork.MapNetworkDrive "O:", "\\server1\share" ' WSHNetwork.MapNetworkDrive "Q:", "\\server2\share"
especificando letras de impulsión y las trayectorias de UNC como apropiado dependiendo de su propio ambiente del establecimiento de una red. Por ejemplo, traz la letra de impulsión K: a una carpeta compartida nombrada Reports sobre uso del servidor de archivo fs3.mtit.com esta línea en vez del antedicho:
WSHNetwork.MapNetworkDrive "K:","\\fs3.mtit.com\Reports
|
|