home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / Start / Binding / vb / Binding.bas next >
Encoding:
BASIC Source File  |  1999-01-19  |  362 b   |  16 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3.  
  4. 'Bind to an object with current credential
  5. Set obj = GetObject("WinNT://INDEPENDENCE")
  6.  
  7.  
  8. 'Bind to an object with alternate credentials
  9. Set DSO = GetObject("WinNT:")
  10. Set usr = DSO.OpenDSObject("WinNT://INDEPENDENCE/JSmith,user", "Administrator", "se**cre*t*", ADS_SECURE_AUTHENTICATION)
  11.  
  12.    
  13.     
  14.  
  15. End Sub
  16.