Avant de commencer assurez vous d’avoir les licences Symantec Ghost.
Le script VBS suivant va réaliser un Ghost du poste, le nom du fichier sera <Serial>_Date_Heure_.gho
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
ComputerName = "" Set Fso = CreateObject( "Scripting.FileSystemObject" ) Set shell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct",,48) For Each objItem in colItems If objItem.IdentifyingNumber <> "" Then SerialNumber = objItem.IdentifyingNumber Next Namefile = SerialNumber & "_" & Year(now) & "_" & Month(Now) & "_" & day(now) & "_" & Hour(Now) & "_" & Minute(Now)& ".gho" wscript.echo Namefile Coderetour = shell.run(chr(34) & GetPath & "GHOST32.EXE" & chr(34) & " -z1 -clone,mode=dump,src=1,dst=t:\" & Namefile & " -sure -split=2048 -auto -cns",,True) Function GetPath() Dim path Deftpath = WScript.ScriptFullName GetPath = Left(Deftpath, InStrRev(Deftpath, "\")) End Function |
- david on 17 avril 2020 à 13 h 53 min
Cet article a été créé par david le 27 décembre 2016.
Laisser un commentaire