Solved

Shadow Copy VBScript Changes

Posted on 2013-12-02
2
357 Views
Last Modified: 2013-12-05
I have moved my file server from Windows 2003 (32bit) to a new Windows 2012 R2 Server (x64).

I run a Shadow Copy once per hour on this server and have a script that manages the Shadow Copies quite well. However, when I moved the Script to the new server obviously I have some issues with it. here is the script as it was, as well as the error I get when I try to run it. Hoping someone could help with the changes needed to work on the new server.

Option Explicit
 
Dim nameSpace
Dim objSet
Dim dateTime
Dim vDate
Dim obj
Dim age
 
Dim Time, AmPm, Hour
Dim aParts
 
 
If Hour >= 18 Then
   Msg = "  This occurred after 6 PM"
'Else
   'Msg = "  This occurred before 6 PM"
End If
 
  Set dateTime  = CreateObject("WbemScripting.SWbemDateTime")
  Set nameSpace = GetObject("winmgmts://localhost/root/cimv2")
  Set objSet    = nameSpace.ExecQuery("select * from Win32_ShadowCopy")
 
  If objSet.Count > 0 Then
     For Each obj In objSet
        dateTime.Value = obj.InstallDate
        vDate  = dateTime.GetVarDate(True)
 
        aParts = Split(vDate, " ")
        Time   = aParts(1)
        AmPm   = aParts(2)
        aParts = Split(Time, ":")
        If AmPm = "PM" Then
           Hour = aParts(0) + 12
        Else
           Hour = aParts(0)
        End If
 
        'WScript.Echo "- Snapshot on " & obj.VolumeName & " @ " & vDate
 
        age = DateDiff("d", vDate, Date)
        If age > 3 And Hour <> 18 Then
           'WScript.Echo "[Deleting snapshot...] for " & obj.Caption & " created on " & vDate
      obj.Delete_()
        End If
     Next
  End If[embed=file 690800]

Open in new window

Untitled.png
0
Comment
Question by:afsfire
2 Comments
 
LVL 12

Accepted Solution

by:
mlongoh earned 500 total points
Comment Utility
You are likely having a problem with UAC.  Try disabling it.
0
 

Author Closing Comment

by:afsfire
Comment Utility
Looks like that was the answer. Thanks!
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

A short article about a problem I had getting the GPS LocationListener working.
Displaying an arrayList in a listView using the default adapter is rarely the best solution. To get full control of your display data, and to be able to refresh it after editing, requires the use of a custom adapter.
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now