Problem running an AS400 command line from VB.NET
Posted on 2012-03-27
I am trying to run a command statement from VB.NET to an AS400 machine using the following code but get a CWBCO1049 error (See ERROR OCCURS ON THIS LINE below) - The IBM I Server is not started or the connection was blocked by a firewall.
The IBM I Server is started. I am using VB.NET 10 Express on a Windows 7 machine.
Any suggestions would be helpful.
Dim system As New cwbx.AS400System()
On Error GoTo failed
Dim YOUR400 As New cwbx.AS400System
Dim servers As New cwbx.SystemNames
Dim Command As New cwbx.Command
Command.system = YOUR400
' Enter USERID and PWD so the users will not be prompted
Command.system.UserID = "joesmith"
Command.system.Password = "mypass"
Command.system.IPAddress = "100.100.1.1"
' ERROR OCCURS ON THIS LINE.
Command.Run("CHGUSRPRF USPRPF(bobjones) STATUS(*ENABLED)")