MSMQ 생성/삭제 VBScript 코드

Function CreateQueue(name)
    On Error Resume Next
    set q = CreateObject ("MSMQ.MSMQQueueInfo")
    q.PathName = ".\private$\" + name
    q.Create
End Function

Function DeleteQueue(name)
    On Error Resume Next
    set q = CreateObject ("MSMQ.MSMQQueueInfo")
    q.PathName = ".\private$\" + name
    q.Delete
End Function

Call CreateQueue("Test")

이제 설치하면 개인 큐도 자동으로 생성/삭제 할 수 있다. 후후..

큐 삭제 액션은 Custom Actions에서 아래와 같이 설정
In-Script Execution : Deferred Execution
Install Exec Sequence : After DeleteService
Install Exec Sequence : REMOVE="ALL"
Admin Exec Sequence :  After InstallInitialize
Admin Exec Condition : REMOVE="ALL"

1시간은 헤맨 것 같네
IIS 가상 디렉터리 설정 보고 답을 얻음

트랙백

이 글과 관련된 글 쓰기 (트랙백 보내기)
TrackbackURL : http://www.xeraph.com/tb/3542999 [도움말]

덧글

댓글 입력 영역