Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Const VOLUME = "C:\"
- Const CONTEXT = "ClientAccessible"
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
- Set objShadowStorage = objWMIService.Get("Win32_ShadowCopy")
- errResult = objShadowStorage.Create(VOLUME, CONTEXT, strShadowID)
- Wscript.Echo errResult & " - " & strShadowID
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement