Questione : La parola d'accesso di domanda dell'assistente 2003 di Windows - LDAP - espira - VBS

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:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:

 allora
			"" Di ShowProgress
 
			Regolare il objUserLDAP = GetObject (arrMembers (i))
				intUACvalue = objUserLDAP.Get (“userAccountControl„)
			
			Se intUACvalue e _EXPIRE_PASSWD di ADS_UF_DO NON allora
				ShowProgress objUserLDAP.sAMAccountName
				ShowProgress “parola d'accesso non espira„
			Altrimenti
				dtmPwdChanged = objUserLDAP.PasswordLastChanged 
				iTimeInterval = CInt (ora - dtmPwdChanged)
				iMaxPwdAge = GetMaxPwdAge
				
				
					ShowProgress objUserLDAP.sAMAccountName 
					ShowProgress “parola d'accesso l'ultima volta è stato cambiato„ & dtmPwdChanged
					ShowProgress “che era„ & iTimeInterval & “i giorni fa„
 
				Se iMaxPwdAge < 0 allora
					ShowProgress “parola d'accesso non espira (età massima di parola d'accesso della politica di dominio fissata a 0)„
				Altrimenti
					ShowProgress “l'età massima di parola d'accesso di politica di dominio è„ & iMaxPwdAge & “i giorni„
		
					Se iMaxPwdAge iTimeInterval del >= allora
						ShowProgress “la parola d'accesso ha espirato.„
					Altrimenti
						ShowProgress “la parola d'accesso espirerà in„ & CInt ((dtmPwdChanged + iMaxPwdAge) - ora ()) & “giorni„
					Concluder se
				
				Concluder se 'iMaxPwdAge
			Concluder se 'intUACvalue
 
		Concluder se 
	Dopo 'arrMembers
 
Sommergibile 'PwdExpiryInfo dell'estremità
 
 
Funzione GetMembers (strGroup)
'Versione 1.4
'Scritto da Krystian Karia
'04/05/2009 datato
 
'Restituisce il percorso di LDAP di ciascuno
'utente dal gruppo dato
 
'Errori noi stessi del fermo
 	Sul riassunto di errore dopo
 
'Dichiarare le variabili
    Oscurare il oGroup, oUser
    Oscurare lo strName
    Oscurare i arrUsers
    
'Controllare i parametri
	    Se strGroup = "" allora
			GetMembers = posizione di segnale minimo
	        Uscire la funzione
	    Concluder se
 
'Legare per raggruppare using il connettore corretto di ADSI
    Regolare il oGroup = GetObject (“LDAP: /„ & strGroup)
		Se <> 0 di Err.Number allora
			Err.Clear
			ShowProgress “un errore ha accaduto legando al gruppo„ & allo strGroup
			GetMembers = posizione di segnale minimo
        	Uscire la funzione
		Concluder se
 
 
'Collegare i membri in circuito del gruppo
		Per ogni oUser in oGroup.Members
	        strName = strName & oUser.ADsPath & vbNewLine
	    Dopo
 
'Generare un allineamento dei membri
		Se "" del <> della disposizione (strName) allora
			i arrUsers = hanno spaccato (strName, vbNewLine)
			GetMembers = arrUsers
		Altrimenti
			GetMembers = posizione di segnale minimo
		Concluder se
 
	Err.Clear
 
 Concludere la funzione 'GetMembers
 
 
Funzione GetMaxPwdAge ()
'Versione 1.0
 
'Restituisce l'età massima di parola d'accesso
'che è regolato solitamente nel GPO
'ha chiamato “la politica di dominio di difetto„
 
'Errori noi stessi del fermo
 	Sul riassunto di errore dopo
 
'Dichiarare le variabili
	Oscurare il oRootDSE, il oDomain, oMaxPwdAge
	Oscurare il lngHighPart, lngLowPart
	Oscurare lo strDomainDN
 
'Ottenere il dominio corrente DN
	Regolare il oRootDSE = GetObject (“LDAP: //RootDSE„)
		strDomainDN = oRootDSE.Get (“DefaultNamingContext„)
 
'Legatura al dominio corrente
	Regolare il oDomain = GetObject (“LDAP: /„ & strDomainDN)
		Regolare il oMaxPwdAge = oDomain.MaxPwdAge
 
'Convincere le 2 parti del valore Integer8 per ottenere i 2 32 valori del bit
	lngHighPart = oMaxPwdAge.HighPart
	lngLowPart = oMaxPwdAge.LowPart
 
'Se il LowPart è di meno di 0 allora che ned per aggiungere 1 al HighPart
		Se (lngLowPart < 0) allora
			lngHighPart = lngHighPart + 1
		Concluder se
	
'Restituire il valore in giorni
		GetMaxPwdAge = - ((lngHighPart * 2^32) +)/(del lngLowPart 600000000 * 1440)
 
 
Funzione 'GetMaxPwdAge di conclusione
 
 
ShowProgress secondario (sComment)
 
	sComment di WScript.Echo
 
Sommergibile dell'estremità
 
EndScript secondario
 
	WScript.Quit
	
Sommergibile dell'estremità