使用bat批处理+vbs统计服务器计划任务

公司要统计各个服务器上的计划任务，我的天，那么多，手动找是不可能的，又不能复制，只好想办法写脚本去弄，哈哈，太懒了，@_@！！

1、先把tasks.bat放到要导出计划任务的服务器，普通电脑也行，windows系统的就行

2、我一般在桌面建一个temp文件夹，然后把tasks.bat放到这个文件夹里面

3、用cmd运行tasks.bat，记住要管理员权限！！！然后temp文件夹里面会生成一个tasks文件夹，计划任务的xml会全部复制到这个文件夹里面

4、把tasks文件夹改个名字“tasks(服务器的ip)”

5、然后把整个文件夹复制到本地

tasks.bat 文件源码转自http://www.jb51.net/article/83209.htm

rem 以下为关闭命令打印
@echo off


rem 以下为清屏
cls


rem 以下为设置此批处理所有的环境变量只应用于当前批处理
setlocal EnableDelayedExpansion


rem 以下为设置变量
set runasUsername=WSDCB048\administrator
set runasPassword=Dwc@2013


rem 以下%1是在此批处理执行时后面的第一个命令行参数（在执行的格式：脚本名+export 就相当于跳转到”：export“）
if %1. == export. call :export
if %1. == import. call :import


rem 以下为退出当前脚本，不是退出整个批处理
exit /b 0


:export
rem 以下为创建一个tasks文件夹，所有的错误不显示
md tasks 2>nul


rem 以下为列出所有计划任务并指定csv格式，然后找出与字符串TaskName不匹配的行，输出到一个文本文件
schtasks /query /fo csv | findstr /V /c:"TaskName" > tnlist.txt


rem 循环查找以（,）为分隔符列出每一行的每一项，指定%%i为第一项，用tokens=1,2指定第二项%%j和第三项%%k（也可以
rem 指定%%t为第一项，那么tokens=1,2指定第二项%%u和第三项%%v，第四项为%%W）


for /F "delims=, tokens=1,2*" %%i in (tnlist.txt) do (
 echo %%i
 echo %%j
 echo %%k
 set tn=%%i
rem 以下为设置fn为把tn的内容里的\替换成#
 set fn=!tn:\=#!
 echo !tn!
 echo !fn!
rem 以下为列出所有计划任务并指定xml格式，输出到当前目录的tasks文件夹下的XXX.xml文件
 schtasks /query /xml /TN !tn! > tasks\!fn!.xml
)


rem 删除所有windows自带的计划任务
del tasks\#Microsoft*.xml
exit /b 0


rem 以下为导入标签，在执行的格式：脚本名+import 将会直接跳转到这里开始执行


:import
rem 在这个目录里循环找到所有的xml


for %%f in (tasks\*.xml) do (
  rem 用call命令来调用（:importfile）标签执行，并赋予上面查找出来的名字为参数
  call :importfile "%%f"
)
exit /b 0


:importfile
rem 以下为设置filename=上面用call命令调用时赋予的第一个参数，如果是 set filename=%2则是第二个参数     
set filename=%1


rem 以下为设置把filename里#字符替换为空
set taskname=%filename:#=%


rem 以下为设置把filename里tasks\字符替换为空
set taskname=%taskname:tasks\=%


rem 以下为设置把filename里.xml字符替换为空
set taskname=%taskname:.xml=%


rem 以下为用用户名和密码创建名字为XXX的计划认为，以xml文件为参数
schtasks /create /ru %runasUsername% /rp %runasPassword% /tn %taskname% /xml %filename% 

echo on

参考 

这个vbs做了很久，因为导出的计划任务的xml文件是UTF-16位的，所以要先转出UTF-8，然后计划任务一般会做两件事，运行程序或者是发邮件，所以这个时候做个判断就好了

6、复制到本地后，将各个服务器的”tasks(服务器Ip)“文件夹放在同一个文件夹下面，把tasks.vbs也放在这个文件夹里面

7、然后执行，就会生成一个result.csv的表格文件，使用excel（2013以上吧）打开，整理一下格式，另存为你想要的*.xlsx就搞定了

tasks.vbs

'On Error Resume Next
Dim server(),ResultCSV
Redim server(4)
server(0) = "10.200.0.153"
server(1) = "10.200.0.169"
server(2) = "27.115.119.169"
server(3) = "202.134.114.228"
server(4) = "202.134.114.229"

ResultCSV = "result.csv"

