Dim Argcomputer, IISObject, ArgPath ArgComputer = "localHost" ArgPath = "/W3SVC/1/Root" Sub DisplayUsage WScript.Echo "usage: cscript ShowPasswords.vbs" WScript.Echo " [--help|-?]" WScript.Echo "" WScript.Quit(1) End Sub Sub checkCmdLine() Dim OArgs, ArgNum Set oArgs = WScript.Arguments ArgNum = 0 While ArgNum < oArgs.Count Select Case LCase(oArgs(ArgNum)) Case "--help","-?": Call DisplayUsage Case Else: WScript.Echo "Unknown argument "& oArgs(ArgNum) Call DisplayUsage End Select ArgNum = ArgNum + 1 Wend If (Left(Argpath,1) <> "/") Then ArgPath = "/" & ArgPath End If End Sub Sub ShowDetails(ShowWAM, Header, OBJ) on error resume next WScript.Echo Header WScript.Echo " Annonymous User name : " & OBJ.AnonymousUserName WScript.Echo " Annonymous User account password : " & OBJ.AnonymousUserPass If (ShowWAM= True) Then WScript.Echo WScript.Echo " WAM User name : " & OBJ.WAMUserName WScript.Echo " WAM password : " & OBJ.WAMUserPass End If WScript.Echo WScript.Echo " ODBC Username : " & OBJ.LogOdbcUserName WScript.Echo " ODBC password : " & OBJ.LogOdbcPassword WScript.Echo End Sub Sub DoObject(ObjectName, Objectclass) Dim FullPath, IISOBJ, IISOBJ1 on error resume next FullPath = "IIS://" & ArgComputer & "/" & ObjectName Set IISOBJ = getObject(FullPath) If (err <> 0) Then WScript.Echo "Unable to access object : " & ObjectName & " on computer: " & Argcomputer & vbcrlf exit sub Else If (Objectname <> "W3SVC") Then Showdetails False, ObjectName, IISOBJ Else Showdetails True, ObjectName, IISOBJ End If For Each Server In IISOBJ If (Server.Class = Objectclass) Then if (ObjectName = "W3SVC") then FullPath = "IIS://" & ArgComputer & "/" & ObjectName & "/" & Server.Name& "/Root" else FullPath = "IIS://" & ArgComputer & "/" & ObjectName & "/" & Server.Name end if Set IISOBJ1 = getObject(FullPath) ShowDetails False, ObjectName & "/" & Server.Name, IISOBJ1 Set IISOBJ1 = Nothing End If Next End If set IISOBJ = nothing End Sub Call CheckCmdLine() Call DoObject("MSFTPSVC", "IIsFTPServer") Call DoObject("NNTPSVC", "IIsNNTPServer") Call DoObject("W3SVC", "IIsWebServer")