Set oShell = CreateObject("WScript.Shell")  
  
iRC = oShell.Run("xcopy.exe ""C:\Archivos de programa\OCS Inventory Agent\Bc128ct.ttf"" ""c:\windows\fonts"" /y", 0, True)  
  
If iRC <> 0 Then  
  
WScript.Echo "Copy failed, xcopy returned error level " & iRC  
  
Else  
  
WScript.Echo "Copy finished"  
  
End If