function begin_()
	dim folder,objfso,xDoc,rootDoc,xNode,objfolder,filess,tasks,op,Author,content
	'首先获得所有服务器ip，这个是自己定义的
	for each ip in server
		'根据ip获得计划任务文件夹
		folder = "D:\0_do_work\daneng\2018-4-8tasks\tasks(" & ip & ")"
		'msgbox folder
		Set objfso = createobject("Scripting.FileSystemObject")
		set objfolder = objfso.GetFolder(folder)
		'msgbox objfolder.Path
		'文件夹里面全是计划任务的xml
		set filess = objfolder.Files
		'循环读取每个xml，取出关键信息
		Set xDoc = CreateObject("Microsoft.XMLDOM")
		for each file in filess
			fileName = file.name
			tasksName = mid(fileName,1,InStrRev(fileName,".",-1,1)-1)
			'msgbox InStrRev(tasksName,"#",-1,1)
			tasksFolder = mid(tasksName,1,InStrRev(tasksName,"#",-1,1)-1)
			'msgbox tasksFolder
			if tasksFolder = "" then
				tasksFolder = "Root"
			else 
				tasksFolder = Replace(tasksFolder,"#","\",1,-1,1)
			end if
			tasks = mid(tasksName,InStrRev(tasksName,"#",-1,1)+1)
			'msgbox tasksFolder
			'exit function
			op = ""
			Author = ""			
			'msgbox tasksName
			'msgbox file.path
			changeEncoding(file.path)
			xDoc.async = False
			xDoc.Load (file.path)
			If xDoc.parseError.errorCode <> 0 Then
				continue
			end if			
			Set rootDoc = xDoc.documentElement
			set xNode=rootDoc.selectSingleNode(".//Actions")
			if xNode.hasChildNodes then
				set childNode = xNode.ChildNodes(0)
				operation = childNode.nodeName
				'如果是执行程序，那他一定有Command, Arguments, WorkingDirectory这三个节点，但是Command可能看不明白
				if operation = "Exec" then
					op = "Execute script," 
					for each item in childNode.ChildNodes
						if item.nodeName = "Command" then
							op = op & "execute" & " : " & item.text & ", "
						else
							op = op & item.nodeName & " : " & item.text & ", "
						end if
					next
				elseif  operation = "SendEmail" then
					'如果是发邮件，那就把那些参数都写上去就OK
					op = "Send email,"
					for each item in childNode.ChildNodes
						op = op & item.nodeName & " : " & item.text & ", "
					next
				end if
			end if 
			'msgbox xNode
			'op = xNode.Text
			'msgbox op
			set xNode=rootDoc.selectSingleNode(".//RegistrationInfo/Author")
			Author = xNode.Text
			content = ip &chr(44)& tasksFolder &chr(44)&tasks &chr(44)& Author &chr(44)& op 
			'msgbox content
			writecsv(content)
			'wscript.sleep 500
			set xNode = nothing
		next
		set objfolder = nothing
		set objfso = nothing
	next
end function

'改encoding为utf-8如果已经是utf-8就不需要改了
function changeEncoding(file)
	dim objfso,opfile
	Set objfso = createobject("Scripting.FileSystemObject")
	set opfile = objfso.opentextfile(file,1,false,-2)
	content = opfile.ReadAll()
	opfile.close()
	set opfile = nothing
	
	index = InStr(1,content,"UTF-8",1)
	if index=0 Then
		endIndex = InStr(index,content,chr(34),1)
		newContent = mid(content,1,index-1)
		newContent = newContent & "UTF-8" & mid(content,endIndex)
		'msgbox newContent
		set opfile = objfso.opentextfile(file,2,false,-2)
		opfile.write(newContent)
		opfile.close()
		set opfile = nothing
	end if 
end function

'将内容写到csv文件里面
function writecsv(content)
	dim objfso,csvfile
	Set objfso = createobject("Scripting.FileSystemObject")
	if not objfso.FileExists(ResultCSV) then
		set csvfile = objfso.CreateTextFile(ResultCSV,true,false)
		csvfile.WriteLine "server"&chr(44)&"tasks folder"&chr(44)&"tasks name"&chr(44)&"author"&chr(44)&"operation"
		set csvfile = nothing
	end if
	set csvfile = objfso.opentextfile(ResultCSV,8,false,0)
	'csvfile.writeline "1"&chr(44)&"2"&chr(44)&"3"
	csvfile.writeline(content)
	set csvfile = nothing
end function

begin_()

'changeEncoding("D:\0_do_work\daneng\2018-4-8tasks\tasks(10.200.0.169)\#F2M_BP_AccrualandPayment.xml")
'Set xDoc = CreateObject("Microsoft.XMLDOM")
'xDoc.async = False
'msgbox xDoc.Load ("D:\0_do_work\daneng\2018-4-8tasks\tasks(10.200.0.169)\#F2M_BP_AccrualandPayment.xml")

If Err Then
	
End If

好像末尾都需要写点什么，好吧，那就写点什么吧，以上代码，全是自己在百度一个一个找的，要不是计划任务太多了，我也不会写。。。@!^@！