[artem_]

Код:

V8EXEPATH = "C:\Program Files\1cv8\bin\1cv8.exe"
V8DBPATH  = "C:\acd_data\1c\credits"

V7EXEPATH = "C:\Program Files\1Cv77\BIN\1cv7s.exe"
V7DBPATH  = "C:\1C\1c_BASES\BUH_77"

Set WshNetwork = CreateObject("WScript.Network")
CompName = LCase(WshNetwork.ComputerName)

If CompName = "appserv1" Then

	' запускаем 1с8
	param = " ENTERPRISE /F" & V8DBPATH
	Set WshShell = CreateObject("WScript.Shell")	
	WshShell.Exec( V8EXEPATH & param )

Else
	' запускаем 1с7
	param = " ENTERPRISE /D" & V7DBPATH
	Set WshShell = CreateObject("WScript.Shell")	
	WshShell.Exec( V7EXEPATH & param )
End If

Я вот так с этим разобрался на одном серваке запускается 1с 8, а на другом запускается 1с7.