class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
120 :
121 :
122 :
123 :
124 :
125 :
126 :
127 :
128 :
129 :
130 :
131 :
132 :
133 :
134 :
135 :
136 :
137 :
138 :
139 :
140 :
141 :
142 :
143 :
144 :
145 :
146 :
147 :
|
class= de
résumé " de " codeSnippet861725 d'id= " de on de class= après
Placer l'objSysInfo = le CreateObject (« ADSystemInfo ») 'recherche l'exemple d'information d'ANNONCE : CN=Users, OU=Ft_collins, dc=aei, dc=com
Placer l'objNetwork = le CreateObject (« Wscript.Network »)
strUser = objSysInfo.UserName
Placer l'objUser = le GetObject (« LDAP : / » et grippage de strUser) 'ci-dessus au compte actif de l'annuaire de cet utilisateur
le strUserName = l'objUser.samAccountName 'détermine le nom de connexion de l'utilisateur et le stocke dans une variable
strOUPath = objUser.Parent
les arrContainers = se sont dédoublés (strOUPath, « , ")
l'arrOU = s'est dédoublé (arrContainers (1), « =")
strOU = arrOU (1)
Faible GroupObj
Choisir le strOU de cas
Enfermer le « emplacement 1 »
strDriveH = « \ \ serveur 1 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
le strDriveG = « \ \ serveur 1 \ groupes » 'variable de strDriveG d'ensembles aux groupes conduisent l'endroit
strDriveP = « \ \ serveur 1 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
strDriveX = « \ \ serveur 2 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
le strDriveI = « \ \ serveur 3 \ groupes » 'variable de strDriveI d'ensembles aux groupes de technologie conduisent l'endroit
Pour chaque GroupObj dans objUser.Groups 'trace l'I : Commande basée sur le memebership de groupe à l'ANGLAIS
si (StrComp (GroupObj.cn, le « ANGLAIS ») = 0) puis
objNetwork.RemoveNetworkDrive « je : », Vrai, vrai 'enlève la cartographie précédente sur moi conduisent
objNetwork.MapNetworkDrive « je : », cartes de strDriveI 'que je conduis
finir si
Après
Cas « emplacement 2 »
strDriveH = « \ \ serveur 4 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
strDriveP = « \ \ serveur 4 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
strDriveX = « \ \ serveur 4 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
le strDriveG = « \ \ serveur 4 \ groupes » 'variable de strDriveG d'ensembles aux groupes conduisent l'endroit
Cas « emplacement 3 »
strDriveH = « \ \ serveur 5 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
le strDriveG = « \ \ serveur 5 \ groupes » 'variable de strDriveG d'ensembles aux groupes conduisent l'endroit
strDriveP = « \ \ serveur 5 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
strDriveX = « \ \ serveur 5 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
Cas « emplacement 4 »
strDriveH = « \ \ serveur 6 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
le 'strDriveG = « \ \ serveur 6 \ groupes » 'variable de strDriveG d'ensembles aux groupes conduisent l'endroit
strDriveP = « \ \ serveur 6 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
strDriveX = « \ \ serveur 6 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
Cas « emplacement 5 »
strDriveH = « \ \ serveur 7 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
le strDriveG = « \ \ serveur 7 \ groupes » 'variable de strDriveG d'ensembles aux groupes conduisent l'endroit
strDriveP = « \ \ serveur 7 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
'strDriveX = « \ \ serveur 7 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
le strDriveY = « \ \ serveur 1 \ groupes » 'variable de strDriveY d'ensembles aux groupes de comptabilité conduisent l'endroit
Pour chaque GroupObj dans objUser.Groups 'trace le Y : Commande basée sur l'adhésion de groupe à Public_She_Finance
si (StrComp (GroupObj.cn, « Public_She_Finance ») = 0) puis
objNetwork.RemoveNetworkDrive « Y : », Vrai, vrai 'enlève la cartographie précédente sur la commande de Y
objNetwork.MapNetworkDrive « Y : », commande des cartes Y de strDriveY '
finir si
Après
Cas « emplacement 6 »
strDriveH = « \ \ serveur 8 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
strDriveP = « \ \ serveur 8 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
strDriveX = « \ \ serveur 2 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
le strDriveG = « \ \ serveur 8 \ groupes » 'variable de strDriveG d'ensembles aux groupes conduisent l'endroit
'objNetwork.RemoveNetworkDrive « V : », Vrai, vrai 'enlève la cartographie précédente sur la commande de V
'objNetwork.MapNetworkDrive « V : », commande des cartes V de strDriveX '
'objNetwork.RemoveNetworkDrive « je : », Vrai, vrai 'enlève la cartographie précédente sur moi conduisent
'objNetwork.MapNetworkDrive « je : », cartes de strDriveX 'que je conduis
'objNetwork.RemoveNetworkDrive « M : », Vrai, vrai 'enlève la cartographie précédente sur la commande de M
'objNetwork.MapNetworkDrive « M : », commande des cartes M de strDriveX '
'objNetwork.RemoveNetworkDrive « F : », Vrai, vrai 'enlève la cartographie précédente sur la commande de F
'objNetwork.MapNetworkDrive « F : », commande des cartes F de strDriveX '
Cas « emplacement 7 »
strDriveH = « \ \ serveur 9 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
strDriveG = « \ \ serveur 9 \ groupes » 'variable de strDriveG d'ensembles à l'endroit d'entraînement de groupes
strDriveP = « \ \ serveur 9 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
strDriveX = « \ \ serveur 2 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
Cas « emplacement 8 »
strDriveH = « \ \ serveur 10 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
strDriveG = « \ \ serveur 10 \ groupes » 'variable de strDriveG d'ensembles à l'endroit d'entraînement de groupes
strDriveP = « \ \ serveur 10 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
strDriveX = « \ \ serveur 10 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
Cas « emplacement 9 »
strDriveH = « \ \ serveur 11 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
strDriveG = « \ \ serveur 11 \ groupes » 'variable de strDriveG d'ensembles à l'endroit d'entraînement de groupes
strDriveP = « \ \ serveur 11 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
strDriveX = « \ \ serveur 11 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
Cas « emplacement 10 »
strDriveH = « \ \ serveur 1 \ utilisateurs variable de strDriveH d'ensembles \ » et de strUserName 'à l'endroit à la maison d'entraînement
strDriveG = « \ \ serveur 1 \ groupes » 'variable de strDriveG d'ensembles à l'endroit d'entraînement de groupes
strDriveP = « \ \ serveur 1 \ public » 'variable de strDriveP d'ensembles à l'endroit public d'entraînement
strDriveX = « \ \ serveur 2 \ » 'variable applic de strDriveX d'ensembles à l'endroit d'entraînement d'Applic
Cas « emplacement 11 »
'Tracer manuellement les commandes sur demande
Enfermer le « emplacement 12 »
'carte de msgbox la « vos propres conduit le slacker ! », vbinformation
Cas autrement
Extrémité choisie
'Uncomment les lignes suivantes pour l'essai
le 'msgbox « votre OU courante est - » et strOU et Chr (13) et Chr (10) et « a placé H : - » et strDriveH et Chr (13) et Chr (10) et « a placé G : - » et strDriveG et Chr (13) et Chr (10) 'et « placer P : - » et strDriveP et Chr (13) et Chr (10) et « a placé X : - » et strDriveX, vbInformation
'objNetwork.RemoveNetworkDrive « H : », Vrai, vrai 'enlève la cartographie précédente sur la commande de H
objNetwork.RemoveNetworkDrive « G : », Vrai, vrai 'enlève la cartographie précédente sur la commande de G
objNetwork.RemoveNetworkDrive « P : », Vrai, vrai 'enlève la cartographie précédente sur la commande de P
objNetwork.RemoveNetworkDrive « X : », Vrai, vrai 'enlève la cartographie précédente sur la commande de X
WScript.Sleep 500
objNetwork.MapNetworkDrive « H : », commande des cartes H de strDriveH '
objNetwork.MapNetworkDrive « G : », commande des cartes G de strDriveG '
objNetwork.MapNetworkDrive « P : », commande des cartes P de strDriveP '
objNetwork.MapNetworkDrive « X : », commande des cartes X de strDriveX '
|
