• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 376
  • Last Modified:

Shadow Copy VBScript Changes

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
Bill Warren
Asked:
Bill Warren
1 Solution
 
mlongohCommented:
You are likely having a problem with UAC.  Try disabling it.
0
 
Bill WarrenIT ManagerAuthor Commented:
Looks like that was the answer. Thanks!
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now