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:
|
" codeBody "
de on hervat daarna
Vastgestelde objSysInfo = CreateObject („ADSystemInfo“) 'wint van de ADVERTENTIE info- voorbeeld terug: CN=Users, OU=Ft_collins, dc=aei, dc=com
Reeks objNetwork = CreateObject („Wscript.Network“)
strUser = objSysInfo.UserName
Reeks objUser = GetObject („LDAP: /“ & strUser) 'bind hierboven aan rekening van de Folder van die gebruiker de Actieve
strUserName = bepaalt objUser.samAccountName 'de openings van een sessienaam van de Gebruiker en slaat het in een variabele op
strOUPath = objUser.Parent
arrContainers = verdelen (strOUPath, „,“)
arrOU = verdeel (arrContainers (1), „=“)
strOU = arrOU (1)
Schemerige GroupObj
Selecteer Geval strOU
Geval „Plaats 1“
strDriveH = „\ \ de server 1 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
strDriveG = „\ \ de server 1 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
strDriveP = „\ \ de server 1 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
strDriveX = „\ \ de server 2 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
strDriveI = „\ \ de server 3 groepen \“ 'plaatst strDriveI variabele aan de aandrijvingsplaats van de Groepen van de Techniek
Voor Elke GroupObj in 'Kaarten objUser.Groups I: Aandrijving op groepsmemebership aan ENG wordt gebaseerd die
als (StrComp (GroupObj.cn, „ENG“) = 0) toen
objNetwork.RemoveNetworkDrive „I: “, Waar, Waar 'verwijdert vorige afbeelding aan ik drijven
objNetwork.MapNetworkDrive „I: “, strDriveI 'Kaarten die ik heb gedreven
beëindig als
Daarna
Geval „Plaats 2“
strDriveH = „\ \ de server 4 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
strDriveP = „\ \ de server 4 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
strDriveX = „\ \ de server 4 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
strDriveG = „\ \ de server 4 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
Geval „Plaats 3“
strDriveH = „\ \ de server 5 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
strDriveG = „\ \ de server 5 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
strDriveP = „\ \ de server 5 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
strDriveX = „\ \ de server 5 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
Geval „Plaats 4“
strDriveH = „\ \ de server 6 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
'strDriveG = „\ \ de server 6 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
strDriveP = „\ \ de server 6 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
strDriveX = „\ \ de server 6 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
Geval „Plaats 5“
strDriveH = „\ \ de server 7 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
strDriveG = „\ \ de server 7 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
strDriveP = „\ \ de server 7 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
'strDriveX = „\ \ de server 7 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
strDriveY = „\ \ de server 1 groepen \“ 'plaatst strDriveY variabele aan de aandrijvingsplaats van de Groepen van de Boekhouding
Voor Elke GroupObj in 'Kaarten objUser.Groups Y: Aandrijving op het groepslidmaatschap aan Public_She_Finance wordt gebaseerd die
als (StrComp (GroupObj.cn, „Public_She_Finance“) = 0) toen
objNetwork.RemoveNetworkDrive „Y: “, Waar, Waar 'verwijdert vorige afbeelding aan de Aandrijving van Y
objNetwork.MapNetworkDrive „Y: “, strDriveY de 'Aandrijving van Kaarten Y
beëindig als
Daarna
Geval „Plaats 6“
strDriveH = „\ \ de server 8 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
strDriveP = „\ \ de server 8 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
strDriveX = „\ \ de server 2 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
strDriveG = „\ \ de server 8 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
'objNetwork.RemoveNetworkDrive „V: “, Waar, Waar 'verwijdert vorige afbeelding aan de Aandrijving van V
'objNetwork.MapNetworkDrive „V: “, strDriveX 'Kaarten V Aandrijving
'objNetwork.RemoveNetworkDrive „I: “, Waar, Waar 'verwijdert vorige afbeelding aan ik drijven
'objNetwork.MapNetworkDrive „I: “, strDriveX 'Kaarten die ik heb gedreven
'objNetwork.RemoveNetworkDrive „M: “, Waar, Waar 'verwijdert vorige afbeelding aan de Aandrijving van M
'objNetwork.MapNetworkDrive „M: “, strDriveX de 'Aandrijving van Kaarten M
'objNetwork.RemoveNetworkDrive „F: “, Waar, Waar 'verwijdert vorige afbeelding aan de Aandrijving van F
'objNetwork.MapNetworkDrive „F: “, strDriveX de 'Aandrijving van Kaarten F
Geval „Plaats 7“
strDriveH = „\ \ de server 9 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
strDriveG = „\ \ de server 9 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
strDriveP = „\ \ de server 9 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
strDriveX = „\ \ de server 2 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
Geval „Plaats 8“
strDriveH = „\ \ de server 10 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
strDriveG = „\ \ de server 10 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
strDriveP = „\ \ de server 10 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
strDriveX = „\ \ de server 10 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
Geval „Plaats 9“
strDriveH = „\ \ de server 11 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
strDriveG = „\ \ de server 11 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
strDriveP = „\ \ de server 11 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
strDriveX = „\ \ de server 11 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
Geval „Plaats 10“
strDriveH = „\ \ de server 1 \ Gebruikers \“ & strUserName 'plaatst strDriveH variabele aan de aandrijvingsplaats van het Huis
strDriveG = „\ \ de server 1 groepen \“ 'plaatst strDriveG variabele aan de aandrijvingsplaats van Groepen
strDriveP = „\ \ de server 1 publiek \“ 'plaatst strDriveP variabele aan Openbare aandrijvingsplaats
strDriveX = „\ \ de server 2 applic \“ 'plaatst strDriveX variabele aan Applic aandrijvingsplaats
Geval „Plaats 11“
'Manueel op verzoek drijft de kaart
Geval „Plaats 12“
'msgbox „Kaart uw eigen slappere aandrijving! “, vbinformation
Geval anders
Uitgezocht eind
'Uncomment de volgende lijnen voor het testen
'msgbox „Uw huidige OU is -“ & strOU & Chr (13) & Chr (10) & „plaats H: -“ & strDriveH & plaatsen Chr (13) & Chr (10) & „G: -“ & strDriveG & plaatsen Chr (13) & Chr (10) '& „P: -“ & strDriveP & plaatsen Chr (13) & Chr (10) & „X: -“ & strDriveX, vbInformation
'objNetwork.RemoveNetworkDrive „H: “, Waar, Waar 'verwijdert vorige afbeelding aan de Aandrijving van H
objNetwork.RemoveNetworkDrive „G: “, Waar, Waar 'verwijdert vorige afbeelding aan de Aandrijving van G
objNetwork.RemoveNetworkDrive „P: “, Waar, Waar 'verwijdert vorige afbeelding aan de Aandrijving van P
objNetwork.RemoveNetworkDrive „X: “, Waar, Waar 'verwijdert vorige afbeelding aan de Aandrijving van X
WScript.Sleep 500
objNetwork.MapNetworkDrive „H: “, strDriveH de 'Aandrijving van Kaarten H
objNetwork.MapNetworkDrive „G: “, strDriveG 'de Aandrijving van G van Kaarten
objNetwork.MapNetworkDrive „P: “, strDriveP de 'Aandrijving van Kaarten P
objNetwork.MapNetworkDrive „X: “, strDriveX 'Kaarten X Aandrijving
|
