Windows Scripting - checking if zipped up. Now problem connecting to xp.

russdev · December 7, 2010

As Shaun will tell you I am no developer been updating a batch file to windows scripting and got some code below.

I want to replace wait command with something that will check to see if has completed any ideas.

'Zip Up Log Folder.

strFolderToZip = strWorkingLogDir
strzipFile = strCurPath & "\" & strRMLOGDIR & ".zip" 


Set Ag=Wscript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(strzipFile, 8, vbtrue)
BlankZip = "PK" & Chr(5) & Chr(6)
For x = 0 to 17
BlankZip = BlankZip & Chr(0)
Next
ts.Write BlankZip
       set objFolder = nothing
       set objShell = nothing
Set fso = nothing
Set ts = nothing

Set objShell = CreateObject("Shell.Application")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set DestFldr=objShell.NameSpace(strzipFile)
Set SrcFldr=objShell.NameSpace(strFolderToZip)
DestFldr.CopyHere (strFolderToZip) 


WScript.Sleep 30000 ' increase this if the folder is large

Russ

Edited December 7, 2010 by russdev

apeo · December 7, 2010

Thought it would wait for copy to complete anyway before it moves onto the next line.. im probably wrong.

russdev · December 7, 2010

Sadly it does not wait.

Russ

koryo · December 7, 2010

Hi Russ

I am not completely familiar with Batch programming and only dabble in it a bit, but post 8 on the following link looks quite usefull for your case?

How to create ZIP Files from Command-Line via VBScript? - Windows Server Help

browolf · December 7, 2010

check the timestamp on the file, if its more than say 5mins old, it'll have finished.

russdev · December 7, 2010

Link from Koryo worked great next issue..

Next Issue part of script pulls the event viewer logs off..

