[Iska]

Примерная болванка:

Код:

Option Explicit

Dim objWshShell
Dim objFSO

Dim strGUID
Dim strPath4Store
Dim strPath2Inbox


Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")

strGUID       = objWshShell.RegRead("HKEY_CURRENT_USER\Identities\Last User ID")
strPath4Store = objWshShell.RegRead("HKEY_CURRENT_USER\Identities\" & strGUID & "\Software\Microsoft\Outlook Express\5.0\Store Root")
strPath2Inbox = objFSO.BuildPath(objWshShell.ExpandEnvironmentStrings(strPath4Store), "Входящие.dbx")

If objFSO.FileExists(strPath2Inbox) Then
	If objFSO.GetFile(strPath2Inbox).Size >= 1.5 * 2^30 Then
		' Alert here
	Else
		' Nothing to do
	End If
Else
	WScript.Echo "Can't find file [" & strPath2Inbox & "]."
	WScript.Quit 1
End If

Set objFSO      = Nothing
Set objWshShell = Nothing

WScript.Quit 0

Проверяйте.