Fråga : tillfoga sist lösenordändring till vbscript (den exportera utbytesbrevlådastatistiken 2003)

kan någon behaga hjälper mig att tillfoga två parametrar till detta stora vbs skrivar av Paul Weterings?

What som jag behöver dessutom, är för brevlådaskapelsen för
> date

thanks för ändring för lösenordet för date
> sist för din help > 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:

" codeBody " ' =============================================================== class= " 'Ämna: Visa varje Exchange_Mailbox som finnas för utbytesserver, 'och visa all rekvisita på Exchange_Mailboxen 'anmärker. Tillverkat betyds att importeras in i Excel. Den ska ger inblick i brevlåda storleksanpassar, 'användning Etc. 'Notera: kontrollera den SelfADSI websiten för stort info om användaren anmärker: http://www.selfadsi.org/ 'Ändring: cComputerName [stränga], datoren som ska tas fram 'Tillverka: Visar det känt av varje Exchange_Mailbox och rekvisita 'Författare: Paul Weterings 'www.servercare.nl 'Datera: feb 2006 'Varv: feb 2007 v1.2 tillfogade brevlåda-skrivar 'Varv: jul 2009 ändring v1.3 daterar handeling- och kommaavgränsningen, den ökade e-posten och användarehandikappade personer info 'Varv: aug 2009 v1.4 fixad liten typo 'Version 1.4 '=============================================================== explicit alternativ 'Konstanter för NameTranslaten anmärker. Const ADS_NAME_INITTYPE_GC = 3 Const ADS_NAME_TYPE_NT4 = 3 Const ADS_NAME_TYPE_1779 = 1 Const ADS_NAME_TYPE_DISPLAY = 4 På felmeritförteckning därefter Const cWMINameSpace = ”rotar/MicrosoftExchangeV2”, Const cWMIInstance = ”Exchange_Mailbox”, Anslutning för dunkla strWinMgmts 'stränger för WMI UtbytesNamespace WMI för dunkel objWMIExchange 'anmärker ExchangeLogons för dunkla listExchange_Mailboxs 'samling Dunkel objExchange_Mailbox, 'som en singel ExchangeLogon WMI anmärker Dunkel strEmail, strUserInfo, strServerName, objUser, objTrans, strUserDN 'Se WMIDateToString fungera SetLocale (1043) Fastställd objUser = CreateObject (”Scripting.Dictionary”) Om WScript.Arguments.Count > 0 därefter strServerName = WScript.Arguments.Item (0) 'WScript.echo ”som kontrollerar utbytesserveren: ” & strServername 'Skapa anmärka stränger och att indikera WMI (winmgmts), using 'strömanvändarevitsord (impersonationLevel=impersonate), 'på datoren som specificeras i variabelestrServerNamen, och 'using CIM-namespacen för utbytesfamiljeförsörjaren. strWinMgmts = ”winmgmts: {impersonationLevel=impersonate}! /”& strServerName&”/”&cWMINameSpace Fastställd objWMIExchange = GetObject (strWinMgmts) 'Verifiera att vi var kompetent till korrekt uppsättningen anmärka. Om Err.Number-<> 0 därefter WScript.Echo-”FEL: Oförmöget att förbinda till WMI-namespacen.”, & Err.Description Err.Clear Annars ', 'Resurserna, som finns för närvarande, visas som en lista av 'Exchange_Mailbox anföra som exempel i utbytesnamespacen. Fastställda listExchange_Mailboxs = objWMIExchange.InstancesOf (cWMIInstancen) ', 'Någon Exchange_Mailbox anföra som exempel gicks tillbaka? Om (listExchange_Mailboxs.count > 0) därefter 'Om ja, gör efter: 'Skriv ut titelraden och Iterate till och med lista av Exchange_Mailbox anmärker. Känd WScript.echo-”användare; Inte-använda dagar; Objekt; Mben storleksanpassar; Brevlådalager; Brevlådatyp; Användarehandikappade personer; Primär e-post”, För varje objExchange_Mailbox i listExchange_Mailboxs objUser = ogiltigt strUserInfo = "", 'Använd NameTranslaten anmärker för att konvertera skärmen som är känd till 'Distingerat namnge required för LDAP-familjeförsörjaren. 'Se http://www.rlmueller.net/NameTranslateFAQ.htm Fastställda objTrans = CreateObject (”NameTranslate”) 'Initialisera NameTranslate, genom att lokalisera den globala katalogen. objTrans.Init ADS_NAME_INITTYPE_GC, "", 'Använd den fastställda metoden för att specificera NTEN formaterar av den kända anmärka. objTrans.Set ADS_NAME_TYPE_DISPLAY, objExchange_Mailbox.MailboxDisplayName 'Använd fåmetoden för att hämta den distingerade RPCEN 1779 namnger. strUserDN = objTrans.Get (ADS_NAME_TYPE_1779) 'WScript.Echo ”som kontrollerar: ” & objExchange_Mailbox.MailboxDisplayName 'Röran till användaren anmärker i aktivarkiv med LDAP-familjeförsörjaren. Fastställd objUser = GetObject (”LDAP: /” & strUserDN) Om Err.Number-<> 0 därefter Att få för WScript.Echo-”problem anmärker” & strUserDN & ”felet: ” & Err.Nr & ”: ” & Err.Description Err.Clear Avsluta om 'Låter nu skärm alla information grunda, noterar att endast jumbon fodrar bruk översättningen. 'hoppa over den skitdåliga ANNONSEN namnger som är mycket lång stränger & mest rimliga inte användare om len (objExchange_Mailbox.MailboxDisplayName) < 40 därefter 'Information om byggandeanvändare stränger strUserInfo = objExchange_Mailbox.MailboxDisplayName & _, ”; ” & DateValue (nu) - DateValue (WMIDateToString (objExchange_Mailbox.LastLogonTime)) &_ ”; ” & objExchange_Mailbox.TotalItems & _, ”; ” & objExchange_Mailbox.Size & _, ”; ” & objExchange_Mailbox.StoreName-&_ ”; ” & objUser.Title-&_ ”; ” & objUser.AccountDisabled 'Finna användarena som primär SMTP tilltalar, oss behöver att gå samlingen av tilltalar För varje strEmail i objUser.proxyAddresses om (strEmail, lock InStr ”för SMTP”) > 0 'används därefter för primärt tilltalar strUserInfo = strUserinfo & ”; ” & högert (strEmail, Len (strEMail) - 5) Avsluta om Därefter om Len (strUserInfo) > 1 därefter 'WScript.echo-strUserInfo WScript.StdOut.Write objExchange_Mailbox.MailboxDisplayName 'Inte ombud, om användaren loggade in aldrig Om Len (objExchange_Mailbox.LastLogonTime) > 0 därefter WScript.StdOut.Write ”; ” & DateValue (nu) - DateValue (WMIDateToString (objExchange_Mailbox.LastLogonTime)) Annars WScript.StdOut.Write ”; -”, Avsluta om WScript.StdOut.Write ”; ” & objExchange_Mailbox.TotalItems WScript.StdOut.Write ”; ” & objExchange_Mailbox.Size WScript.StdOut.Write ”; ” & objExchange_Mailbox.StoreName WScript.StdOut.Write ”; ” & objUser.Title WScript.StdOut.Write ”; ” & objUser.AccountDisabled För varje strEmail i objUser.proxyAddresses om (strEmail, lock InStr ”för SMTP”) > 0 'används därefter för primärt tilltalar 'strUserInfo = strUserinfo & ”; ” & högert (strEmail, Len (strEMail) - 5) WScript.StdOut.Write ”; ” & högert (strEmail, Len (strEMail) - 5) Avsluta om Därefter WScript.StdOut.WriteLine Avsluta om Avsluta om Därefter Annars 'Om ingen Exchange_Mailbox anföra som exempel gicks tillbaka, 'visa det. WScript.Echo ”som VARNAR: Ingen Exchange_Mailbox anföra som exempel gicks tillbaka.”, Avsluta om Avsluta om Annars WScript.echo-”argument: Servername”, WScript.echo ”var Servername är NetBIOSen som är känd av utbytesserveren som du önskar att lista”, Avsluta om '******************************************************************************, Fungera WMIDateToString (dtmDate) 'Notera att omvandlingsrutinerna för stränga i VBScript har hitintills den förargliga vanan av att vara ”att läka för själv”, 'menande: om du använder US-beteckningssystemet månaden och dagen ska net ett olikt läge (månad-dag-året för US, dag-månad-året för EUR) 'platsen är den van vid kontrollen vad daterar formaterar är preferred, men VBScript som också ska kontrollerar dagarna/månaderna för att se, om den går förbi 12 'om det som, for, som daterar, dagen antas. Emellertid när du konverterar, en samling av stränger denna blytak till tillverkat att förväxla: något daterar är korrekt 'men för daterar med dagar mindre, än 12 ska saker skruvas upp. 'Sedan I-förmiddag i Europa, I-förmiddag using dag-månad (7.2 och 5.2) som du kan önska att ändra, denna för US daterar (5.2 och 7.2 placerar), 'dessutom jag förmiddagen som tvingar platsen för att använda de holländska (1043) inställningarna inom skriva, for US detta är 1033 (se titelraden), WMIDateToString = mitt- (dtmDate, 7, 2) & ”/” & _, Mitt- (dtmDate, 5, 2) & ”/” & _, Lämnat (dtmDate, 4) & ””, 'Hoppande over tid för nu, som jag inte behöver den. 'Mitt- (dtmDate, 9, 2) & ”: ” & _, 'Mitt- (dtmDate, 11, 2) & ”: ” & _, 'Mitt- (dtmDate, 13, 2) WMIDateToString = CDate (WMIDateToString) Avsluta fungerar " klar "

Svar : tillfoga sist lösenordändring till vbscript (den exportera utbytesbrevlådastatistiken 2003)

Där verkar för att vara ingen specifik rekvisita från objExchange_Mailboxen klassificerar som innehåller att brevlådaskapelsen daterar. Emellertid jag fann en skriva som verkar för att göra vad du söker efter:
http://community.spiceworks.com/how_to/show/739

Som för, när användarena ändrade sist deras lösenord:
Du skulle den behovshastigt grepp rekvisitan från objUser, inte objExchange_Mailbox:

Fastställd objUser = GetObject (”LDAP: //CN=myerken OU=management, DC=Fabrikam, DC=com”)
dtmValue = objUser.PasswordLastChanged
WScript.echo-”pwdLastSet är: ” & dtmValue

Så att det skulle medlet dig skulle, måste att finna användaren som är tillhörande med brevlådan som du ser och därefter handtag ut informationen från användaren.
http://www.activxperts.com/activmonitor/windowsmanagement/adminscripts/usersgroups/users/#DetPasswSet.htm