about a year ago i downloaded a tool from this site for running TIs from an Excel macro, It works brilliantly however it requires the manual addition of the NTserver, and TM1 server names, I managed to locate a way to automatically collect the Tm1 servername, is there a way i can automatically detect the NTserver names for the TM1 sever selected?
Tm1 server name Tm1_Profit
NTserver HPWRT324
Thanks to all that read
http://www.bihints.com/tm1_sdk
Code: Select all
'**********************************************************************************************
'** J.Wakefield InfoCat 09/11/01
'** A class that can be used to execute Process and Chores on a TM1 Serever
'**********************************************************************************************
Option Explicit
Option Base 1
Private hUser As Long
Private hPool As Long
Private hServer As Long
Private m_NTServer As String
Private m_TM1Server As String
Private m_User As String
Private m_Password As String
Private m_ChoreName As String
Private m_ProcessName As String
Private m_Parameter1 As String
Private m_Parameter2 As String
Private m_Parameter3 As String
Private m_Parameter4 As String
Private m_Parameter5 As String
Private m_NoParameters As Integer
Private m_ErrString As String
'***********************************************************************************
Public Property Get ntserver() As String
ntserver = m_NTServer
End Property
'***********************************************************************************
Public Property Let ntserver(ByVal New_NTServer As String)
m_NTServer = New_NTServer
End Property
'***********************************************************************************
Public Property Get tm1server() As String
tm1server = m_TM1Server
End Property