asked on

Problem running an AS400 command line from VB.NET

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

'YOUR400.Define(servers.DefaultSystem)
Command.system = YOUR400

' Enter USERID and PWD so the users will not be prompted
Command.system.Define("as400")

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)")

Thanks,

Elliot

ASKER CERTIFIED SOLUTION

Nasir Razzaq

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

esemmoc

ASKER

Thanks but my program already receives the AS400 error code -- CWBCO1049. I am looking for what is causing this error and how to fix it.

Nasir Razzaq

I linked to that question because code is slightly different. For example, he is using ip address in define method where as you are using "as400". He is calling the system.Signon method before running the command and you are not.

SOLUTION

Theo Kouwenhoven

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

SOLUTION

Member_2_276102

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

esemmoc

ASKER

Thank you for questioning my assumption about connecting to the system. Using Command.system.Signon() helped me determine that I wasn't.

Turns out I was using the wrong IP address. That and a little cleanup of the CHGUSRPRF statement and it is now working good.