Solved

Shadow Copy VBScript Changes

Posted on 2013-12-02
2
365 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:Bill Warren
2 Comments
 
LVL 12

Accepted Solution

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

Author Closing Comment

by:Bill Warren
ID: 39699265
Looks like that was the answer. Thanks!
0

Featured Post

Best Practices: Disaster Recovery Testing

Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

776 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