用VBS脚本获取系统日志信息（应用程序、安全性和系统的日志信息），可以使用WMI或者CMD命令、

strComputer = ""

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colLoggedEvents = objWMIServiceExecQuery _

("Select from Win32_NTLogEvent Where Logfile = 'Application'") '获取应用程序日志,其它类推

For Each objEvent in colLoggedEvents

WscriptEcho "Category: " & objEventCategory

WscriptEcho "Computer Name: " & objEventComputerName

WscriptEcho "Event Code: " & objEventEventCode

WscriptEcho "Message: " & objEventMessage

WscriptEcho "Record Number: " & objEventRecordNumber

WscriptEcho "Source Name: " & objEventSourceName

WscriptEcho "Time Written: " & objEventTimeWritten

WscriptEcho "Event Type: " & objEventType

WscriptEcho "User: " & objEventUser

Next

求采纳！

Set oexcel=CreateObject("excelapplication")

Set obook=oexcelWorkbooksOpen("c:\test\excelxls")

Set osheet=obookSheets("sheet1")

'显示第一个工作表A1单元格数据

msgbox osheetcells(1,1)

Set obook=Nothing

Set osheet=Nothing

oexcelQuit

::关闭屏幕回显功能

@echo off

::设置变量DaysAgo的值为3

set DaysAgo=3

::把内容LastDate=date()-%DaysAgo%输出到%temp%\DstDatevbs文件中，这里的%DaysAgo%就是上面赋予的值，%temp%是系统缓存目录的变量

>"%temp%\DstDatevbs" echo LastDate=date()-%DaysAgo%

::把内容FmtDate=right(year(LastDate),4) & right("0" & month(LastDate),2) & right("0" & day(LastDate),2)累积输出到%temp%\DstDatevbs文件中

>>"%temp%\DstDatevbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)

::把内容wscriptecho FmtDate累积输出到%temp%\DstDatevbs文件中

>>"%temp%\DstDatevbs" echo wscriptecho FmtDate

::使用cscript执行%temp%\DstDatevbs文件，并利用for命令获取vbs文件执行后得到的内容

for /f %%a in ('cscript /nologo "%temp%\DstDatevbs"') do (

rem 把获取到的内容赋值到DstDate变量上

set "DstDate=%%a"

)

::从DstDate变量内容中截取第2位后面的六位字符串内容，并赋值到SDate变量上

set /a SDate = %DstDate:~2,6%

::显示SDate变量的内容

echo %SDate%

::使用WinRar的Rar命令行程序，把\\app\c$\Logfiles\W3SVC1目录下“u_ex开头+SDate变量”的所有log文件打包成名字为SDate变量的RAR文件，压缩包存放位置为\\1921681232\f$\Logs\APP目录

"C:\Program Files\WinRAR\Rarexe" -df a "\\1921681232\f$\Logs\APP\%SDate%RAR" "\\app\c$\Logfiles\W3SVC1\u_ex%SDate%log" -m5

以上是bat脚本的意思，下面是脚本中输出的DstDatevbs代码意思

'设置LastDate变量，变量值为当前日期减去3天

LastDate=date()-3

'设置FmtDate变量

'right(year(LastDate),4)以四位数的格式，获取LastDate值中的年份，

'right("0" & month(LastDate),2)以两位数的格式，获取LastDate值中的月份，小于10的月份，前面补0

'right("0" & day(LastDate),2)以两位数的格式，获取LastDate值中的日期，小于10的日期，前面补0

FmtDate=right(year(LastDate),4) & right("0" & month(LastDate),2) & right("0" & day(LastDate),2)

'回显FmtDate变量的值，也就是YYYYMMDD格式的年月日。

wscriptecho FmtDate

您好，您问的是VBS查询周几？VBS（Visual Basic Script）是一种脚本语言，它可以用来查询周几。您可以使用VBS脚本来查询任何一天是周几，您只需要输入一个日期，然后VBS脚本就可以自动查询出该日期是周几。例如，您可以使用VBS脚本来查询2020年1月1日是周三。VBS脚本还可以用来查询任何一个月的第一天是周几，您只需要输入一个月份，然后VBS脚本就可以自动查询出该月份的第一天是周几。例如，您可以使用VBS脚本来查询2020年2月的第一天是周四。总之，VBS脚本可以用来查询任何一天或者任何一个月的第一天是周几，您只需要输入相应的日期或者月份，然后VBS脚本就可以自动查询出该日期或者月份的第一天是周几。

以上就是关于用VBS脚本获取系统日志信息（应用程序、安全性和系统的日志信息），可以使用WMI或者CMD命令、全部的内容，包括:用VBS脚本获取系统日志信息（应用程序、安全性和系统的日志信息），可以使用WMI或者CMD命令、、VBS如何获取EXCEL表里的数据、求大神看下这段批处理 啥子意思等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！