마이홈주의자

국가정보 자원관리원 장애가 전부 IT인의 책임인가?

마이홈주의자 — Wed, 8 Oct 2025 09:41:09 +0900

직장생활하면서 공식적인 연휴가 이렇게 길었던 적이 없었습니다. 즐거운 긴 연휴입니다만 한쪽에서는 매일 밤샘 복구를 하고 계신 분들이 있어 마음이 편하지 않습니다.
정말 남의일 같지 않습니다.

제 경력중 많은 시간을 정부,공공기관 사업에서 보냈기에 원인과 대책에 대한 개인적인 생각을 적어 봅니다.

문제의 원인
첫째. 예산의 문제

IT부서의 예산확보 어려움이 가장 큰 걸림돌입니다.
결국 돈줄을 쥐고 있는 부서가 권력입니다. 특히 공공기관의 권력부서는 돈을 버는 부서와 '기획' 비슷한 이름을 가진 부서입니다. 이쪽 부서 사람들이 보기에 IT부서는 돈을 쓰는 부서로만 봅니다. 속된 말로 찬밥인 경우가 많습니다. 그런 IT부서가 DR 구성하기 쉅지 않습니다. IT부서는 DR예산 또는 백업 관련 예산을 당연히 매년 올렸지만 예산이 매번 잘렸을 겁니다.

국가정보자원 DR 공주센터 완공까지 18년이 걸렸고 아직 오픈도 못하고 있다는 것이 권력부서가 DR에 대한 어떤 인식을 갖고 있는지 보여주는 아주 극명한 예라고 봅니다. 어떤 분들은 정치에 연결시켜 얘기하시는데 공주센터에서 보듯 진보, 보수의 얘기가 아님을 쉽게 알수 있습니다.

DR구축을 위해서는 고위직 또는 결정정권자의 인식 전환이 필요합니다.
Active-Active
Active-Standby
Cloud에 대한 인식은 이제는 어느 정도 자리를 잡은 반면 DR에 대한 인식 부족이 여전히 문제입니다. IT경험을 바탕으로 부서장이 된 사람들도 DR을 왜 해야 하느냐며 예산 투자를 주저하는 경우가 아직도 많습니다.

둘째. 전문성의 문제

인식 부족도 결국은 정부,공공기관 담당자의 전문지식 수준과 연결 됩니다.
어찌보면 창피한 얘기일 수도 있지만 그동안 함께 일했던 정부,공공기관 담당자 중 '이사람 일하는게 프로 맞네'라고 느낀적이 한번도 없습니다. 여러분은 있나요?
정말 책임감을 갖고 전문가로서 저같은 협력사를 리딩하고 문제점을 함께 파악하고 함께 해결책을 찾아가는 그런 정부,공공기관 담당자는 왜 없는 걸까?

제가 사실 얘기하고 싶은 부분이 이건데요.
여기에는 뿌리깊은 순환 근무제가 자리 잡고 있습니다. 사실 전산직군 뿐만 아닐 겁니다.
전산직을 포함한 전체 문제라고 봐야 합니다.
업무적으로 몇마디만 섞어보면 압니다. 전문성이 없는 경우가 태반입니다. 분명히 업무 회의를 하고 있는데 먼산 보는 사람들이 많습니다. 마치 '이거 나의 일과 크게 상관 없어' 또는 '지금 이 얘기는 내가 받아들이기에 너무 디테일한 얘기인데?'라고 생각하는 것 같습니다.
저는 이런 생각의 근본에 '내년이면 난 다른데 간다'라는 순환 근무제의 병폐가 자리잡고 있다고 생각합니다.

조금 삼천포로 빠져보겠습니다.
정권이 들어설때마다 국가균형발전이라고 해서 혁신도시를 만들고 공공기관을 지방도시로 내려보냅니다. 혁신도시를 통한 국가균형 발전을 이루려면 해당 기관의 소속 직원이 혁신 도시에 이사, 정착하고 자녀가 혁신도시 학교를 다니고 거기서 세금을 내야 지방 발전이라는 목표를 달성 할 수 있는데 그게 잘 안됩니다. 왜냐면 순환근무제 때문입니다. 어차피 조금 근무하면 다른데 가는데 주민등록 이전을 하지 않습니다. 그래서 주말에 혁신 도시는 죽은 도시라는 말이 나옵니다.
즉, 순환근무제는 담당자의 전문성 확보를 저해하고 혁신도시를 통한 국가 균형 발전 정책을 저해하는 요소로 작용하고 있는 겁니다.
처음 순환 근무제의 목적은 한자리에서 오래 근무하면 협력사의 로비에 노출되어 부패할수 있다는 것 때문에 생겼지만 지금은 장점보다 단점이 훨씬 많아진 제도라고 생각합니다.

이상이 제가 꼽는 원인입니다.
이제 앞으로는 어떻게 해야 하는가?

첫째. 공간 분리
직접적인 이번 화재의 문제 해결 방안으로 거론되는것이 뉴스에 나오고 있는 '장애 격벽'입니다. Active-Active, Active-Standby 서버들은 랙을 분리해서 다른 공간에 설치하자는 얘기입니다. 이번처럼 서버실 하나만 화재가 난 경우에 대한 가장 빠르고 현실적인 대안이긴 합니다. DR구축은 예산이 필요한 장기적인 과제입니다. 그래서 공간 분리 얘기가 나오지만 여전히 문제가 있습니다.
지금 설치되어 있는 서버들이 하나의 랙안에 설치된 경우가 대부분이라는 것.
업무 중요도의 등급이 있더라도 공간 분리를 염두에 두고 서버가 설치 된게 아니기 때문입니다.
그리고 이번에 문제가 된 항온항습기, UPS가 상전원이 완전 분리되어 있는지도 검토된 후 가능하니 정밀하게 따져보고 진행되어야 겠습니다. 생각해 보니 이것도 단순하지가 않네요. 시간도 한참 걸릴것 같습니다.
앞으로 사업이 나올때 공간 분리를 염두에 두고 RFP가 나와야 하겠습니다.

