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