TopSpin and Terminal Server

From Ammrl

If you want to run the Windows release of TopSpin using a Windows Terminal Server, you need a special start script:

Option Explicit
' On Error Resume Next

Dim WSHShell, objWMIService, colProcessList, objProcess

Set WSHShell = createObject("WScript.Shell")

WSHShell.Run "c:\bruker\topspin\topspin.cmd -server", 0, False

Do
	Set objWMIService = GetObject ("winmgmts:\\.\root\cimv2")
	Set colProcessList = objWMIService.ExecQuery ("Select " & _
	"* from Win32_Process Where Name = 'dataserver.exe'")
	WScript.Sleep 1000
Loop While colProcessList.Count = 0

For Each objProcess in colProcessList
	objProcess.Terminate
Next

WSHShell.Run "c:\bruker\topspin\topspin.cmd -client", 0, False

Take the text given above, put it into a text file and give this text file the name topspin.vbs. The default icon you can get from C:\Bruker\TOPSPIN\classes\prop. The script assumes the installation of TopSpin using the default path.
Don't use the start menu to call TopSpin! You will get strange errors. The best idea is to hide the start menu entry, because it is not possible to delete topspin.cmd, which usually is accesible via the start menu.