둘째. 순환 근무제도를 손봐야 합니다.
문제는 위에 적었으니 제도 개선을 통해 각 업무 담당 공무원들이 책임감있는 전문가로 거듭날 수 있도록 해야 합니다. 저희처럼 장기간 경력이 쌓여서 전문가가 되는 것을 그들도 경험해야죠. 점점 더 고도의 기술들이 나오고 있는데 특히 공공기관 담당자들이 시대에 너무 뒤쳐지고 있습니다. 본인들이 사업을 냈으니 가장 잘 알아야 함에도 몰라도 너무 모릅니다. 개인적으로는 순환 근무제는 없어져야할 유물이라고 생각합니만 제가 모르는 그들만의 무언가가 있는지도 모르겠습니다. 순환근무제를 없애고 부패를 걱정한다면 현재 유명 무실해진 감사제도를 강화해야 한다고 봅니다. 공공기관마다 감사실이 있습니다만 유명무실한 것 맞지요?

셋째. IT시장이 활성화 되기를 바라는 IT종사자로서
정부,공공기관의 1등급 시스템(또는 2등급까지) 의 경우 남품시 무조건 DR 구축도 포함하는 방향으로 가면 좋겠습니다.
지금보다 엄청난 예산 확보가 필요하겠지만 시스템 중요도를 생각할때 꼭 가야할 방향 이라고 봅니다.
사업비용이 올라가면 참여 제한에 걸리는 기업들이 생겨 문제이지만... 어쨌든 방향은 이렇게 가야 합니다.

이외에도
. 공공sw 사업 참여제한 규정
. 중소기업 sw 우선 구매
. 최저가 입찰 문제
등등 한두가지 문제가 아닙니다만 우선적인 문제에 대해서만 적어 봤습니다.

아무쪼록 이시간에도 고생하시는 IT인들(특히 dba분들) 화이팅입니다. 조속히 마무리 되길 기원합니다.
고생하신거 보상도 제대로 받으시길요.

===============================
위의 글을 네이버 카페에 올렸더니 이런 저런 의견들이 댓글로 달렸다.
한가지를 추가해야 겠다.

. 비용 절감 위주의 업무 실적 평가

위의 글에서 나는 대면하는 정부/공공기관의 업무 담당자와 직접 대면하면서 일하는 경우가 많다 보니 순환 근무제도에 대한 문제점에 대해서 많이 적었는데 공무원 조직의 근본 원인으로 너무 실적 위주의 업무 평가가 많다는 지적이 나왔다. 그리고 실적에 비용 절감이 포함되어 있기 때문에 지금의 이런 투자 위축 낮은 시스템 수준이 많다는 얘기가 있었다. 전적으로 공감한다.

[2024 스페인 여행] 스페인 마지막 날-렌터카반납,빌바오 공항

마이홈주의자 — Sun, 30 Mar 2025 19:46:05 +0900

• 여행 일정( 2024.1.17 ~ 2024.2.9 총23일)
인천 -비행- 파리 -비행- 바르셀로나 6박 -렌페- 마드리드 5박 -버스(Alsa)- 빌바오 2박 -렌트카- 산티아나 델 마르2박 -빌바오렌트카반납후 비행- 파리 6박 -비행- 인천

산티아나 델 마르에서 2박을 마치고 우리는 다시 빌바오로 향했다.
남은 일정은 빌바오에서 빌린 렌터카를 공항에 반납하는 것과 빌바오 공항에서 비행기 탑승이다. 스페인에서의 마지막 여정이다.

마지막 일정이니 아침에 일찍 일어난 우리는 다시 한번 산티아나 델 마르 동네를 거닐었다. 이 오래된 시골 마을의 분위기를 한번이라도 더 기억에 넣고 싶었다. 아이들도 같은 마음이었는지 불만없이 따라 나섰다.
마을을 한바퀴 돌고 오니 조식 시간.
조식을 먹고 우리는 바로 체크아웃을 하고 빌바오로 돌아왔다.

빌바오 공항 -> 파리 샤를드골 공항까지의 에어프랑스 비행기는 저녁 5시가 넘어 출발한다.
오전에 빌바오로 돌아와 약간의 시간이 있으니 차를 반납하기 전 빌바오 해양박물관(Itsasmuseum)에 가보기로 했다.
왜냐면 고생한 아이들을 위해서였다. 빌바오 해양 박물관은 빌바오 Intermodal 버스터미널에 주차하면 산마메스 경기장을 지나 가까운 곳에 위치해 있다. 그리고 미리 빌바오 해양 박물관이 아이들 체험할 수 있는 좋은 곳이라는 정보를 미리 알아두었기 때문.

빌바오 버스터미널 Bilbao Intermodal

마드리드에서 빌바오로 알사버스를 타고 도착했던 버스터미널이 Bilbao Intermodal인데 빌바오를 돌아다닌면서 이곳의 주차장을 이미 알아 놓았었다. 몇시간 정도 주차 요금이 4.5유로 였음.

빌바오 인터모달에 주차를 하고 올라오니 표 파는 곳과 매표기가 특이했다. 각 회사별로 창구가 달랐고 한쪽에는 위 사진 처럼 각 버스 회사의 매표기가 제각각 있었다. 흠... 저 얘기는 우리같은 사람들에게는 표 구매하는게 아주 어렵다는 얘기 되겠다. 내가 가고자 하는 목적지에 어느 회사의 버스가 가는지 먼저 검색을 해본 후 그 회사의 창구(또는 매표기)에 가서 표를 구매해야 한다는 얘기.

빌바오 버스터미널 Bilbao Intermodal

빌바오 해양 박물관은 강가에 위치해 있다.
아마도 과거 조선소 였던 곳을 재활용하는 차원으로 만든게 아닌가 싶다.

