반응형 WMI18 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. 이전 1 2 3 4 5 다음 반응형
