中国DOS联盟

；这个创建mem.txt文件，但后面也有创建的，不知道是什么意思，也许无用？
Set objShell = CreateObject("Wscript.Shell")
Sub writefile(detail)
set fs=CreateObject("Scripting.FileSystemObject")
set file=fs.CreateTextFile("R:\temp\mem.txt",flase)
file.Write detail
file.Close
set fs=nothing
End Sub
；这个是论坛上everest79大侠给我的代码，取得可用内存数，也感谢一下他……
Function Available
Dim wmi
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set ref=wmi.ExecQuery("Select * From Win32_PerfFormattedData_PerfOS_Memory")
For Each x In ref
Available=x.AvailableBytes/1024
Next
End Function
；这个是不断把文件复写入mem.txt
Const ForWriting = 2
Set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.CreateTextFile("R:\temp\mem.txt")  
Do
dim OK,oShell
OK=False
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='1.exe'")
；这个是如果1.exe不存在，就终止脚本
For Each id In pipe
OK = True
Next
If not OK Then
Set wshShell = WScript.CreateObject("WScript.Shell")
wshShell.run "TASKKILL /im Wscript.exe /f",0
wshShell.run "TASKKILL /im Wmiprvse.exe /f",0
end if
Set objFile=objFSO.OpenTextFile("R:\temp\mem.txt", ForWriting)
objFile.Write Available
objFile.Close
WScript.Sleep(500)
Set Of = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Loop

strComputer = "."

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

Set colMonitoredProcesses = objWMIService. _
    ExecNotificationQuery("select * from __instancedeletionevent " _
            & "within 1 where TargetInstance isa 'Win32_Process'")

set ObjProcess=objWMIService.instancesof("win32_process")
for each i in  objProcess
   if i.name="1.exe" then
     call loops
   end if
next
Wscript.echo "no 1.exe process!~"

Function loops
Set Fso=CreateObject("scripting.filesystemobject")
Set f=Fso.createtextfile("m.txt",true)

Do While true
    Set ref=objWMIService.ExecQuery("Select * From Win32_PerfFormattedData_PerfOS_Memory")
    For Each x In ref
    Available=x.AvailableBytes/1024
    f.writeline Available
    Next
    set ref=nothing
    Set objLatestProcess = colMonitoredProcesses.NextEvent
    if objLatestProcess.TargetInstance.Name="1.exe" then
    wscript.echo "1.EXE is closed"&wscript.quit
    end if
Loop
End Function

Const Exe_FileName="hh.exe"
Const Log_FileName="Mem.LOG"
Dim Wmi,Fso,oIe
Set Wmi=GetObject("Winmgmts:\\.\root\cimv2")
Set Fso=CreateObject("Scripting.FileSystemObject")

Do
Set Fpn=Wmi.ExecQuery("Select * From Win32_Process Where Name='" & Exe_FileName & "'")
Str=Exe_FileName&"?"
For Each obj In Fpn
Str=obj.Name
OutputFile
Next
Wscript.Sleep 1000
Loop While StrComp(Exe_FileName,Str,1)=0

Function Available
Set ref=Wmi.ExecQuery("Select * From Win32_PerfFormattedData_PerfOS_Memory")
For Each obj In ref
Available=obj.AvailableBytes/1024
Next
End Function

Function OutputFile
Set Mlg=Fso.OpenTextFile(Log_FileName,2,True)
Mlg.Write Available
End Function

Const Exe_FileName="hh.exe"
Const Log_FileName="Mem.LOG"
Dim Wmi,Fso,oIe
Set Wmi=GetObject("Winmgmts:\\.\root\cimv2")
Set oIe=CreateObject("InternetExplorer.Application")

With oIe
.FullScreen=1
.Width=100
.Height=12
.Navigate "about:blank"
.Top=3
.Left=.Document.ParentWindow.Screen.AvailWidth-.Width-10
.Document.Title="MEM"
.Document.Body.Scroll="no"
.Document.Body.bgcolor="skyblue"
.Document.Body.Style.MarginTop="0px"
.Document.Body.Style.FontSize="12px"
.Document.Body.Style.lineheight="1"
.Visible=1
End With

Do
Set Fpn=Wmi.ExecQuery("Select * From Win32_Process Where Name='" & Exe_FileName & "'")
Str=Exe_FileName&"?"
For Each obj In Fpn
Str=obj.Name
oIe.Document.Body.InnerHTML="<CENTER><Strong>" & Available & " KB</Strong></CENTER>"
Next
Wscript.Sleep 1000
Loop While StrComp(Exe_FileName,Str,1)=0

oIe.Quit

Function Available
Set ref=Wmi.ExecQuery("Select * From Win32_PerfFormattedData_PerfOS_Memory")
For Each obj In ref
Available=obj.AvailableBytes/1024
Next
End Function