[qwer8383]

megaloman, спасибо большое за подсказку. Мне надо было вот так:

Код:

Set FSO = CreateObject("Scripting.FileSystemObject") 


Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2") 
If Err.Number <> 0 Then 
WScript.Echo Err.Number & ": " & Err.Description 
WScript.Quit 
End If 
For Each objOS In objService.ExecQuery("SELECT * FROM Win32_OperatingSystem") 
Exit For 
Next 



Dim FSO, file, fileName
'имя компьютера 
fileName = "\\terminal-srv\Inventory$\" & objOS.CSName & ".xml"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set WshShell = CreateObject("WScript.Shell")

DateDelete = DateAdd("d", -30, date)              ' Дата старше которой файл удаляется (год, мес, день)    

If FSO.FileExists(fileName) Then
      If FSO.GetFile(fileName).DateLastModified < DateDelete Then FSO.DeleteFile fileName, True
End If


if Not FSO.FileExists(fileName) Then
RetCode = WshShell.Run("\\terminal-srv\Inventory$\tniaudit.exe /scripted", 1, True)
End if