``` 'Netsuite Web Services Connection ...
# suitetalkapi
a
Copy code
'Netsuite Web Services Connection
        Dim Service As New NetSuiteService With {
            .CookieContainer = New CookieContainer,
            .passport = New Passport With {
                .account = NS_account,
                .email = NS_email,
                .password = NS_password,
                .role = New RecordRef With {
                    .internalId = NS_internalId
                }
            },
            .AllowAutoRedirect = True
        }


        Dim cust As New RecordRef
        cust.internalId = "658"
        cust.type = RecordType.customer
        cust.typeSpecified = True

        Dim sDataCenterURLs As GetDataCenterUrlsResult = Service.getDataCenterUrls(Service.passport.account) 'works great
        Service.login(Service.passport) 'Fails with 410 error
        Dim response As ReadResponse = Service.get(cust) 'Fails with 410 error