home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / ResourceKit / ADsVersion / ADsVersion.bas next >
Encoding:
BASIC Source File  |  1999-03-04  |  462 b   |  13 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3.   Set vs = CreateObject("ADsVersion")
  4.   '-------------------------------------------------------------------
  5.   'You can also connect remotely to find out the ADSI version number
  6.   'e.g vs.Connect "mycomputer"
  7.   '-------------------------------------------------------------------
  8.   Debug.Print vs.GetVersion
  9.   Debug.Print vs.GetMajorVersion
  10.   Debug.Print vs.GetMinorVersion
  11.   Debug.Print vs.GetLocale
  12. End Sub
  13.