개똥도 약에 쓸려고 하면 없다고 추후에 참고용으로 쓸수 있게 한번 올려봅니다.^^
Dim IIsObject
Set IIsObject = GetObject ("IIS://Localhost/w3svc")
Wscript.Echo " 익명계정명 = " & IIsObject.Get("anonymoususername")
Wscript.Echo " 익명계정패스워드 = " & IIsObject.Get("anonymoususerpass")
Wscript.Echo " Wam계정명 = " & IIsObject.Get("wamusername")
Wscript.Echo " Wam패스워드 = " & IIsObject.Get("wamuserpass")
Set IIsObject = nothing
Set IIsObject = GetObject ("IIS://Localhost/w3svc")
Wscript.Echo " 익명계정명 = " & IIsObject.Get("anonymoususername")
Wscript.Echo " 익명계정패스워드 = " & IIsObject.Get("anonymoususerpass")
Wscript.Echo " Wam계정명 = " & IIsObject.Get("wamusername")
Wscript.Echo " Wam패스워드 = " & IIsObject.Get("wamuserpass")
Set IIsObject = nothing
위 스크립트는, 인터넷게스트 계정 및 웹프로세스 실행계정의 패스워드를 알아 내는 스크립트입니다.
물론, 위 스크립트가 아니더라도 위와 같이 ADSI 인터페이스를 이용하는 관리자 스크립트인 Adsutil.vbs 를 통해서도 알수 있습니다.
댓글 없음:
댓글 쓰기