Tag: VBS预览模式: 普通 | 列表

重启windows服务的vbs脚本!

作者:admin 日期:2010-07-18

有一些服务运行一段时间后占用内存变的很大.这个可能是程序的bug,当然解决办法出了等更新外就只能一段时间重起一次服务!

On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
while true
  'RestServer("bbvod.netbar.clientservice")
  RestServer("QyMain")
  'RestServer("NetbarUpdate")
  WScript.Sleep(1000*60*60*24) '24小时一次
wend

function RestServer(Server)
  objWMIService.ExecMethod "Win32_Service.Name='"&Server&"'", "StopService"
  Wscript.Sleep 20000
  objWMIService.ExecMethod "Win32_Service.Name='"&Server&"'", "StartService"
  RestServer=0
end function

Tags: VBS VBS

分类:技术资料 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 74

如何从文本文件中删除所有重复行,相同行？

作者:admin 日期:2008-02-23

经常遇到要一个文本文件中有很多相同的行,但是我们只要其中一个行就可以了.找了很多软件都没有这个功能.下面是一个实现这个功能的VBS脚本.代码很简单,一看就明白了了.
因为我们使用“ActiveX 数据对象”(ADO) 并将此文本文件当作数据库处理。所以处理速度非常的快

------------代码开始-----------
'删除文本文件中重复的行!
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
Set fso = CreateObject("Scripting.FileSystemObject")
strPathToTextFile = "e:\vbs\" '文件所在目录
strFile = "t.txt" '输入文件名
outFile = "out.txt" '输出文件名

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strPathtoTextFile & "; Extended Properties=""text;HDR=NO;FMT=Delimited"""
objRecordSet.Open "Select DISTINCT * FROM "& strFile, objConnection, adOpenStatic, adLockOptimistic, adCmdText

set file=fso.OpenTextFile("\\192.168.0.250\日志$\正常.log", ForWriting, True)
Do Until objRecordSet.EOF
   'Wscript.Echo objRecordSet.Fields.Item(0).Value
    file.WriteLine objRecordSet.Fields.Item(0).Value
    objRecordSet.MoveNext
Loop