Skip to Content
Microsoft® Windows® Scripting with WMI: Self-Paced Learning Guide
book

Microsoft® Windows® Scripting with WMI: Self-Paced Learning Guide

by Ed Wilson
October 2005
Beginner to intermediate
400 pages
12h 42m
English
Microsoft Press
Content preview from Microsoft® Windows® Scripting with WMI: Self-Paced Learning Guide
Chapter 11: Using Operating System Classes 249
errBackupLog = objItem.BackupEventLog(strLogFolder & strFile)
If errBackupLog <> 0 Then
Wscript.Echo errBackupLog & strMSG
Else
objItem.ClearEventLog()
WScript.echo
"event log was backed up."
End If
Next
Sub subCreateFileName
dim wmiQuery ' recycled variable. Same name outside.
Dim strDate ' only used in sub
Dim strName ' only used in sub
wmiQuery = "select
domain from win32_computerSystem"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.execQuery(wmiQuery)
For Each objItem in colItems
strName = objItem.name
strName = strName & "." & objItem.domain
Next
strDate = Replace
(cstr(Date), "/", "_")
strLog = Replace (strLOG, "'", "_")
strFile ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Microsoft® Windows® Scripting Self-Paced Learning Guide

Microsoft® Windows® Scripting Self-Paced Learning Guide

Ed Wilson

Publisher Resources

ISBN: 0735622310Catalog PageErrata