반응형 WMI18 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 3 4 5 다음 반응형