Welcome to Scripting Forums Sign in | Join | Help
in Search

strComputer=*.*

Last post 10-11-2007, 1:38 PM by jeffthatcher. 2 replies.
Sort Posts: Previous Next
  •  10-09-2007, 12:51 PM 28624

    strComputer=*.*

    I am trying to find a vbscript that will backup and clear event logs on remote computers. What I am wondering is, can the strComputer function call the contents of a text file that say, has all the computers listed in it and then backup and clear the event logs for said computers?

     

    I found the script from Microsoft that allows one to backup and clear the event logs on a single computer, but being new to this I am not sure where to go next.

     

    This is the script that Microsoft and others have posted for backing up and clearing event logs. I have coupled this with dumpel.exe and have successfully parsed the security logs for the events I was intersted in, then backed up and cleared the logs.

    # Begin script 

    dtmThisDay = Day(Now)
    dtmThisMonth = Month(Now)
    dtmThisYear = Year(Now)
    strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate,(Backup,Security)}!\\" & _
     strComputer & "\root\cimv2")
    Set colLogFiles = objWMIService.ExecQuery _
     ("SELECT * FROM Win32_NTEventLogFile WHERE LogFileName='Security'")
    For Each objLogfile in colLogFiles
     objLogFile.BackupEventLog("c:\scripts\" & strBackupName & _
    "_Security.evt")
     objLogFile.ClearEventLog()
    Next

    # End Script 

    Any help would be great!

  •  10-10-2007, 10:30 PM 28634 in reply to 28624

    Re: strComputer=*.*

    Hi Jeff,

    The WMI moniker string (the argument to the GetObject function in your code) only connects to a single computer. However, here are two options:

    1. Use the Cmd.exe For command to parse the text file and execute the WSH script for each line in the text file (simpler), or
    2. Extend the script to use the FileSystemObject objects and methods to read the text file from within the WSH script (more complex).

    For a quick-and-dirty solution, #1 is simpler. For example:

    @echo off
    setlocal enableextensions
    for /f %%p in ('type Computers.txt') do cscript MyScript.vbs %%p
    endlocal

    The above script echoes each line of the file Computers.txt and passes it as an argument to MyScript.vbs (your WMI script, above).

    Solution #2 is beyond the scope of a short forum reply, but there are numerous examples in past articles of how to open, read, and close text files from a WSH script. 

    HTH,

    Bill

  •  10-11-2007, 1:38 PM 28640 in reply to 28634

    Re: strComputer=*.*

    Thank you very much
View as RSS news feed in XML
SPONSORED LINKS FEATURED LINKS

Free Download –VS 2008 TrainingExperts Ken Getz & Robert Green plus labs, code, courseware Maximize speed, performance and reliablity of your PCs and servers—automatically!Speed Up Your PC! Try Diskeeper 2008 with InvisiTasking Free Now! Register for SolarWinds VM MonitorGet X-Ray Vision into Your ESX Servers with SolarWinds FREE VM Monitor GoGrid Offers FREE Trial for Windows Cloud ServersDeploy Windows Server 2003 and 2008 with free load balancing through GoGrid’s award winning web-based GUI – all in less than 5 minutes Order Your SQL Fundamentals CD Today! Learn how to use SQL Server, understand Office integration techniques and dive into the essentials of SQL Express and Visual Basic with this free SQL Fundamentals CD. How healthy is your Exchange Server? Find out Now!Automatic Exchange Server Maintenance helps prevent disasters and improves performance. Download a FREE Exchange Server analysis tool. You've Deployed SharePoint...Now What?This one-day free online conference delivers the technical knowledge needed to kick MOSS up a notch. In one information-packed day, independent SharePoint experts will present practical, real-world information and provide take-away, ready-to-use solutions Ease Your Scripting Pains with the Flexibility of PowerShell!Paul Robichaux equips you with PowerShell basics in 3 introductory lessons, each followed by live Q&A—all on your own computer! Register today! What Would You Do If You Ran Microsoft?ITTV's 2008 inaugural video contest, "If I Ran Microsoft..." is your chance to tell it like it is. Be goofy or be serious, but don"t miss this chance to have fun, win prizes, and go viral in a major way. Maximize Your SharePoint InvestmentThis web seminar discusses how true bi-directional replication of SharePoint content from one server to another enables branch offices to maintain access to current SharePoint content. Rock Your Knowledge, and Compete with Friends and Colleagues!Are you the Web Application Performance Guru in your office? It's time to have fun! Download now to access the crossword puzzle. Challenge yourself and complete this fun activity!

 Copyright © 2008 Penton Media, Inc., All rights reserved. Terms and Use | Privacy Statement | Reprints and Licensing