'Get Application Logs
   Set objWMIService = GetObject("winmgmts:" _
       & "{impersonationLevel=impersonate,(Backup)}!\\" & _
           strComputerName & "\root\cimv2")
   Set colLogFiles = objWMIService.ExecQuery _
       ("Select * from Win32_NTEventLogFile " _
           & "Where LogFileName='Application'")
   For Each objLogfile in colLogFiles
       errBackupLog = objLogFile.BackupEventLog( _
           "c:\" & strComputerName & "-application.evt")
       WScript.Echo ("File saved as c:\" & strComputerName & "-application.evt")
   Next

Works fine against Vista machines but not XP machines (errors with permission denied error). As can tell getting to limits of my knowledge when it comes to windows scripting.

Edited December 7, 2010 by russdev

koryo · December 7, 2010

Personally i would re-design this script in powershell, its a lot more powerfull, for instance you could do all that event viewer stuff through one line of code.

I will look into a batch file solution for this, hold this space.

russdev · December 7, 2010

@Koroyo

Not batch file but windows scripting (it was a batch file). As for powershell that the next stage but need to sit down and learn powershell. Needed to move away from batch file in meantime.

Russ

koryo · December 7, 2010

Hi Russ, i presume your now on about a .vbs script yes?

If so, i have found an extremely similar one online that apparently works on XP. Maybe a comparison against this would help you?

PLEASE NOTE - this script is to clear event logs, as well as back them up.

dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay

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

Set colLogFiles = objWMIService.ExecQuery _
   ("Select * from Win32_NTEventLogFile")

For Each objLogfile in colLogFiles
   If objLogFile.FileSize <> 100000 Then
      strBackupLog = objLogFile.BackupEventLog _
          ("D:\Eventlogs\" & strBackupName & objLogFile.LogFileName & ".evt")
      objLogFile.ClearEventLog()
   End If
Next

Source : Windows XP Event Log export/copy : event, log, export, xp, windows

Edited December 7, 2010 by koryo

mac_shinobi · December 7, 2010

Hi Russ, i presume your now on about a .vbs script yes?

If so, i have found an extremely similar one online that apparently works on XP. Maybe a comparison against this would help you?

PLEASE NOTE - this script is to clear event logs, as well as back them up.
dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay

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

Set colLogFiles = objWMIService.ExecQuery _
   ("Select * from Win32_NTEventLogFile")

For Each objLogfile in colLogFiles
   If objLogFile.FileSize <> 100000 Then
      strBackupLog = objLogFile.BackupEventLog _
          ("D:\Eventlogs\" & strBackupName & objLogFile.LogFileName & ".evt")
      objLogFile.ClearEventLog()
   End If
Next
Source : Windows XP Event Log export/copy : event, log, export, xp, windows

strComputer is specified

Link from Koryo worked great next issue..

Next Issue part of script pulls the event viewer logs off..
'Get Application Logs
   Set objWMIService = GetObject("winmgmts:" _
       & "{impersonationLevel=impersonate,(Backup)}!\\" & _
           strComputerName & "\root\cimv2")
   Set colLogFiles = objWMIService.ExecQuery _
       ("Select * from Win32_NTEventLogFile " _
           & "Where LogFileName='Application'")
   For Each objLogfile in colLogFiles
       errBackupLog = objLogFile.BackupEventLog( _
           "c:\" & strComputerName & "-application.evt")
       WScript.Echo ("File saved as c:\" & strComputerName & "-application.evt")
   Next
Works fine against Vista machines but not XP machines (errors with permission denied error). As can tell getting to limits of my knowledge when it comes to windows scripting.

In your script you have not specified strComputerName

strComputerName ="."

Also the below code is slightly different as it has the security option as well

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

russdev · December 7, 2010

strcomputername is sorted out at the start of script (just not shown that) my code above was just event viewer part of much larger script. Will try with security option and see what happens.

Russ

p.s

If want to see the script then look at getlogs.vbs - rmloggetter - Project Hosting on Google Code.

p.p.s

Would not use on live environment yet and lots of tidying up to do on the code.

Arthur · December 7, 2010

Mac_Shinobi is correct. Without the backup and security privileges you will receive an error.

http://theadminblog.blogspot.com/2009/07/wmi-windows-event-logs-and-user.html

What is interesting to note here is that WMI is not consistent in reporting missing privileges: in the first case there was no error at all, in the second example Win32_Process.Terminate returned the error code that signaled the missing privilege and continued, and in the third script Win32_NTEventLogFile.BackupEventLog caused the script to crash – this is not very helpful when debugging WMI scripts. Here is some more information that just adds to the confusion: to back up the Security log file you need both Security and Backup privileges. If you use just the Security privilege you will get the "Access denied" error, but if you use just the Backup privilege, Win32_NTEventLogFile.BackupeventLog will return 5, an error code not listed in the documentation. To make it work, use both privileges.

mac_shinobi · December 7, 2010

Mac_Shinobi is correct. Without the backup and security privileges you will receive an error.

SysAdmins Blog: WMI, Windows Event Logs and User Privileges

I was about to reply and ask what account type he is logged in when running said script as I know when running vbscripts using wmi against a remote computer you need to use elevated rights with wmi to allow you to run the code as an admin ( whether domain admin or local admin, generally it is domain admin ) rights.

Connecting to WMI on a Remote Computer (Windows)

Just in the google code it is using an inputbox to enter in the computer name which will rely on human input ( so possible errors occuring with the human factor, as apposed to using a method such as the network object to ascertain the computer name on which the script is running on )

What is it exactly that you are trying to achieve though ?

russdev · December 7, 2010

The script does what it says on tin really. It gets all the RM log files and zips them up.

If not used CC4 and RM support then you might think this script is pointless. But after getting the log files for RM support 100th time I got annoyed and decided to write batch file (v1.0, 1.1 & 1.2) to save some time. V1.3 was never released and it was then I decided a move away from batch file was needed.

The script means as soon as RM support say can you send me these log files you run the script against machine then send the zip file and they have all the log files they need.

As for user input well it is needed as machine you run script against is different each time as one time I want log files for one machine. Then might need another machine next time etc. Also chances are not at station your running script on hence why it gets everything remotely.

I do need to sort out error handling on the input through

koryo · December 9, 2010

Hi Russ

Any chance you can PM me the script or re-upload it to google? I was kind of hoping to port it to powershell for a little challenge, if your ok with that, but it appears to have dissapeared

*EDIT*

Meh. links down, but the code repository is still there, went 1 URL up. I'm going to have a quick play with powershell. If you'd rather i didn't then please do tell me, not trying to take away from your fire or anything, but as im learning powershell it seems the ideal thing to play with.

Thanks

Edited December 9, 2010 by koryo

mac_shinobi · December 9, 2010

The script does what it says on tin really. It gets all the RM log files and zips them up.

If not used CC4 and RM support then you might think this script is pointless. But after getting the log files for RM support 100th time I got annoyed and decided to write batch file (v1.0, 1.1 & 1.2) to save some time. V1.3 was never released and it was then I decided a move away from batch file was needed.

The script means as soon as RM support say can you send me these log files you run the script against machine then send the zip file and they have all the log files they need.

As for user input well it is needed as machine you run script against is different each time as one time I want log files for one machine. Then might need another machine next time etc. Also chances are not at station your running script on hence why it gets everything remotely.

I do need to sort out error handling on the input through

Can't you get the script to enumerate all machines on the domain and populate a listbox in a hta type interface ??

Then they can pick one or multiple computers to run it against

koryo · December 9, 2010

Can't you get the script to enumerate all machines on the domain and populate a listbox in a hta type interface ??

Then they can pick one or multiple computers to run it against

you make it sound so easy....

Windows Scripting - checking if zipped up. Now problem connecting to xp.

Recommended Posts

russdev

apeo

russdev

koryo

browolf

russdev

koryo

russdev

koryo

mac_shinobi

russdev

Arthur

mac_shinobi

russdev

koryo

mac_shinobi

koryo

Create an account or sign in to comment

Create an account

Sign in

Recent Threads

Confirm acknowledgement of parental consent requirement for the Additional Google services

Lenovo Tablet Firmware

Outloook 365 - Classic

Home

Forums

What's New