优化VBS：判断指定文件是否存在并执行相应操作 - 中国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，不会有影响吧？

第1楼　wl00560	发表于 2008-12-16 16:12
银牌会员　发帖 709　积分 1,384
[求助]优化VBS：判断指定文件是否存在并执行相应操作在论坛上求助，加上到处百度资料，终于七拼八凑出可以用的文件，但实在太混乱了，所以想请哪位高手优化一下。代码的含义：当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 ]

第2楼　wl00560	发表于 2008-12-16 16:13
银牌会员　发帖 709　积分 1,384
真的好混乱啊，汗……

第3楼　wl00560	发表于 2008-12-16 16:36
银牌会员　发帖 709　积分 1,384
不好意思，因为很高兴，没有考虑到版规，抱歉……

第4楼　huahua0919	发表于 2008-12-17 09:59
银牌会员　发帖 780　积分 1,608
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 ]

第5楼　wl00560	发表于 2008-12-17 16:56
银牌会员　发帖 709　积分 1,384
感谢，刚才用了一下，发现三个问题： 1，那个文件似乎只在开始写一下，然后就不再写入了。 2，如果m.txt文件存在，则无法创建文件，提示权限不够。 3，如果wscript进程没有退出，则无法写入文件，提示权限不够。不知能不能解决这些问题？

第6楼　huahua0919	发表于 2008-12-17 17:36
银牌会员　发帖 780　积分 1,608
重新修改过，不知能否解决你的问题

第7楼　wl00560	发表于 2008-12-17 21:50
银牌会员　发帖 709　积分 1,384
嗯，也许是我没有把话说清楚，抱歉，呵呵…… 我是想复写文件（删除以前的内容，加入新的内容，然后又删除，又加入），而不是一行一行的加入…… 另外，脚本只有打开文件时，内容才可以更新，如果不打开，便一直不会更新……估计是没有写入文件中。我想做个桌面工具，不断地读取这个文件，然后显示出可用内存数…… 这点我不知你是否好测试？作为一个参考，我下面的脚本是可以做到的（可能就是用了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 ]

第8楼　everest79	发表于 2008-12-18 01:40
金牌会员　发帖 1,127　积分 2,564
这样一直查询很耗资源 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

第9楼　wl00560	发表于 2008-12-19 12:34
银牌会员　发帖 709　积分 1,384
回8楼谢谢，还是运行不起来…… 那个mem.log文件始终没有变化，我想问一下，我是改成“r:\temp\mem.txt”的，这有没有影响？而且wcscript.exe似乎也不能运行，才出现便被杀掉了……如果这儿不好处理，能不能不管它，就写一个能复写文件的脚本，1秒钟更新一次？再次感谢两位大侠了，看来没有一个好的测试环境，很难写好这个文件，呵呵……

第10楼　everest79	发表于 2008-12-19 16:16
金牌会员　发帖 1,127　积分 2,564
8l的第一个就按你要求写的，测试过正常，可以复写mem.log文件

第11楼　wl00560	发表于 2008-12-19 16:24
银牌会员　发帖 709　积分 1,384
那我等下再试一下，我把mem.log设置成r:\temp\mem.log，不会有影响吧？