, ОГРОМНОЕ Вам спасибо!!! И на практике помогли, и разъяснили разницу между запуском ехе-файлов и lnk! Приведу конечный код скрипта:
Set objRegExp = CreateObject("VBScript.RegExp")
Set objNetwork = CreateObject("WScript.Network")
Set objApp = CreateObject("Shell.Application")
strName = "Computer-"
strFile = "File"
strPath = "\\ServerName\Test"
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") & ".lnk"
WScript.Echo "FileName: "& strFile
objApp.ShellExecute strFile
Else
WScript.Echo "Computer Name Error!"
End If
Надеюсь еще кому-нибудь пригодится! Тему можно считать закрытой.
