Opening SAP using macro

Hi everyone,

with the code i was able to open a connection to SAP .

Set sap = CreateObject("SapAutoGui.Event")

      host = "test12"
    sapNr = "90"
    mandant = "800"
    user =" test1"
    Password = "pass"
      
 
    bOK = sap.Connect(host , sapNr ,SapGuiActiveX Or SapGuiFront Or SapGuiFullMenu)
    OKCheck bOK, "Error in opening connection"
    
    iCtrl = sap.FindByField("RSYST-MANDT", 0, SapEdit)
    bOK = sap.SetControlValue(iCtrl, mandant)
    OKCheck bOK, "Error in setting text value"

    iCtrl = sap.FindByField("RSYST-BNAME", 0, SapEdit)
    bOK = sap.SetControlValue(iCtrl, user )
    OKCheck bOK, "Error in setting text value"

    iCtrl = sap.FindByField("RSYST-BCODE", 0, SapPassword)
    
    bOK = sap.SetControlValue(iCtrl, Password)
    OKCheck bOK, "Error in setting text value"

    bOK = sap.SetCursorByControl(iCtrl)
    OKCheck bOK, "Error in setting cursor position"

    bOK = sap.SendEvent
    OKCheck bOK, "Error in sending default key"

but since SNC is active, i can't open sap

how do I make a connection to SAP  when SNC = true

Can anyone help me?

Thanks,

saad