윈 도 우 저장공간 확인 및 정리

DriveSpacio.exe 와 WizTree를 사용하여 불필요한 큰 파일 등을 삭제할 때 사용하세요.

업자들은 "시간싸움"이잖아요.

스크립트 시작

'--------------

If WScript.Arguments.length =0 Then

  Set objShell = CreateObject("Shell.Application")

  objShell.ShellExecute "wscript.exe", Chr(34) & _

  WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1

Else

'--------------

Const strComputer = "."

Dim objWMIService, colProcessList

Set WshShell = WScript.CreateObject("WScript.Shell")

Set objFSO=CreateObject("Scripting.FileSystemObject")

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

curDir = objFSO.GetParentFolderName(WScript.ScriptFullName)

OSArchCheck = WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

Driv = curDir & "\DriveSpacio.exe"

WizT86 = curDir & "\WizTree.exe"

WizT64 = curDir & "\WizTree64.exe"

WshShell.Run Chr(34) & Driv & Chr(34), 0, True

x=msgbox("★ wiztree로 자세하게 확인 해 볼까요?", 4096 + 4, "wiztree")

If x = VbYes Then

If OSArchCheck = "x86" Then

WshShell.Run chr(34) & WizT86 & Chr(34), 0, True

Else

WshShell.Run chr(34) & WizT64 & Chr(34), 0, True

End If

Else

End If

End If

스크립트 끝