Dim computerName= "TEST" Dim oStockage, oServiceWMI Set oServiceWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & computerName& "\root\cimv2") Set oStockage = oWMIService.Get("win32_ShadowCopy") oStockage.Create(WScript.Arguments.Named("volume"),"ClientAccessible")
Le second paramètre de la méthode permet de rendre accessible aux clients les clichés.
Proposer un script
|
Notre avis :

Votre avis :

Réactions : 0
Votants : 17
Visites : 8196
|