中国DOS联盟

在论坛上求助，加上到处百度资料，终于七拼八凑出可以用的文件，但实在太混乱了，所以想请哪位高手优化一下。
代码的含义：当1.exe存在时，vbs文件以1秒的速度，把可用内存数写入mem.txt文件。当1.exe不存在时，终止脚本文件。
代码如下，很混乱的，我对这个一窍不通，麻烦大家了，谢谢。
另外，我现在是用taskkill终止，我想用vbs自身的来终止，可是不知怎么写，麻烦给改一下。
很混乱的，也许你们能看懂吧，呵呵……
现在还有个讨厌的问题，脚本文件调动的是wmiprvse.exe文件，这个文件似乎不能用脚本终止。导致一堆wmiprvse文件出现……不知如何解决这个问题……

；这个创建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

─────────────────　版务记录　─────────────────
执行：HAT
操作：在帖子标题中增加搜索关键字；代码加code标签
说明：原标题"那位能帮我优化一下vbs脚本代码，谢谢了"不利于论坛搜索
处罚：扣除2点积分
提示：建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读，所有人的基本行为准则
{22703}请不要做浮躁的人
{32667}那些连标题都写不清楚的人们啊，你们醒醒吧
{32825}本版严厉整顿烂帖
─────────────────　版务记录　─────────────────

Last edited by wl00560 on 2008-12-16 at 16:39 ]

真的好混乱啊，汗……

不好意思，因为很高兴，没有考虑到版规，抱歉……

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

Last edited by huahua0919 on 2008-12-17 at 17:35 ]

感谢，刚才用了一下，发现三个问题：
1，那个文件似乎只在开始写一下，然后就不再写入了。
2，如果m.txt文件存在，则无法创建文件，提示权限不够。
3，如果wscript进程没有退出，则无法写入文件，提示权限不够。
不知能不能解决这些问题？

重新修改过，不知能否解决你的问题

嗯，也许是我没有把话说清楚，抱歉，呵呵……
我是想复写文件（删除以前的内容，加入新的内容，然后又删除，又加入），而不是一行一行的加入……
另外，脚本只有打开文件时，内容才可以更新，如果不打开，便一直不会更新……估计是没有写入文件中。
我想做个桌面工具，不断地读取这个文件，然后显示出可用内存数……
这点我不知你是否好测试？
作为一个参考，我下面的脚本是可以做到的（可能就是用了open语句？打开了文件？）

Set objFile=objFSO.OpenTextFile("R:\temp\mem.txt", ForWriting)
objFile.Write Available
objFile.Close
WScript.Sleep(500)

你写的东西对我来说太困难了，本想自己改一下，但左看右看也看不出应该怎样修改……呵呵

Last edited by wl00560 on 2008-12-17 at 21:52 ]

这样一直查询很耗资源

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

回8楼
谢谢，还是运行不起来……
那个mem.log文件始终没有变化，我想问一下，我是改成“r:\temp\mem.txt”的，这有没有影响？
而且wcscript.exe似乎也不能运行，才出现便被杀掉了……如果这儿不好处理，能不能不管它，就写一个能复写文件的脚本，1秒钟更新一次？

再次感谢两位大侠了，看来没有一个好的测试环境，很难写好这个文件，呵呵……

8l的第一个就按你要求写的，测试过正常，可以复写mem.log文件

那我等下再试一下，我把mem.log设置成r:\temp\mem.log，不会有影响吧？