본문 바로가기

WMI18

로그보기힘들어요 로그파일이... 너무 보기 힘들어서 만듬. 혹시라도 그럴 일이 없을 것 같지만, 나중에 딴대서 써 먹을 수도 있을 것 같아서 올려둠. 1. 로그 파일을 다운로드 받는 경우 타겟 디렉토리에서 가장 최근에 생성된 파일을 읽어 온다. 수기 입력도 된다. 2. 로그파일내에서 내가 보고자 하는 키값이 포함된 라인만 화면에 출력한다. 3. MyBatis 형식의 SQL과 파라메터가 포함되어 있다면 맵핑해 준다. 4. Excpetion이 발생할 경우 Git 사이트가 구축되어 있다면 링크를 걸어 준다. 뻑이나요ㅠㅠ: | 자동선택: >> 로그파일 PREFIX : domain1 domain2 로그파일 직접입력: UUID : 제낄문구(/로 구분) ON : 멍멍 2023. 3. 28.

HTA] 노티 발생시 윈도우 전면에 띄우기 어쩌다보니 웹에 공지사항 같은게 올라오면 긁어서 메신저 처럼 hta로 활성화 띄워주는걸 만들어 보았다. 이래저래 구글구글 거려 봤는데 다들 안 된다는 글뿐... 하지만 진짜 안 되는거 빼고는 안 되는게 어딨어 ㅋ 일부 문제가 있긴 하지만 되긴된다. 실행시켜 놓으면 문서에 변경이 있으면 전면으로 뛰쳐나오면서 활성화 되고 윈도우 작업표시줄에서는 타이틀이 반복 변경이 되서 변경사항을 알려준다. 프로그램명은 rednoti.hta 요거다. 하다보니 vbscript랑 javascript가 섞여 있다. 핵심은 sub doactive set objshell = createobject("wscript.shell") objshell.appactivate "rednoti" objshell.sendkey "% r" end s.. 2021. 3. 16.

[HTA] 네트워크드라이브를 이용한 채팅 어쩌다 보니.. HTA로 별걸 다 하게 되었다. 웹서버가 있으면 좋겠지만, 없는 상황에서 비스끄무리 하게 할 수 없을까란 생각에서 출발해서 만든거다. 아이디어는 간단하다. 어차피 서버에서 일부 정보를 읽고 쓰고 하기만 하면 되니까 네트워크 드라이브를 이용해서 뭔가 수작을 부려 보았다. 사실 네트워크 프로그래밍이 아니다 보니까 훨씬 더 간단하게 만들 수 있다. 좌측에 채팅 내용이 표기되고 우측에 파일 업로드/다운로드 목록을 볼 수 있다. [NetworkDriveChat.hta] 2020. 2. 23.

일괄 파일 생성을 해 봅시다. .... 일괄 파일 생성이라.. 뭐 마땅히 제목을 붙일 만 한게 없어서 ;; 무엇인고 하니~ 동일한 규칙에 따라 생성해야 하는 파일이 있습니다. 설정 파일 이었습니다. 내용이 다 똑같은 건 아니지만 폴더 명이나 기타 등등 조금만 변경해서 생성하면 되는 파일이 있었습니다. 근데 요걸 각 폴더 찾아가면서 일일이 복사해서 붙이고 폴더명 바꿔주고... 엄청난 카피 엔 페이스트와 오타 나거나 햇갈릴수도 있는 노가다의 최고봉이었습니다. 그래서.. 이 놈을 가만히 살펴보니 자동화가 가능합디다. 그래서 만든거였습니다. 이러저러한 사정이 있으므로 전체 소스를 공개 하진 않겠습니다. ㅋ 중간중간 막 잘라 먹고 이름변경해서 해 놨음둥 ㅎ Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = .. 2010. 6. 28.

WMI] 엑셀파일 가지고 장난치기 엑셀문서에서 뭔가 조합해서 뽑아내기 위해서 만들었던 건데.. 그냥 주석만 몇개 달고 그냥 올려 버리는거임... 정리해서 필요한거 몇줄만 올려야 되는데.. 귀차나 귀차나 ~ 캬아 캬아 간만에 포스팅질 ~ :D 3개월만인가 ;; Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "테이블 정의서|*.xls|All Files|*.*" objDialog.FilterIndex = 1 objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen If intResult = 0 Then Wscript.Quit Else targetFile = objDialog.FileName End If .. 2009. 8. 14.

폴더내 파일명 일부 몽땅 변경 특정 폴더를 선택하고 파일명 전체나 일부를 모두 변경하는 WMI 스크립트입니다. 이렇게 해야 할 경우도 있더군요. 뭐.. 어쨌거나... 대소문자 구분이 좀 이상하네요..-_- 될 때도 있고 안될 때도 있고.... 사실.. 파일내에 문자까지도 치환했는데.. 이상하게.. 중복되어서 되는 그지 같은 현상이 발생되서 뺐습니다. 한... 80% 부족한 것 같은 느낌이... -_ㅠ [File_name_change.vbs] '폴더 선택 Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(MY_COMP.. 2008. 4. 1.

