×

Loading...
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。

@Calgary

精通VB Script的各位进来请教一下。

johnnyhatesjazz(Rock and Roll)
本文发表在 rolia.net 枫下论坛一个比较基本的问题。下面这个代码是读取event log中的所有event id 是6009的纪录。问题是，我其实只是想要结果集的第一条纪录。不想用For Each...NEXT。怎么指定呢？套用数组或recordset的语法，总是报错。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'system' and eventcode=6009")

For Each objEvent in colLoggedEvents
Wscript.Echo "Category: " & objEvent.Category
Wscript.Echo "Computer Name: " & objEvent.ComputerName
Wscript.Echo "Event Code: " & objEvent.EventCode
Wscript.Echo "Message: " & objEvent.Message
Wscript.Echo "Record Number: " & objEvent.RecordNumber
Wscript.Echo "Source Name: " & objEvent.SourceName
Wscript.Echo "Time Written: " & objEvent.TimeWritten
Wscript.Echo "Event Type: " & objEvent.Type
Wscript.Echo "User: " & objEvent.User
Next更多精彩文章及讨论，请光临枫下论坛 rolia.net
(#2387910@0)
Last Updated: 2005-7-8
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / 专业技术讨论 / 精通VB Script的各位进来请教一下。 -johnnyhatesjazz(Rock and Roll); 2005-7-8 {1029} (#2387910@0)
    本文发表在 rolia.net 枫下论坛一个比较基本的问题。下面这个代码是读取event log中的所有event id 是6009的纪录。问题是，我其实只是想要结果集的第一条纪录。不想用For Each...NEXT。怎么指定呢？套用数组或recordset的语法，总是报错。

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'system' and eventcode=6009")

    For Each objEvent in colLoggedEvents
    Wscript.Echo "Category: " & objEvent.Category
    Wscript.Echo "Computer Name: " & objEvent.ComputerName
    Wscript.Echo "Event Code: " & objEvent.EventCode
    Wscript.Echo "Message: " & objEvent.Message
    Wscript.Echo "Record Number: " & objEvent.RecordNumber
    Wscript.Echo "Source Name: " & objEvent.SourceName
    Wscript.Echo "Time Written: " & objEvent.TimeWritten
    Wscript.Echo "Event Type: " & objEvent.Type
    Wscript.Echo "User: " & objEvent.User
    Next更多精彩文章及讨论，请光临枫下论坛 rolia.net
    • ^ -johnnyhatesjazz(Rock and Roll); 2005-7-8 (#2388005@0)
    • . -goodbaby(小宝); 2005-7-8 {134} (#2388044@0)
      Dim col As New Collection
      For i = 1 To 5
      col.Add i
      Next
      For i = 1 To 5
      MsgBox (col.Item(i))
      Next

More Topics

  • 老程序员第一次用copilot的一点点体会
  • 现在社区游泳池招救生员巡逻，过一会还要不停的点人头，这工作是否很快就被AI代替了，装一个摄像头后面是AI处理系统，这样只招一个等着救人就行了，人头沉下水一定时间立马强光照射，还可以分析水下人的状况来判断是否溺水等
  • 新冠疫苗引发心肌炎? 最新研究这样看
  • 这道几何题有解吗?
  • SAM 2 Demo
    • 枫下论坛主坛 /  工作学习 /  专业技术讨论