''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' OIKeyTest, Tests ability to set a single company in MAS 90
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' The Following must be filled in with the correct MAS 90 path (in quotes)
'
'MAS90Path = "C:\Program Files\sage software\mas 90\Version420\MAS90\Home\"
vMAS90Path= "E:\Accounting\Sage2020\MAS90\Home"
vCompany_Code = "ABC"
vModule = "A/P"
vDate = "20061201"
vUserName = "km"
vPassword = "password"
vModuleUI = "AP_Vendor_ui"
vModuleBUS = "AP_Vendor_bus"
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Data Collection
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Get Path
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Call PVXScript
'MsgBox "NOTE: if an error results, run PVXCOM.EXE from the "+vMAS90PATH+" directory.",,"Attempting to call com object ProvideX.script"
on error resume next
Set oScript = CreateObject ("ProvideX.Script")
oScript.Trace = 1
if Err.Number Then
Call QuitProgram ( err.description,"Unable to call ProvideX.Script")
end if
'Call MAS Path
on error resume next
oScript.Init (vMAS90Path)
if Err.Number Then
Call QuitProgram ( err.description,"Bad Path or Failed to open path: " + vMAS90Path)
end if
'Instantiate session object
Set oSS = oScript.NewObject("SY_Session")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Set company code
retVal= oSS.nSetCompany(vCompany_Code)
if retVal <> 1 then
Call QuitProgram ( oSS.sLastErrorMsg,"unable to set company code:"+vCompany_Code)
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Call user methods
if len(vUserName) = 0 then
retVal = oSS.nLogon()
if retVal <> 1 then
Call QuitProgram ( oSS.sLastErrorMsg,"User Security May Be Enabled")
end if
end if
if len(vUserName) > 0 then
retVal = oSS.nSetUser(vUserName,vPassword)
if retVal <> 1 then
Call QuitProgram ( "User Sign-on failure, possible bad password, username or security not enabled: " +vUserName,oSS.sLastErrorMsg)
end if
end if
'OI Cleanup
'msgbox "Now closing and cleaning called objects...",,"Garbage Collection"
Call QuitProgram ("Test Complete","Completion" )
Sub QuitProgram (ExitMessage, ExitErrororDescription)
CStr(ExitMessage)
CStr(ExitErrororDescription)
MsgBox ExitMessage,, ExitErrororDescription
'Object Cleanup
On error resume Next
vProgram.DropObject()
oSS.nCleanUp ()
oSS.DropObject()
Set oSS = Nothing
Set oScript = Nothing
wscript.quit
End Sub
------------------------------
Kevin Moyes
Technical Systems Analyst
Munjal White Consulting Co.
Toronto ON
------------------------------
Original Message:
Sent: 07-30-2021 15:10
From: Eric Lunceford
Subject: Anyone familiar with the OITEST.exe errors? ""OI A
Hey @Kevin Moyes can you upload that OIKeyTest.vbs?
That might come in handy instead of using the exe
------------------------------
Eric Lunceford
First Mate Business Solutions
Oklahoma City, OK
877-880-8960
https://www.firstmatellc.com/
------------------------------
Original Message:
Sent: 03-04-2021 14:40
From: Kevin Moyes
Subject: Anyone familiar with the OITEST.exe errors? ""OI A
Sage support call unsuccessful. Escalation call booked for Tuesday... fun!
Not knowing how this is supposed to work, they tried a script, with the resulting error below... which seems to indicate something is not installed properly.
------------------------------
Kevin Moyes
Technical Systems Analyst
Munjal White Consulting Co.
Toronto ON
Original Message:
Sent: 03-03-2021 14:10
From: Kevin Moyes
Subject: Anyone familiar with the OITEST.exe errors? ""OI A
I'm dealing with the same issue on a v2020 Premium system. I've gone through the Sage KB articles with no luck. Details here: link.
Reading this, I try regcom.bat, and get a bunch of failures. Is this the root problem?
------------------------------
Kevin Moyes
Technical Systems Analyst
Munjal White Consulting Co.
Toronto ON
Original Message:
Sent: 12-18-2018 13:51
From: Nicole Ronchetti
Subject: Anyone familiar with the OITEST.exe errors? ""OI A
Ugh... long day regcom.bat