Vraag : De Server 2003 van vensters - LDAP - het Wachtwoord van de Vraag verloopt - VBS

Ik gebruikte de volgende vraag als gids. Krijg Ik hebbend problemen het aan work.

======

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

======

If I verandert sGroup (Lijn 32) in CN=Users of om het even wat ik een controle uw groeps pop omhooggaand krijg.  Ik zie niet hoe te aan LDAP binden alhoewel ik binnen als beheerder word ondertekend.  Als ik LDP gebruik moet ik binden om het ertoe te brengen om te tonen mijn AD.

I reposted de code met mijn veranderingen en foutenmelding hebben die ik heb gekregen.  Ik postte ook mijn opstelling LDP inpak ik ben enkel een idiot en specificeerde niet bl " >

LDAP-2.JPG (13 KB) Error


op dit ogenblik OU gespecificeerd maar ik wil echt het van alle gebruikers in de ADVERTENTIE een lijst maken. de hulp

Any dit het werken krijgen bl " >

LDAP-1.JPG (216 KB) LDP
" codeBody " 
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:
expliciete Option Vraag PwdExpiryInfo Sub PwdExpiryInfo () 'Versie 1.0 'Geschreven door Krystian Karia 'Gedateerd 04/05/2009 'Krijgt een lijst van gebruikers van de groep 'gespecificeerd en controleert dan hun De 'vervaldatum van het wachtwoord. 'NOTA: Het manuscript moet in een CMD.exe worden in werking gesteld 'venster zoals: CScript.exe ScriptName.vbs 'Dit is toe te schrijven aan het aantal output 'dat wordt gecre�ërd. De 'fouten van de vangst zelf 'Op Fout hervat daarna 'Verklaar Variabelen verduister iTimeInterval, iMaxPwdAge Verduister I, intUACvalue Schemerig dtmPwdChanged Schemerige objUserLDAP Schemerige arrMembers Const ADS_UF_DO NIET _EXPIRE_PASSWD = &h10000 Const sGroup = „OU=DLI_ACCOUNTS, DC=dli, DC=local“ '< Spcify uw groepsnaam hier 'Krijg de lijst van gebruikers van de bepaalde groep arrMembers = GetMembers (sGroup) Als IsNull (arrMembers) toen ShowProgress „Controle uw groepsnaam of zijn lidlijst“ EndScript Eind als 'Lijn elke gebruiker om wachtwoord exiry datum te controleren Voor I = 0 aan UBound (arrMembers) Als arrMembers (I) <> "" toen ShowProgress "" Reeks objUserLDAP = GetObject (arrMembers (I)) intUACvalue = objUserLDAP.Get („userAccountControl“) Als intUACvalue en ADS_UF_DO NIET _EXPIRE_PASSWD toen ShowProgress objUserLDAP.sAMAccountName ShowProgress „Wachtwoord verloopt niet“ Anders dtmPwdChanged = objUserLDAP.PasswordLastChanged iTimeInterval = CInt (nu - dtmPwdChanged) iMaxPwdAge = GetMaxPwdAge ShowProgress objUserLDAP.sAMAccountName ShowProgress „Wachtwoord werd het laatst veranderd“ & dtmPwdChanged ShowProgress „die“ & iTimeInterval & „dagen geleden“ was Als iMaxPwdAge < 0 toen ShowProgress „Wachtwoord verloopt niet (Leeftijd van het Wachtwoord van het Beleid van het Domein de Maximumdie aan 0)“ wordt geplaatst Anders ShowProgress de „Leeftijd van het Wachtwoord van het Beleid van het Domein Maximum is“ & iMaxPwdAge & „Dagen“ Als iTimeInterval >= iMaxPwdAge toen ShowProgress is het „Wachtwoord.“ verlopen Anders ShowProgress zal het „Wachtwoord in“ & CInt ((dtmPwdChanged + iMaxPwdAge) verlopen - nu ()) & „Dagen“ Eind als Eind als 'iMaxPwdAge Eind als 'intUACvalue Eind als Daarna 'arrMembers Eind Sub 'PwdExpiryInfo Functie GetMembers (strGroup) 'Versie 1.4 'Geschreven door Krystian Karia 'Gedateerd 04/05/2009 'Keert de weg LDAP van elk terug 'gebruiker van de bepaalde groep De 'fouten van de vangst zelf Op Fout hervat daarna 'Verklaar variabelen Verduister oGroup, oUser Verduister strName Verduister arrUsers De 'parameters van de controle Als strGroup = "" toen GetMembers = verklaart nietig De Functie van de uitgang Eind als 'Bind aan groep gebruikend de correcte schakelaar ADSI Plaats oGroup = GetObject („LDAP: /“ & strGroup) Als Err.Number <> 0 toen Err.Clear ShowProgress een „Fout kwam bindend aan de groep“ & strGroup voor GetMembers = verklaart nietig De Functie van de uitgang Eind als 'De groepsleden van de lijn Voor Elke oUser in oGroup.Members strName = strName & oUser.ADsPath & vbNewLine Daarna 'Cre�ër een serie van leden Als Versiering (strName) <> "" toen arrUsers = verdelen (strName, vbNewLine) GetMembers = arrUsers Anders GetMembers = verklaart nietig Beëindig als Err.Clear De Functie 'GetMembers van het eind Functie GetMaxPwdAge () 'Versie 1.0 'Keert de MaximumLeeftijd van het Wachtwoord terug 'welke gewoonlijk is plaats in GPO het 'genoemde „Beleid Standaard van het Domein“ De 'fouten van de vangst zelf Op Fout hervat daarna 'Verklaar Variabelen Verduister oRootDSE, oDomain, oMaxPwdAge Verduister lngHighPart, lngLowPart Verduister strDomainDN 'Krijg het huidige Domein DN Plaats oRootDSE = GetObject („LDAP: //RootDSE“) strDomainDN = oRootDSE.Get („DefaultNamingContext“) 'Bind aan huidig Domein Plaats oDomain = GetObject („LDAP: /“ & strDomainDN) Reeks oMaxPwdAge = oDomain.MaxPwdAge 'Breng de 2 delen van de waarde Integer8 ertoe om 2 waarden met 32 bits te krijgen lngHighPart = oMaxPwdAge.HighPart lngLowPart = oMaxPwdAge.LowPart 'Als LowPart minder dan 0 toen wij ned is om 1 aan HighPart toe te voegen Als (lngLowPart < 0) Dan lngHighPart = lngHighPart + 1 Eind als 'Terugkeer de waarde in Dagen GetMaxPwdAge = - ((lngHighPart * 2^32) + lngLowPart)/(600000000 * 1440) De Functie 'GetMaxPwdAge van het eind Sub ShowProgress (sComment) sComment van WScript.Echo Sub van het eind Sub EndScript WScript.Quit Sub van het eind

Antwoord : De Server 2003 van vensters - LDAP - het Wachtwoord van de Vraag verloopt - VBS

Droevig te snel verzond ik dat.
Verandering: Vastgestelde objTextFile = objFSO.OpenTextFile („c:\scripts\servers.txt“, ForReading)

aan

Vastgestelde objTextFile = objFSO.CreateTextFile („c:\scripts\Output.txt“, Waar)
Andere oplossingen  
 
programming4us programming4us