×

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

@Florida

精通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

  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
  • 请问web developer和software developer技术上有什么区别？
  • Elon Musk 带着川普总统奔向火星了。
  • 扔硬币的实验研究
    • 枫下论坛主坛 /  工作学习 /  专业技术讨论