Image : Ghost du poste avec K2000

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

ComputerName = ""
Set Fso = CreateObject( "Scripting.FileSystemObject" )
Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\" &amp; "." &amp; "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct",,48) 

For Each objItem in colItems 
   If objItem.IdentifyingNumber &lt;&gt; "" Then SerialNumber = objItem.IdentifyingNumber
Next

Namefile = SerialNumber &amp; "_" &amp; Year(now) &amp; "_" &amp; Month(Now) &amp; "_" &amp; day(now) &amp; "_" &amp; Hour(Now) &amp; "_" &amp; Minute(Now)&amp; ".gho"
wscript.echo Namefile

Coderetour = shell.run(chr(34) &amp; GetPath &amp; "GHOST32.EXE" &amp; chr(34) &amp; " -z1 -clone,mode=dump,src=1,dst=t:\" &amp; Namefile &amp; " -sure -split=2048 -auto -cns",,True)

Function GetPath()
Dim path
Deftpath = WScript.ScriptFullName
GetPath = Left(Deftpath, InStrRev(Deftpath, "\"))
End Function

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

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

Download

Laisser un commentaire Annuler la réponse.

david on 17 avril 2020 à 13 h 53 min

Cet article a été créé par david le 27 décembre 2016.