'vbs'에 해당되는 글 2

  1. 2010.04.22 Windows에서 디스크 용량 보기 명령어
  2. 2009.11.11 키 입력 스크립트

Windows에서 디스크 용량 보기 명령어

1. dir 명령을 사용하면 사용가능한 용량이 나온다.
> dir | findstr 남음
               2개 디렉터리   6,948,356,096 바이트 남음

2. 찾아보니 fsutil 이라는게 있다.
> fsutil volume diskfree E:
사용 가능한 공간(KB): 1119924224
전체 공간(KB): 20971528192
사용 가능한 빈 공간(KB): 1119924224

그래도 부족하다.

3. NTFAQ에 원하는 내용이 있다.
- df.vbs
Set oWMIService = GetObject("winmgmts:")
Set oLogicalDisks = oWMIService.InstancesOf("Win32_LogicalDisk")

'Wscript.Echo "Filesystem Size Used Available Use%"
Wscript.Echo "Filesystem    Size          Available"

For Each oLogicalDisk In oLogicalDisks
    Wscript.Echo oLogicalDisk.DeviceID & "            " & oLogicalDisk.Size & "   " & oLogicalDisk.Freespace
Next

Set oLogicalDisks = Nothing
Set oWMIService = Nothing

- df.bat
@echo off
CScript E:\bin\df.vbs //NoLogo

> df
Filesystem    Size          Available
C:            20971528192   1120002048
D:            20971528192   16167817216
E:            38072369152   6948356096
F:

[todo] \t 로 제대로 정렬되게 할 것

키 입력 스크립트

배치파일에서 사용할 키 입력 스크립트
ipchange같이 메뉴에서 선택하는 경우에 사용함.

'Usage : enterKey.vbs KEY DELAY_MILLISECOND TRUE | FALSE

Set sh = WScript.CreateObject("WScript.Shell")
Set args = WScript.Arguments
cnt = args.Count

key = args.Item(0)
delay = 0
isEnter = True

If cnt > 1 Then delay = args.Item(1)
If cnt > 2 Then isEnter = args.Item(2)

WScript.Sleep delay
sh.SendKeys key
If isEnter Then sh.SendKeys vbCr

> enterKey.vbs test 'test를 입력한다.
> enterKey.vbs test 1000 '1초를 쉬고 test를 입력한다.
> enterKey.vbs test 1000 True '1초를 쉬고 test를 입력하고 엔터를 입력한다.

> enterKey.vbs "" 500 True '엔터만 입력?????