WMI] 다이얼로그 박스를 띄워서 폴더 경로 선택하기 이번에는 뭔가 비쥬얼한걸 해 보도록 하겠습니다. 맨날 텍스트만 보여주니 지루하기도 하구요. -_-a 예쁜 다이얼로그 박스를 띄워 봅시다~ 뭐.. 어차피 윈도우에서 제공하는 객체를 이용하므로 그냥 끌어다가 쓰기만 하면 됩니다. ㅎㅎ 사용자에게 폴더 경로를 선택하게 할 때는 이래저래 방법이 있겠지만 다이얼로그 박스를 띄워서 마우스 클릭질로 하는게 편리하고 정확한 경로를 지정할 수 있게 하겠지요. 한번에 반복적으로 작업을 해야 한다면 텍스트 입력박스를 띄우는게 편리하겠지만 한번씩 쓰는 것이라면 경로 트리가 보기좋게 뜨는 다이얼로그 박스가 좋을 것 같습니다. [Select_Folder.vbs] Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = .. 2008. 3. 12.

WMI를 이용해서 이메일 날리기 오랜만에 WMI관련 포스팅이군요.. 요즘에는 만사가 귀찮답니다 -_ㅠ WMI에서 e-mail도 날릴 수 있습니다!! 놀랬져 ㅎㅎ 코드는 상당히 간단합니다. CDO 오브젝트를 가져와서 그냥 이용하기만 하면 되지요. [Send_Mail.vbs] Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Example CDO Message" objMessage.From = "keiz@email.com" objMessage.To = "keiz@email.com;keiz2@email.com" objMessage.TextBody = "WMI Test Mail :D" objMessage.Send 보시면 아시겠지만 From,To,TextBody 라는 단어에서.. 2008. 3. 12.

WMI를 이용해서 빈 폴더 찾아 내기 WMI를 이용해서 폴더내에 내용이 없는 껍대기만 있는 폴더, 즉 빈 폴더를 찾아 보도록 하겠습니다. (말이 좀 어렵다 -_-;;;) 여기서 찾는 비었있는 폴더의 기준은 파일의 존재 여부와 상관없이 폴더의 사이즈가 0 인 것을 말 합니다. 예를 들어서 0바이트 짜리 텍스트 문서가 폴더 내에 존재 한다고 해서 이 폴더가 비어있는 폴더에서 제외되는 것은 아닙니다. 파일이 존재 하지만 사이즈가 0 이면 폴더 사이즈도 0 인 것입니다. 코드 보겠습니다~ 짧아서 좋습니다. ㅎㅎ [ FIND_EMPTY_FOLDER.VBS ] On Error Resume Next Set FSO = CreateObject("Scripting.FileSystemObject") ShowSubFolders FSO.GetFolder("D:\".. 2008. 2. 27.

WMI로 디스크 사이즈 알아내기 이번에는 WMI로 디스크 사이즈를 알아 보기로 하겠습니다. 각설하고 바로 코드 들어 갑니다. [ Disk_Size.vbs ] On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=3",,48) For Each objItem in colItems Wscript.Echo "DeviceID: " & objItem.DeviceID ' Wscript.Echo "Name: " & objItem.Name ' Wsc.. 2008. 2. 25.

WMI로 파일 삭제 WMI는 윈도우에서 할 수 있는 대부분의 기능을 수행할 수 있습니다. 여기서는 간단하게 파일을 지우는걸 보여 드리겠지만 응용하면 다양하게 써 먹을 수 있겠져~ [ Del_File.vbs ] strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFileList = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='C:\kei'} Where " _ & "ResultClass = CIM_DataFile") For Each objFile In colFileList If InStr(objFile.FileName,"delet.. 2008. 2. 25.

WMI로 간단한 시스템 정보 확인! WMI를 이용해서 간단한 시스템 정보를 확인 할 수가 있습니다! 서버를 다루다 보면 이러한 시스템 정보가 필요 할 때가 있지요. 여기에 나온 것 보다 훨씬 많은 정보를 추출해 낼 수가 있지만~ 운영하면서 이건 필요하겠다 싶은 것만 추려서 만들어 봤습니다. 간단히 이런 것들만 뽑아 보십시다~ - 벤더명 - 모델 타입 - 씨리얼 번호 - 시스템 이름 - 모델명 - 메모리 사이즈 - OS 명 - OS 버전 - 서비스 팩 버전 참고로... 개인 컴퓨타에서 돌리면.. 뭐 벤더명,씨리얼 번호.. 이런게 나올려나 모르겠네요.. 아... 그리구 HP인가.. IBM인가... 둘 중에 하나가 이거로는 씨리얼 번호를 안 가르쳐 줍니다. 아무튼~ 아래는 스크립트 코드 입니다 ^-^ [System_INFO.vbs] strCom.. 2008. 1. 30.

이전 1 2 다음

티스토리툴바