빌바오 해양박물관(Itsasmuseum) 입구

빌바오 해양박물관 입장료는 네사람 총 14유로 지불.(6세 미만 무료)
홈페이지( https://itsasmuseum.eus/en/tickets/ )에는 1인당 4유로로 나오는데 그날 지불한 금액은 14유로였다. 음... 왜였을까?^^

빌바오 해양박물관(Itsasmuseum)

여러가지 다양한 배들이 많이 전시 되어 있다. 어른들이야 흥미가 없지만 아이들은 나름 좋아했다.

빌바오 해양박물관(Itsasmuseum)

빌바오 해양박물관(Itsasmuseum) 비즈카이야 다리 모형

빌바오 해양박물관(Itsasmuseum)

이것이 배끼리 통신할때 쓰는 조명인데 요거 아이들이 재미있어했다.
우리 아이들은 미야자키 하야오의 만화영화를 하도 많이 봐서 거의 외우고 있는데 '벼랑위의 포뇨'에 이 조명을 이용해 소스케와 아빠가 모스 부호로 통신하는 장면이 나온다. 소스케 엄마가 나중에 '바보바보바보...'를 조명으로 보내는 장면에서는 너무 재미있었는데 ㅎㅎ.

둘째 아이가 이걸 보고는 바로 '이거 포뇨에 나오잖아'하면서 한참을 갖고 놀았다.

빌바오 해양박물관(Itsasmuseum)

선박간 조명을 이용한 통신 방법을 설명해 놓았다. 위에 나온 것을 직접 해보라고 하니 나름 재미있어 했다.

빌바오 해양박물관(Itsasmuseum)

위 사진. 저인망 어선?을 설명한 모형.
직접 보니 바로 이해가 감.

빌바오 해양박물관(Itsasmuseum)

배가 정박하는 곳에 작은 배들을 여러척 갖다 놓았다. 잘 보면 저곳도 들어가서 이것 저것 동작해 볼 수 있게 해 놓았다.
시간이 충분하지 않아 빌바오 Intermodal로 돌아왔다.

빌바오 회전 교차로

이제 스페인에서의 모든 여정이 끝났다. 렌터카를 반납하기 위해 빌바오 공항으로 향했다.
빌바오 공항 주차장에서 허츠렌터카는 쉽게 찾을 수 있도록 표시가 잘 되어 있었다. 풀커버 보험이었기 때문에 따로 차량 검사도 없다. 차키를 건네주고 바로 끝.

빌바오 공항은 크지 않지만 건물이 아주 멋있다.
스페인 최고의 건축가인 산티아고 칼라트라바(Santiago Calatrava Valls)가 설계한 빌바오 공항. 외관의 모습이 독수리를 닮았다고 하는데 내부에서 보니 과연 맞는 말 같다.

빌바오 공항 내부

강화도 평화기행 : 이시우 선생님과 함께

마이홈주의자 — Sat, 15 Mar 2025 20:05:30 +0900

2018년 11월.

이시우 선생님과 함께한 강화도 평화 기행
한달 전 강화도 기행 때 이시우 선생님을 해설가로 모시려고 했지만 일정이 맞지 않았다.
의정부 인생서점에서 주최한 평화기행에서 이시우 선생님을 모시고 진행한다고 해서 달려갔다.
이시우 선생님은 18년째 강화에서 살고 계신 사진작가이고 평화활동가이자 '민통선 평화기행' 저자이다.
2013년에는 유엔군 사령부관련 책도 내셨다.

선생님은 강화의 한곳만 꼽는다면 단연 연미정이라고 하신다.
북녁땅이 바로 보인다는 것. 연미의 뜻- 갈라진 제비 꼬리로 한강하구의 물이 갈라짐-으로 이곳 지형을 설명하기가 좋은 곳이란 점.
고려 대몽항쟁시기 이전의 강화는 6개의 섬이었는데 39년간 대몽항쟁 당시 제방을 쌓았으며 연미정 근처에 제방의 흔적이 있다는 것.
바로 앞에 보이는 유도-한강 하구의 섬-와 이곳에서 성행했던 시장 이야기.
황형장군과 창원 황씨 집성촌 이야기.
연미정 바로 옆에서 시작되는 강화도 민통선 이야기.
한강 하구가 가지는 의미. 정전 협정에 나오는 한강 하구까지.
그야말로 끝이 없는 이야기가 있는 곳이다.

독립운동 관련한 인물은 단연 이동휘 선생과 조봉암 선생이다. 한달 전에는 갑곶돈대 주차장 옆에 있는 조봉암 선생 추모비에 왔었는데 강화중앙교회가 장소로는 훨씬 더 의미가 있는 곳이었다. 한달전 기행을 이끌었던 나로서 많이 아쉬운 부분이다.
이동휘 선생의 한인사회당이 가지는 의미와 당시 선생의 위상. 코민테른 대회와 박진순,레닌 사진. 이와 관련된 혁명자금 사건까지 연결된다.
죽산 조봉암과 진보당. 이승만 이야기까지.
이시우 선생님은 당시의 독립운동가들은 유라시아 전체를 활동 무대로 삼았다는 점을 강조하시면서 지금의 대통령의 외교 행보가 이와 비슷하다는 의견을 내셨다.
한강 하구와 정전협정.
강화에서 배를 몰고 한강 하구로 나간다면? 북한과의 분계선을 넘지 않는 선까지 간다면?
정전 협정 위반이 아니란다. 정전협정에는 한강하구에는 민간인 선박을 허용한다는 문구가 명확히 있다는 것이다(정전협정 1조 5항). 실제로 이것을 행동으로 옮기고자 매년 관련기관에 문의를 하고 있지만 매번 실패한다고 한다. 한강 하구가 얼음이 얼어서 사람이 걸어서 가더라도 정전협정 위반이 아니라고 한다. 이처럼 정전협정은 많은 허점이 있는데도 대한민국 헌법위에 군림하고 있다.
한강하구는 지정학적으로도 한국전쟁 당시 한강,임진강,한탄강을 중심으로 전선이 고착화되었다. 한강 하구가 서해 공동 어로 수역과 함께 평화수역으로 바뀌고 후퇴되지 않을 정책이 뒷받침 된다면 평화를 앞당기는데 큰 역할을 하게 될 것이다.
정전협정이 평화협정으로 종전협정으로 통일협정으로 나아가야하는 이유이다.

강화도 연미정 앞에서 이시우 선생님

연미정에서 보이는 유도

강화중앙교회

강화중앙교회 앞에는 김동수권사 3형제의 추모비가 있다

강화중앙교회 김동수권사 3형제 추모비 안내판

강화중앙교회 이동휘

강화 부근리 지석묘 설명. 이시우 선생님

강화 부근리 지석묘 안내판. 사적

대한민국은 고인돌의 나라이다^^

엑셀 VBA로 도서 관리 : ISBN이용 국립중앙도서관 OpenAPI

마이홈주의자 — Sat, 15 Mar 2025 13:26:40 +0900

2022년 3월 VBA로 ISBN로 네이버 OpenAPI를 검색하여 관리하는 엑셀 파일을 만들었는데...

https://halbe.kr/83

엑셀 VBA로 도서 관리 : ISBN이용 네이버 OpenAPI 도서정보

갖고 있는 책이 좀 많다보니 이미 가지고 있는데 바보같이 같은 책을 또 사는 일이 몇번 있었다. 안되겠다 싶어 갖고 있는 모든 책을 관리해야 겠다는 생각을 하게 되었다. 어떻게 하지? 엑셀로

halbe.kr

네이버에서 제공하는 정보가 부족한 것들이 있고 책 가격 정보를 2022년 중간에 OpenAPI에서 제외하면서 더는 네이버로 관리하기 어렵겠다는 생각을 해 왔다.
이런저런 문제로 국립중앙도서관 OpenAPI를 이용해 보겠다는 언급을 했었는데 1년 반정도가 지나서야 국립중앙도서관 OpenAPI를 이용해서 관리하고 있다.

결론을 적자면 국립중앙도서관에서 제공하는 OpenAPI를 통해 가져오는 데이터도 깔끔하지가 않다. 그리고 정보가 없는 책도 있고 앞선 글에서도 얘기한 것처럼 같은 ISBN에 두 개 이상의 책이 존재하는 경우도 여전히 있다.(당연한 얘기이지만)
특히 네이버 OpenAPI보다 국립중앙도서관 OpenAPI를 사용하고자 했던 목적 중 하나가 페이지 수 항목이 있기 때문이었는데 페이지 수가 없는 경우들이 많다. 너무 아쉬운 부분들이다.

왜일까? 추측해 보건대 도서 정보를 아르바이트생등을 통해 일괄 입력하지 않을까 싶은데 누락되는 경우들이 많은 게 아닐까 생각해 본다. 그 이유는 다른 항목들 예를 들면 VOL 필드가 있는데 이게 시리즈(예:나의 문화유산답사기등)로 나올 경우 몇 권인지를 갖고 있는 필드인데 장기간에 걸쳐 출판되는 경우 이 필드 항목이 없는 권들이 생긴다.
글로 쓰기에 참 어려운데 암튼 모든 데이터가 통일성 있게 존재하지 않는다는 것.
페이지 수가 없는 도서들이 많다는 것.
국립중앙도서관임에도 ISBN으로 검색되지 않는 책들이 꽤 있다는 것.
등이다.
32개 필드 중 도서 관리에 필요한 항목으로 정확하게 데이터가 있는 필드가 사실 얼마 없다는 것을 알게 되었다.
이런거 왜 정비를 안 하는 것인지...

국립중앙도서관 OpenAPI버전으로 만들면서 버튼을 한 개 더 만들었다.
현재 위치의 ISBN만 검색해서 데이터를 가져오는 것.

이번 글을 포스팅하면서 VBA 스크립트를 수정할 것이 생겼다.
. ISBN이 중복되는 경우 팝업을 띄워 어느 도서인지 선택하도록 해야 함. 이것은 이전에도 적었었는데 아직도 해결하지 못했음.
. '채우기-전체' 버튼을 누를때 프롬프트를 띄워 '진짜 전체를 검색할 것인지 ' 물어보도록 해야겠다. 오래 걸리기 때문
. 버튼을 누를때 Cell의 색상이 회색인 경우에는 다르게 작동하도록 해야겠다.
이유는 ISBN으로 검색했는데 정보가 없을 경우는 내가 인터넷으로 찾아서 직접 넣어야 하는 경우임.
이 상태에서 다시 버튼을 누르게 되면 내가 수작업으로 넣은 데이터가 사라지게 됨.(가져온 데이터도 없을 테니...)

아래는 국립중앙도서관 OpenAPI의 32개 항목이며 데이터를 받아서 확인해 보고 나에게 필요한 값만 엑셀에 넣고 나머지는 넣지 않았다.

            ' NO   필드                  -- 값 설명
            ' 1  : PAGE_NO ---------------- String 현재 쪽번호 ==> 값 없음
            ' 2  : TOTAL_COUNT ------------ String 전체 출력수 ==> 값 없음
            ' 3  : TITLE ------------------ String 표제
            ' 4  : VOL -------------------- String 권차
            ' 5  : SERIES_TITLE ----------- String 총서명
            ' 6  : SERIES_NO -------------- String 총서편차
            ' 7  : AUTHOR ----------------- String 저자
            ' 8  : EA_ISBN ---------------- String ISBN ==> 불필요
            ' 9  : EA_ADD_CODE ------------ String ISBN 부가기호 ==> 불필요
            ' 10 : SET_ISBN --------------- String 세트 ISBN ==> 불필요
            ' 11 : SET_ADD_CODE ----------- String 세트 ISBN 부가기호 ==> 불필요
            ' 12 : SET_EXPRESSION --------- String 세트표현 (세트, 전2권.) ==> 불필요
            ' 13 : PUBLISHER -------------- String 발행처
            ' 14 : EDITION_STMT ----------- String 판사항
            ' 15 : PRE_PRICE -------------- String 예정가격
            ' 16 : KDC -------------------- String 한국십진분류 (2020년 12월 31일 이후 데이터 제공불가)
            ' 17 : DDC -------------------- String 듀이십진분류
            ' 18 : PAGE ------------------- String 페이지
            ' 19 : BOOK_SIZE -------------- String 책크기
            ' 20 : FORM ------------------- String 발행제본형태
            ' 21 : PUBLISH_PREDATE -------- String 출판예정일
            ' 22 : SUBJECT ---------------- String 주제 (KDC 대분류)
            ' 23 : EBOOK_YN --------------- String 전자책여부 (Y: 전자책, N : 인쇄책)
            ' 24 : CIP_YN ----------------- String CIP 신청여부 (Y: CIP신청, N: CIP신청안함) ==> 불필요
            ' 25 : CONTROL_NO ------------- String CIP 제어번호 ==> 불필요
            ' 26 : TITLE_URL -------------- String 표지이미지 URL ==> 불필요
            ' 27 : BOOK_TB_CNT_URL -------- String 목차 ==> 불필요
            ' 28 : BOOK_INTRODUCTION_URL -- String 책소개 ==> 불필요
            ' 29 : BOOK_SUMMARY_URL ------- String 책요약 ==> 불필요
            ' 30 : PUBLISHER_URL ---------- String 출판사 홈페이지 URL ==> 불필요
            ' 31 : INPUT_DATE ------------- String 등록날짜 ==> 불필요
            ' 32 : UPDATE_DATE ------------ String 수정날짜 ==> 불필요

주요 VBScript는 아래와 같다.

Sub Call_OpenAPI_NL(RowNum As Integer)
    
    Dim OHTTP As WinHttpRequest
    Dim s_URL, C_Key, s_URL2, ISBN As String
    Dim O_XML As DOMDocument60
    Dim NodeList As IXMLDOMNodeList
    Dim NodeCell As IXMLDOMNode
    Dim NodeChild As IXMLDOMNode
    Dim i As Integer
    
    s_URL = "http://seoji.nl.go.kr/landingPage/SearchApi.do?cert_key="
    s_URL2 = "&result_style=xml&page_no=1&page_size=10&isbn="
    
    ' C_Key = Range("B1").Value2
    ' 여기에 본인이 발급받은 Key값을 넣으면 됨.
    C_Key = "< 발급받은 Key >"
    i = RowNum
    
    Set OHTTP = New WinHttpRequest
    
    Do While Range("A" & i).Value <> ""
        
        ISBN = Range("A" & i).Value
        
        OHTTP.Open "Get", s_URL & C_Key & s_URL2 & ISBN
        OHTTP.Send
        ' Debug.Print OHTTP.ResponseText
        If OHTTP.Status = 200 Then
            Set O_XML = New DOMDocument60
            O_XML.LoadXML (OHTTP.ResponseText)
            Set NodeList = O_XML.SelectNodes("o/docs/e")
            
            Range("A" & i).Interior.ColorIndex = 6

            ' NO   필드                  -- 값 설명
            ' 1  : PAGE_NO ---------------- String 현재 쪽번호 ==> 값 없음
            ' 2  : TOTAL_COUNT ------------ String 전체 출력수 ==> 값 없음
            ' 3  : TITLE ------------------ String 표제
            ' 4  : VOL -------------------- String 권차
            ' 5  : SERIES_TITLE ----------- String 총서명
            ' 6  : SERIES_NO -------------- String 총서편차
            ' 7  : AUTHOR ----------------- String 저자
            ' 8  : EA_ISBN ---------------- String ISBN ==> 불필요
            ' 9  : EA_ADD_CODE ------------ String ISBN 부가기호 ==> 불필요
            ' 10 : SET_ISBN --------------- String 세트 ISBN ==> 불필요
            ' 11 : SET_ADD_CODE ----------- String 세트 ISBN 부가기호 ==> 불필요
            ' 12 : SET_EXPRESSION --------- String 세트표현 (세트, 전2권.) ==> 불필요
            ' 13 : PUBLISHER -------------- String 발행처
            ' 14 : EDITION_STMT ----------- String 판사항
            ' 15 : PRE_PRICE -------------- String 예정가격
            ' 16 : KDC -------------------- String 한국십진분류 (2020년 12월 31일 이후 데이터 제공불가)
            ' 17 : DDC -------------------- String 듀이십진분류
            ' 18 : PAGE ------------------- String 페이지
            ' 19 : BOOK_SIZE -------------- String 책크기
            ' 20 : FORM ------------------- String 발행제본형태
            ' 21 : PUBLISH_PREDATE -------- String 출판예정일
            ' 22 : SUBJECT ---------------- String 주제 (KDC 대분류)
            ' 23 : EBOOK_YN --------------- String 전자책여부 (Y: 전자책, N : 인쇄책)
            ' 24 : CIP_YN ----------------- String CIP 신청여부 (Y: CIP신청, N: CIP신청안함) ==> 불필요
            ' 25 : CONTROL_NO ------------- String CIP 제어번호 ==> 불필요
            ' 26 : TITLE_URL -------------- String 표지이미지 URL ==> 불필요
            ' 27 : BOOK_TB_CNT_URL -------- String 목차 ==> 불필요
            ' 28 : BOOK_INTRODUCTION_URL -- String 책소개 ==> 불필요
            ' 29 : BOOK_SUMMARY_URL ------- String 책요약 ==> 불필요
            ' 30 : PUBLISHER_URL ---------- String 출판사 홈페이지 URL ==> 불필요
            ' 31 : INPUT_DATE ------------- String 등록날짜 ==> 불필요
            ' 32 : UPDATE_DATE ------------ String 수정날짜 ==> 불필요

            For Each NodeCell In NodeList
                For Each NodeChild In NodeCell.ChildNodes

                    'If NodeChild.nodeName = "PAGE_NO" Then ' 불필요
                    '    Range("B" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "TOTAL_COUNT" Then ' 불필요
                    '    Range("C" & i).Value2 = NodeChild.Text ' 불필요
                    If NodeChild.nodeName = "TITLE" Then
                        Range("B" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "VOL" Then
                        Range("C" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "SERIES_TITLE" Then
                        Range("D" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "SERIES_NO" Then
                        Range("E" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "AUTHOR" Then
                        Range("F" & i).Value2 = NodeChild.Text
                    'ElseIf NodeChild.nodeName = "EA_ISBN" Then ' 불필요
                    '    Range("I" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "EA_ADD_CODE" Then ' 불필요
                    '    Range("J" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "SET_ISBN" Then ' 불필요
                    '    Range("K" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "SET_ADD_CODE" Then ' 불필요
                    '    Range("L" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "SET_EXPRESSION" Then ' 불필요
                    '    Range("M" & i).Value2 = NodeChild.Text ' 불필요
                    ElseIf NodeChild.nodeName = "PUBLISHER" Then
                        Range("G" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "EDITION_STMT" Then
                        Range("H" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "PRE_PRICE" Then
                        Range("I" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "KDC" Then
                        Range("J" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "DDC" Then
                        Range("K" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "PAGE" Then
                        Range("L" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "BOOK_SIZE" Then
                        Range("M" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "FORM" Then
                        Range("N" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "PUBLISH_PREDATE" Then
                        Range("O" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "SUBJECT" Then
                        Range("P" & i).Value2 = NodeChild.Text
                    ElseIf NodeChild.nodeName = "EBOOK_YN" Then
                        Range("Q" & i).Value2 = NodeChild.Text
                    'ElseIf NodeChild.nodeName = "CIP_YN" Then ' 불필요
                    '    Range("Y" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "CONTROL_NO" Then ' 불필요
                    '    Range("Z" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "TITLE_URL" Then ' 불필요
                    '    Range("AA" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "BOOK_TB_CNT_URL" Then ' 불필요
                    '    Range("AB" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "BOOK_INTRODUCTION_URL" Then ' 불필요
                    '    Range("AC" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "BOOK_SUMMARY_URL" Then ' 불필요
                    '    Range("AD" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "PUBLISHER_URL" Then ' 불필요
                    '    Range("AE" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "INPUT_DATE" Then ' 불필요
                    '    Range("AF" & i).Value2 = NodeChild.Text ' 불필요
                    'ElseIf NodeChild.nodeName = "UPDATE_DATE" Then ' 불필요
                    '    Range("AG" & i).Value2 = NodeChild.Text ' 불필요
                    End If
                    
                Next NodeChild
            Next NodeCell
        Else
            Range("A" & i).Interior.ColorIndex = 48
        End If
        
        i = i + 1
    Loop

End Sub

무조건 따라 하기보다 우선 제공하는 사이트의 정보를 숙지할 필요가 있으니 국립중앙도서관 OpenAPI 페이지를 먼저 방문해서 알아보는 게 좋겠다.

국립중앙도서관 OpenAPI 활용방법 안내 페이지

국립중앙도서관

국립중앙도서관에 오신 것을 환영합니다

www.nl.go.kr

아래는 약 300여 개의 도서 정보와 VBA 스크립트를 담고 있는 엑셀파일이다.
허접한 스크립트이지만 어떤 분에게는 조금이나마 도움이 되길.

books_openAPI_NL_20250315_BlogUpload.xlsm

0.07MB

SecureCRT auto login VBScript for multiple servers(여러대 자동 로그인)

마이홈주의자 — Sat, 15 Mar 2025 08:24:24 +0900

많은 사이트에서 서버관련된 IT 종사자들이 SecureCRT를 사용한다.
본인의 전문 분야를 잘하기 위해서는 연관된 분야도 알아야 하는 경우들이 많다.
DBA라면 서버의 OS, Shell Script, 스토리지, 네트워크, vi(vim) editor, WAS 등이 되겠다.
그리고 필요한 것이 각종 Tool이다. DBA들이라면 Toad, Oracle Sql Developer, Orange 등의 Tool이 있을테고 모니터링 솔루션(DPM)으로 엑셈의 MaxGuage, 셀파소프트의 Sherpa등 일 것이다. 관제 솔루션들도 있다. 각 솔루션들마다 많은 기능들이 있어 어느 정도는 익숙하게 다루는게 중요하다.

이와 더불어 ssh로 접속해서 쓰는 Tool은 뭐랄까 공기나 물 같은 존재라고 할 수 있겠다.
항상 쓰면서도 뭔가 더 기능을 공부하면 편하게 쓸수 있을 것 같은데 원래의 일에 집중하다 보면 항상 놓치는 것 같다.
지금 사이트의 경우 편하게 빨리 로그인해서 작업하고 싶은데 매번 구차한 방식으로 로그인을 하고 있다. 구차한 방식으로 하게 된 이유는 보안이란 장벽 때문.

운영 DBA는 보통 100여 대 이상의 DB를 관리한다.
15년쯤 전, 일했던 사이트에서는 우리 팀에서 관리하는 DB가 300여대 였는데 그전부터 누군가가 만들어 놓은 스크립트를 이용해서 로그인을 편하게 했었는데 그때의 기억을 되살려 이번에 자동 로그인 스크립트를 짜보았다.

이번에 SecureCRT를 공부하면서 생각한 것이 정말 대단한 툴이 맞다.
그중에 내부적으로 파이썬(Python)과 VBscript를 스크립트를 지원한다는 것은 엄청난 기능이라고 생각한다.
SecureCRT에서는 이를 위해서 별도의 'Script' 메뉴가 있으며 여기에 'Run' 메뉴와 'Start Recording Script', 'Stop Recording Script' 메뉴가 존재한다.

나의 경우 SecureCRT에 Session Manager에 100여 대의 DB서버를 등록해 놓았다.
각 서버마다 Logon Actions > Automate Logon을 체크하고 그 아래에 로그인 정보를 셋업해 놓았었다.
서버의 패스워드는 주기적으로 바뀌는데 서버 패스워드 변경은 보안 유지보수 팀에서 따로 진행한다.
패스워드가 변경되면 SecureCRT에서도 변경해야 하므로 우리 팀 막내가 SecureCRT의 100여대의 서버 Property를 들어가 패스워드를 변경한다. 그리고 이 Config를 공유해 왔다.

팀 막내는 전형적인 MZ세대라서... 투덜거리면서 변경한다. 그 모습이 신경 쓰여 조금이라도 도움을 줘야 할 것 같아 아래와 같이 만들게 된 것이다.

파일은 두 개
. vbs script 파일 : CRT_login.vbs 라고 하자
. 서버목록과 로그인 정보를 갖고 있는 파일 : CRT_loginList.sql 라고 하자

방식은 이렇다.
SecureCRT에서 Session Manager에는 아래와 같이 서버들이 등록되어 있다.

SecureCRT Sesion Manager

그리고 각 서버들의 Property는 아래와 같이 설정했다.
. Automate logon은 체크해제
. Logon script를 체크하고 vbs파일 선택
. Display logon prompts in terminal window 체크

모든 서버들을 동일하게 설정하면 되므로 Session Manager에서 Shift를 누르고 마지막 서버를 누르면 여러 대의 서버들이 선택되고 Property를 선택(Alt + Enter)하면 전체 적용되는 화면이 나와 한번에 변경 할 수 있다.

vbs 파일은 아래와 같으며 동작 방식은 아주 간단하다.
Session Manager에서 선택한 서버의 Label에서 IP를 찾고 그 IP가 서버목록을 정리한 CRT_loginList.sql에 있는지 찾는다.
목록 파일에 있으면 그 옆에 적어 놓은 로그인 정보를 가져와서 crt.Screen.Send로 날리는 것이다.

VBSCRIPT 중 case문을 보면 모든 서버들을 case로 나누어 놓았는데 이 스크립트를 작성하기 위해서 한 번은 서버에 접속해서 Recording 해줘야 한다.
Recording 방법은 서버에 접속하기 전 'Start Recording Script'를 눌러 놓고 정상적으로 패스워드를 입력하는 절차로 로그인 해준다. (이때는 Automate Logon, Logon Script 모두 체크하지 않아야 함)
로그인 후 'Stop Recording Script'를 누르면 파일로 저장하게 되며 이 파일을 열어보면 아래 case 문과 거의 같다.
서버마다 약간씩 손을 본 후 아래의 내용에 case로 추가하면 된다.

아래의 스크립트는 crt.Screen Object를 썼기 때문에 모든 서버를 한번은 로그인해서 crt.Screen.WaitForString을 가져와야 하는 구조이다. 서버마다 프롬프트 내용이 다른 경우가 대부분이어서 case문이 계속 늘어 난다. 이걸 사용하지 않고 전부 crt.Session Object를 쓴다면 이 과정이 필요없고 스크립트가 아주 짧아질 것 같은데 그 방법은 알아내지 못했다.

#$language = "VBScript"
#$interface = "1.0"

crt.Screen.Synchronous = True

Sub Main

Dim objFSO, objStream
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.OpenTextFile("C:\Users\KCC\Documents\CRT_loginList.sql")

' Ver 8.5 doesn't have Label property for crt.Session
' CurrSession = Split(crt.Session.Label, "_")(0)
CurrSession = crt.Session.Config.GetOption("Hostname")

Do While objStream.AtEndOfStream <> True
	strLine = objStream.ReadLine
	CommaCNT = Len(strLine) - len(replace(strLine, ",", ""))
	If Split(Split(strLine, ",")(0), "_")(0) = CurrSession then
		If CommaCNT = 4 then
			' HostIP   = Split(Split(strLine, ",")(0), "_")(0)
			Uname1   = Replace(Split(strLine, ",")(1), " ", "")
			Passwd1  = Replace(Split(strLine, ",")(2), " ", "")
			UnameR   = Replace(Split(strLine, ",")(3), " ", "")
			PasswdR  = Replace(Split(strLine, ",")(4), " ", "")
		Elseif CommaCNT = 2 then
			' HostIP   = Split(Split(strLine, ",")(0), "_")(0)
			Uname1   = Replace(Split(strLine, ",")(1), " ", "")
			Passwd1  = Replace(Split(strLine, ",")(2), " ", "")
		End if
	Exit Do
	End if
Loop
objStream.Close

'  MsgBox "HostIP ===" & HostIP & "=== CurrSession(0)===" & CurrSession & "==="
Select Case CurrSession
	Case "xxx.xx.1.100"
		' xxx.xx.1.100_기록관리
		crt.Screen.WaitForString "Username: "
		crt.Screen.Send Uname1 & chr(13)
		crt.Screen.WaitForString "Password: "
		crt.Screen.Send Passwd1 & chr(13)
		crt.Screen.WaitForString "$ "
		crt.Screen.Send "TMOUT=0" & chr(13)
		crt.Screen.WaitForString "$ "
		crt.Screen.Send "su - " & chr(13)
		crt.Screen.WaitForString "root's Password: "
		crt.Screen.Send PasswdR & chr(13)
		crt.Screen.WaitForString "[rsdb:root]/>"
		crt.Screen.Send "TMOUT=0" & chr(13)
		crt.Screen.WaitForString "[rsdb:root]/>"
		crt.Screen.Send "su - oracle" & chr(13)
		crt.Screen.WaitForString "[rsdb:/app/oracle]$"
		crt.Screen.Send "TMOUT=0" & chr(13)
		crt.Screen.WaitForString "[rsdb:/app/oracle]$"
		crt.Screen.Send "work;cd han;" & chr(13)
	Case "xxx.xx.1.101"
		' xxx.xx.1.101_그룹포털#1
		crt.Screen.WaitForString "Username: "
		crt.Screen.Send Uname1 & chr(13)
		crt.Screen.WaitForString "Password: "
		crt.Screen.Send Passwd1 & chr(13)
		crt.Screen.WaitForString "$ "
		crt.Screen.Send "TMOUT=0" & chr(13)
		crt.Screen.WaitForString "$ "
		crt.Screen.Send "su -" & chr(13)
		crt.Screen.WaitForString ": "
		crt.Screen.Send PasswdR & chr(13)
		crt.Screen.WaitForString "root@krbsdb5 # "
		crt.Screen.Send "TMOUT=0" & chr(13)
		crt.Screen.WaitForString "root@krbsdb5 # "
		crt.Screen.Send "su - oracle" & chr(13)
		crt.Screen.WaitForString "EPKDB1:/oracle/app/oracle>"
		crt.Screen.Send "TMOUT=0" & chr(13)
		crt.Screen.WaitForString "EPKDB1:/oracle/app/oracle>"
		crt.Screen.Send "work;cd han;" & chr(13)
	Case "xxx.xx.1.102"
		' xxx.xx.1.102_그룹포털#2
		crt.Screen.WaitForString "Username: "
		crt.Screen.Send Uname1 & chr(13)
		crt.Screen.WaitForString "Password: "
		crt.Screen.Send Passwd1 & chr(13)
		crt.Screen.WaitForString "$ "
		crt.Screen.Send "TMOUT=0" & chr(13)
		crt.Screen.WaitForString "$ "
		crt.Screen.Send "su -" & chr(13)
		crt.Screen.WaitForString ": "
		crt.Screen.Send PasswdR & chr(13)
		crt.Screen.WaitForString "root@krbsdb5 # "
		crt.Screen.Send "TMOUT=0" & chr(13)
		crt.Screen.WaitForString "root@krbsdb5 # "
		crt.Screen.Send "su - oracle" & chr(13)
		crt.Screen.WaitForString "EPKDB2:/oracle/app/oracle>"
		crt.Screen.Send "TMOUT=0" & chr(13)
		crt.Screen.WaitForString "EPKDB2:/oracle/app/oracle>"
		crt.Screen.Send "work;cd han;" & chr(13)
	Case "xxx.xx.1.103"
		' xxx.xx.1.103_sherpa_LOGMS
		crt.Screen.WaitForString "Username: "
		crt.Screen.Send Uname1 & chr(13)
		crt.Screen.WaitForString "Password: "
		crt.Screen.Send Passwd1 & chr(13)
		crt.Screen.WaitForString "[sherpa@sherpamgr10 ~]$ "
		crt.Screen.Send "TMOUT=0" & chr(13)
	Case Else
		MsgBox "No Host to match!"
	Exit Sub
End Select

End Sub

아래 파일이 CRT_loginList.sql 이다.
csv 파일 형태이며 각 필드 구분자가 콤마(,) 이므로 특히 서버명에 콤마가 들어가면 안되겠다.
첫번째 항목 IP를 포함한 서버명
두번째 항목 첫 로그인 os계정
세번째 항목 첫 로그인 os 패스워드
네번째 항목 root os계정(root로 모두 동일...)
다섯째 항목 root os 패스워드

넷째, 다섯째 항목은 없는 경우들이 많으니 아래의 sherpa 서버처럼 3개 항목으로 구성해도 된다.

xxx.xx.1.100_기록관리,        mon, monPasswd   , root, rootPasswd
xxx.xx.1.101_그룹포털#1,      mon, monPasswd   , root, rootPasswd
xxx.xx.1.102_그룹포털#2,      mon, monPasswd   , root, rootPasswd
xxx.xx.1.103_sherpa_LOGMS, sherpa, sherpaPasswd

이번에 SecureCRT를 약간 더 공부하면서 Vandyke사의 유튜브 채널이 많이 도움이 되었고 정말 많은 기능이 있다는 것을 알았다.
채널을 여기에 공유한다.
https://www.youtube.com/@vandykesoftware/videos

vandykesoftware

VanDyke Software offers rock-solid applications for secure remote access, file transfer, and system administration, backed by expert customer support. VanDyke Software products include VShell®, SecureCRT®, and SecureFX®.

www.youtube.com

이제 Session Manager에서 각 서버들을 클릭하면 자동으로 로그인 되는 것 까지 했다.
남은 것은 제목에 쓴 것처럼 SecureCRT auto login vbs script for multiple servers(여러대 자동 로그인)을 하면 끝난다.

SecureCRT Session Manager

여러대를 동시에 접속하기 위해서는 몇가지 방법이 있는데 SecureCRT는 간단하게 Session Manager에서 서버를 선택후 오른쪽 버튼을 누르면 나오는 'Create Desktop Shortcut' (Ctrl + Alt + E) 기능을 제공하고 있어 이것을 이용하면 된다.
위에 보이는 것 처럼 평소 3대의 서버에 로그인하고 세션은 5개를 열어야 한다면 폴더를 만들어 주고 이미 만들어 놓은 세션 서버들을 폴더에 복사/붙여넣기 한다.
이 폴더의 서버들도 동일하게 logon script로 로그인하는 방식으로 동작할 것이다.

원하는 서버들을 넣은 후 폴더에서 오른쪽 버튼을 눌러 'Create Desktop Shortcut'을 누르면 이 폴더의 단축아이콘이 만들어 진다.

SecureCRT Session Manager

만들어진 단축아이콘을 클릭하면 SecureCRT가 뜨면서 5개의 세션이 동시에 열리고 자동 로그인까지 된다.

끝.