WMI를 사용한 폴더 생성
우선 폴더를 생성하기 위해 해당 서버의 디스크 정보를 Gathering 해와야 한다.
이때 사용하는 것이 WMI
WMI에 접속하기 위해서는 다음과 같이 진행한다.
시작 -> 실행 -> 실행창에서 wmic
일종의 윈도우에서 관리하는 다양한 정보의 DB라고 할 수 있습니다.
그러므로 VbScript와 Wmi에 대해 잘 알고 있으면 다양한 편리한 기능을 구현할 수 있다.
아래는 윈도우에 폴더를 생성하는 스크립트이다.
strIns_Dir = "C:\"
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
'디스크 정보를 WMI에서 Gathering
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskQuota")
'컬렉션을 이용해 각 디스크 정보 확인
For Each objItem In colItems
'볼륨 D:가 존재하는 경우 D:에 폴더 구성
If Left(Right(objItem.QuotaVolume, 3), 1) = "D" Then
strIns_Dir = "D:\"
'WScript.Echo "QuotaVolume: " & LEFT(RIGHT(objItem.QuotaVolume,3),1)
End If
Next
'디렉토리 생성
subMake_Dir (strIns_Dir & "DATA")
WScript.Echo "완료"
WScript.Quit
'=================================================================================================
'디렉토리 생성 함수
'=================================================================================================
Sub subMake_Dir(str_make_dir)
Set WShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
'디렉토리 존재여부 확인
If Not objFSO.FolderExists(str_make_dir) Then
'디렉토리 생성
objFSO.CreateFolder str_make_dir
End If
'메모리 반환
Set WShell = Nothing
Set objFSO = Nothing
End Sub
Wmi에서 FileSystem의 정보를 Gathering 해서 해당 정보를 바탕으로 디렉토리를 생성하는
간단한 예시이다.
이렇게 WMI와 Vbscript는 Powerful하다
Win2008에는 파워쉘이라는 것이 존재한다고 하니
해당 쉘을 이용해서 모든 관리가 가능한 그런 간편한 세상이 올거 같다.
