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:
6:
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:
|
on Störungszusammenfassung zunächst
objSysInfo = CreateObject („ADSystemInfo“) 'einstellen zurückholt ANZEIGEN-Info-Beispiel: CN=Users, OU=Ft_collins, dc=aei, dc=com
objNetwork = CreateObject („Wscript.Network“) einstellen
strUser = objSysInfo.UserName
objUser = GetObject einstellen („LDAP: /“ u. strUser) 'Bindung oben zum aktiven Verzeichniskonto dieses Benutzers
strUserName = objUser.samAccountName 'feststellt Benutzernamen des Benutzers llt und speichert ihn in einer Variable
strOUPath = objUser.Parent
arrContainers = aufspalteten (strOUPath, „, ")
arrOU = aufspaltete (arrContainers (1), „=")
strOU = arrOU (1)
Schwaches GroupObj
Fall strOU vorwählen
„Aufstellungsort 1“ umkleiden
strDriveH = „\ \ Bediener 1 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
strDriveG = „\ \ Bediener 1 \ Gruppen“ 'Sätze strDriveG Variable zu den Gruppen fahren Position
strDriveP = „\ \ Bediener 1 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
strDriveX = „\ \ Bediener 2 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
strDriveI = „\ \ Bediener 3 \ Gruppen“ 'Sätze strDriveI Variable zu den Technik-Gruppen fahren Position
Für jedes GroupObj in objUser.Groups 'abbildet das I: Antrieb basiert auf dem Gruppe memebership zu ENGLISCH
wenn (StrComp (GroupObj.cn, „ENGLISCH“) = 0) dann
objNetwork.RemoveNetworkDrive „ich: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zu mir fahren
objNetwork.MapNetworkDrive „ich: “, strDriveI 'Diagramme, die ich fahre
beenden wenn
Zunächst
Fall „Aufstellungsort 2“
strDriveH = „\ \ Bediener 4 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
strDriveP = „\ \ Bediener 4 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
strDriveX = „\ \ Bediener 4 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
strDriveG = „\ \ Bediener 4 \ Gruppen“ 'Sätze strDriveG Variable zu den Gruppen fahren Position
Fall „Aufstellungsort 3“
strDriveH = „\ \ Bediener 5 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
strDriveG = „\ \ Bediener 5 \ Gruppen“ 'Sätze strDriveG Variable zu den Gruppen fahren Position
strDriveP = „\ \ Bediener 5 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
strDriveX = „\ \ Bediener 5 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
Fall „Aufstellungsort 4“
strDriveH = „\ \ Bediener 6 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
'strDriveG = „\ \ Bediener 6 \ Gruppen“ 'Sätze strDriveG Variable zu den Gruppen fahren Position
strDriveP = „\ \ Bediener 6 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
strDriveX = „\ \ Bediener 6 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
Fall „Aufstellungsort 5“
strDriveH = „\ \ Bediener 7 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
strDriveG = „\ \ Bediener 7 \ Gruppen“ 'Sätze strDriveG Variable zu den Gruppen fahren Position
strDriveP = „\ \ Bediener 7 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
'strDriveX = „\ \ Bediener 7 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
strDriveY = „\ \ Bediener 1 \ Gruppen“ 'Sätze strDriveY Variable zu den Buchhaltung-Gruppen fahren Position
Für jedes GroupObj in objUser.Groups 'abbildet das Y: Antrieb basiert auf der Gruppenmitgliedschaft zu Public_She_Finance
wenn (StrComp (GroupObj.cn, „Public_She_Finance“) = 0) dann
objNetwork.RemoveNetworkDrive „Y: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zum y-Antrieb
objNetwork.MapNetworkDrive „Y: “, strDriveY 'Antrieb der Diagramm-Y
beenden wenn
Zunächst
Fall „Aufstellungsort 6“
strDriveH = „\ \ Bediener 8 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
strDriveP = „\ \ Bediener 8 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
strDriveX = „\ \ Bediener 2 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
strDriveG = „\ \ Bediener 8 \ Gruppen“ 'Sätze strDriveG Variable zu den Gruppen fahren Position
'objNetwork.RemoveNetworkDrive „V: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zum v-Antrieb
'objNetwork.MapNetworkDrive „V: “, strDriveX 'Antrieb der Diagramm-V
'objNetwork.RemoveNetworkDrive „ich: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zu mir fahren
'objNetwork.MapNetworkDrive „ich: “, strDriveX 'Diagramme, die ich fahre
'objNetwork.RemoveNetworkDrive „M: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zum m-Antrieb
'objNetwork.MapNetworkDrive „M: “, strDriveX 'Antrieb der Diagramm-M
'objNetwork.RemoveNetworkDrive „F: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zum f-Antrieb
'objNetwork.MapNetworkDrive „F: “, strDriveX 'Antrieb der Diagramm-F
Fall „Aufstellungsort 7“
strDriveH = „\ \ Bediener 9 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
strDriveG = „\ \ Bediener 9 \ Gruppen“ 'Sätze strDriveG Variable zur Gruppen-Antriebsposition
strDriveP = „\ \ Bediener 9 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
strDriveX = „\ \ Bediener 2 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
Fall „Aufstellungsort 8“
strDriveH = „\ \ Bediener 10 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
strDriveG = „\ \ Bediener 10 \ Gruppen“ 'Sätze strDriveG Variable zur Gruppen-Antriebsposition
strDriveP = „\ \ Bediener 10 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
strDriveX = „\ \ Bediener 10 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
Fall „Aufstellungsort 9“
strDriveH = „\ \ Bediener 11 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
strDriveG = „\ \ Bediener 11 \ Gruppen“ 'Sätze strDriveG Variable zur Gruppen-Antriebsposition
strDriveP = „\ \ Bediener 11 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
strDriveX = „\ \ Bediener 11 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
Fall „Aufstellungsort 10“
strDriveH = „\ \ Bediener 1 \ Benutzer \“ u. strUserName 'Sätze strDriveH Variable zur Haupt-Antriebsposition
strDriveG = „\ \ Bediener 1 \ Gruppen“ 'Sätze strDriveG Variable zur Gruppen-Antriebsposition
strDriveP = „\ \ Bediener 1 \ Öffentlichkeit“ 'Sätze strDriveP Variable zur allgemeinen Antriebsposition
strDriveX = „\ \ Bediener 2 \ applic“ 'Sätze strDriveX Variable zur Applic Antriebsposition
Fall „Aufstellungsort 11“
'Antriebe auf Anfrage manuell abbilden
„Aufstellungsort 12“ umkleiden
'msgbox „Diagramm Ihre Selbst fährt Slacker! “, vbinformation
Fall sonst
Ende auserwählt
'Uncomment die folgenden Linien für Prüfung
'msgbox „Ihr gegenwärtiger OU ist -“ u. strOU u. Chr (13) u. Chr (10) u. „einstellte H te: zu -“ u. strDriveH u. Chr (13) u. Chr (10) u. „einstellte G te: zu -“ u. strDriveG u. Chr (13) u. Chr (10) 'u. „P einstellen: zu -“ u. strDriveP u. Chr (13) u. Chr (10) u. „einstellte X te: zu -“ u. strDriveX, vbInformation
'objNetwork.RemoveNetworkDrive „H: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zum h-Antrieb
objNetwork.RemoveNetworkDrive „G: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zum G-Antrieb
objNetwork.RemoveNetworkDrive „P: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zum p-Antrieb
objNetwork.RemoveNetworkDrive „X: “, Zutreffend, zutreffend 'entfernt das vorhergehende Diagramm zum x-Antrieb
WScript.Sleep 500
objNetwork.MapNetworkDrive „H: “, strDriveH 'Antrieb der Diagramm-H
objNetwork.MapNetworkDrive „G: “, strDriveG 'Diagrammeg-Antrieb
objNetwork.MapNetworkDrive „P: “, strDriveP 'Antrieb der Diagramm-P
objNetwork.MapNetworkDrive „X: “, strDriveX 'Antrieb der Diagramm-X
|
