Pause système

Bonjour,

Je voudrais imprimer des documents et faire un arret système le temps que les documents s'impriment puis les fermer. Est-ce que quelqu'un connait la fonction pour faire une pause système? (Ah oui, je programme en vbscript)

Si quelqu'un veut un bout de code :

Function LaunchDoc(doc) 
Dim opened 
opened = False 
On Error Resume Next 
If Right(doc, 4) = ".doc" Then 
Set objWord = CreateObject("Word.Application") 
objWord.Visible = True 
objWord.Documents.Add doc 
opened = True 

'lance l'impression automatiquement 
objWord.ActiveDocument.PrintOut 

ElseIf Right(doc, 4) = ".xls" Then 
Set objXL = CreateObject("Excel.Application") 
objXL.Visible = True 
objXL.Workbooks.Add doc 
objXL.ActiveSheet.PrintOut 
opened = True 
End If 


If Not opened Then 
Window.Open doc, "Document", "" 
End If 
If Err <> 0 Then 
MsgBox "Erreur" 
End If 
End Function 

Merci !!