@echo off
taskkill /f /im wscript.exe /t
rem CreateObject("WScript.Shell").Run "taskkill /f /im wscript.exe", 0
start d:\data\VBSSynchro.vbs
start d:\data\cpu3.vbs
start d:\data\CopyCPUFile.vbs
***************************************************************************
uj5u.com熱心網友回復：
vbs不能共享使用？用過 slmgr.vbs，好像是可以的嗎？還是你這 vbs 有什么針對自己的鎖定操作？uj5u.com熱心網友回復：
沒有呀，第一次執行是可以的，多執行幾次，后面就有問題了，不知道咋回事。后附cpu3.vbs腳本。*****************************************************************************************************************
On Error Resume Next
strComputer = "."
i=0
t1=FormatdateTime(now(),0)
Dim sum
Set fso = CreateObject("Scripting.FileSystemObject")
Set wshshell = CreateObject("wscript.network")
hostname=wshshell.ComputerName
do while i<400000
wscript.sleep 1000*60 '30秒
t2=FormatdateTime(now(),0)
t2=Left(t2,Len(t2)-3)
sum=0
Set wmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'Set items=wmi.ExecQuery("Select * from Win32_Processor",48)
Set objProc = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'")'獲取第一個CPU物件
sum=objProc.LoadPercentage'獲取CPU使用率
'For Each j In items
'sum=sum+j.LoadPercentage
'Next
set f2=fso.opentextfile("d:\data\"& hostname &".txt",8,true) '引數8就是一行一行寫入.使用回圈可以寫若干行.
'f2.writeline(t2)
f2.writeline((i+1)&" - "&t2 & " - " & sum)
f2.close
t1=t2
i=i+1
'i=999
loop
wscript.quit
uj5u.com熱心網友回復：
可能是你寫入檔案時的沖突，而不是 vbs腳本檔案自身吧。多個運行都寫入到同一個檔案，難免有前個打開了在寫著，后面個要求打開，這就訪問沖突了。uj5u.com熱心網友回復：
bat第一步不是已經將所有的vbs都結束了嗎？參見：taskkill /f /im wscript.exe /t
uj5u.com熱心網友回復：
強行終止程式并不能讓其打開的檔案正常關閉。不過，你的腳本開頭有 On Error Resume Next 陳述句，按理應該會忽略錯誤最多不生成當時的記錄。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/89940.html
標籤：Windows客戶端使用
上一篇：重裝系統與雙系統問題求助