[amel27]

При описании проблемы я не указал два очень важных ньюанса »

1. objNetwork.ComputerName возвращает имя станции без домена;
2. скрипту нужно передать всё имя до цифр (включая дефис);

отладочный вариант с указанием пути к файлу и выводом промежуточных данных:

Код:

Set objRegExp  = CreateObject("VBScript.RegExp")
Set objNetwork = CreateObject("WScript.Network")
Set objShell   = CreateObject("WScript.Shell")

strName = "Computer-"
strFile = "File_"
strPath = "\\SERVER\SHARE"

objRegExp.Pattern = "^" & strName & "\d+$"
objRegExp.IgnoreCase = True
strComputer = objNetwork.ComputerName

WScript.Echo "ComputerName: " & vbTAB & """" & strComputer & """" & vbCRLF & _
             "Pattern String: " & vbTAB & """" & objRegExp.Pattern & """"

If objRegExp.Test(strComputer) Then
   objRegExp.Pattern = "^.*?(\d+)$"
   strFile = strPath & "\" & strFile & objRegExp.Replace(strComputer, "$1") & ".exe"

   WScript.Echo "FileName: "& strFile
   objShell.Run "strFile"
Else
   WScript.Echo "Computer Name Error!"
End If