All pastes #2002040 Raw Edit

Unnamed

public text v1 · immutable
#2002040 ·published 2010-11-25 15:45 UTC
rendered paste body
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