vbscript로 COM+ 실행 계정 변경

COM+ 실행 계정을 "로컬 서비스"로 변경하는 vbscript 코드

Set objCatlog = CreateObject("COMAdmin.COMAdminCatalog") 

objCatlog.Connect("localhost") 

Set objApplications = objCatlog.GetCollection("Applications") 

objApplications.Populate 

For each objApplication in objApplications     

    If InStr(LCase(objApplication.Name), "appname")<>0 Then

        objApplication.Value("Identity") = "NT AUTHORITY\LocalService"

    End If

Next

objApplications.SaveChanges