[решено] Сценарий входа

amel27 · Отправлено: **11:49, 02-09-2009** | #2

СаркозаН, как вариант через RegExp (Computer-1/File_1):

Код:

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

objRegExp.Pattern = "^Computer-\d+$"
objRegExp.IgnoreCase = True
strComputer = objNetwork.ComputerName

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

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