Fråga : Lösenordet för queryen för den Windows serveren 2003 - LDAP - förfaller - VBS

Jag använde efter ifrågasätta som en vägleda. Förmiddag som I har problem få den till href= " http://www.experts-exchange.com/Software/Server_Software/File_Servers/Active_Directory/Q_24376977.html?sfQueryTermInfo=1+10+30+expir+password+vb+window " för work.

======

ware/Server_Software/File_Servers/Active_Directory/Q_24376977.html för http://www.experts-exchang e.com/Soft? sfQueryTermInfo=1+10+30+expir+password+vb+window

======

If jag ändrar sGroupen (fodra 32), till CN=Users, eller något jag får upp en kontroll din grupppop.  Jag ser inte hur till röran till LDAPEN, även om I-förmiddagen undertecknade in som administratören.  Om jag använder LDP mig, måste röran att få den för att visa att min AD.

I har reposted kodifiera med min ändringar och felmeddelandet som jag får.  Jag postade också min LDP ställer in inneslutar I-förmiddag precis en idiot och filename inte " för class= för >
" s >LDAP-2.JPG som (13 KB) " javascript för href= " för <-/span>Error<-/div>
class=


Right " " för >
<-/div>

Any får detta arbete, är " för
filename " för class= för >
 LDAP-1.JPG som (216 KB) " javascript för href= " för <-/span>LDP<-/div>
class= för 328493
<-/div>
" " för >
<-/div> > för 
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:
" codeBody " " >Option för class= " för "" för arrMembers (I) därefter ShowProgress "", Fastställd objUserLDAP = GetObject (arrMembers (I)) intUACvalue = objUserLDAP.Get (”userAccountControlen”) Om intUACvalue och _EXPIRE_PASSWD för ADS_UF_DO INTE därefter ShowProgress objUserLDAP.sAMAccountName ShowProgress ”lösenord förfaller inte”, Annars dtmPwdChanged = objUserLDAP.PasswordLastChanged iTimeInterval = CInt (nu - dtmPwdChanged) iMaxPwdAge = GetMaxPwdAge ShowProgress objUserLDAP.sAMAccountName ShowProgress ”lösenord ändrades” & dtmPwdChanged sist ShowProgress ”som var” & iTimeInterval & ”dagar sedan”, Om iMaxPwdAge < 0 därefter ShowProgress ”lösenord förfaller inte (områdespolitiks maximat uppsättningen för ålder för lösenord till 0)”, Annars ShowProgress ”åldern för lösenordet för områdespolitik den max är” & iMaxPwdAge & ”dagar”, Om iTimeInterval >=iMaxPwdAge därefter ShowProgress, ”som lösenordet har förfallit.”, Annars ShowProgress, ”som det ska lösenordet förfaller i” & dtmPwdChanged CInt ((+ iMaxPwdAge) - nu ()) & ”dagar”, Avsluta om Avsluta om 'iMaxPwdAge Avsluta om 'intUACvalue Avsluta om Därefter 'arrMembers Avsluta suben 'PwdExpiryInfo Fungera GetMembers (strGroup) 'Version 1.4 'Skriftligt vid Krystian Karia 'Daterade 04/05/2009 'Går LDAP-banan av varje tillbaka 'användare från den givna gruppen 'Fånga fel oss själva På felmeritförteckning därefter 'Förklara variabler Dunkel oGroup, oUser Dunkel strName Dunkla arrUsers 'Kontrollera parametrar Om strGroup = "" därefter GetMembers = ogiltigt Gå ut fungerar Avsluta om 'Röra som ska grupperas using det korrekta ADSI-kontaktdonet Fastställd oGroup = GetObject (”LDAP: /” & strGroup) Om Err.Number-<> 0 därefter Err.Clear ShowProgress ”ett fel uppstod bandet till gruppen” & strGroup GetMembers = ogiltigt Gå ut fungerar Avsluta om 'Kretsa gruppmedlemmar För varje oUser i oGroup.Members strName = strName & oUser.ADsPath & vbNewLine Därefter 'Skapa en samling av medlemmar Om <>"" för klippning (strName) därefter arrUsers = splittring (strName, vbNewLinen) GetMembers = arrUsers Annars GetMembers = ogiltigt Avsluta om Err.Clear Avsluta fungerar 'GetMembers Fungera GetMaxPwdAge () 'Version 1.0 'Går maximat tillbaka lösenordålder 'som är vanligt fastställd i GPOEN 'namngav ”standardområdespolitik”, 'Fånga fel oss själva På felmeritförteckning därefter 'Förklara variabler Dunkel oRootDSE, oDomain, oMaxPwdAge Dunkel lngHighPart, lngLowPart Dunkel strDomainDN 'Få strömområdet DN Fastställd oRootDSE = GetObject (”LDAP: //RootDSE”) strDomainDN = oRootDSE.Get (”DefaultNamingContext”) 'Röra till strömområdet Fastställd oDomain = GetObject (”LDAP: /” & strDomainDN) Fastställd oMaxPwdAge = oDomain.MaxPwdAge 'Få de 2 delarna av Integer8en värderar för att få 2 32 bet värderar lngHighPart = oMaxPwdAge.HighPart lngLowPart = oMaxPwdAge.LowPart 'Om LowParten är mindre än, 0, därefter som vi ned för att tillfoga 1 till HighParten Om (lngLowPart < 0) därefter lngHighPart = lngHighPart + 1 Avsluta om 'Gå värdera i dagar tillbaka GetMaxPwdAge = - ((lngHighPart * 2^32) +) för lngLowPart/(600000000 * 1440) Avsluta fungerar 'GetMaxPwdAge Sub ShowProgress (sCommenten) WScript.Echo-sComment Avsluta suben Sub EndScript WScript.Quit Avsluta suben
" klar "

Svar : Lösenordet för queryen för den Windows serveren 2003 - LDAP - förfaller - VBS

Ledset jag överförde som fastar för.
Ändring: Fastställdt objTextFile = objFSO.OpenTextFile (”c:\scripts\servers.txt”, ForReading)

till

Fastställdt objTextFile = objFSO.CreateTextFile (”c:\scripts\Output.txt” som, är riktiga)
Andra lösningar  
 
programming4us programming4us