home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / ResourceKit / ADsVersion / ADsVersion.vbs < prev    next >
Encoding:
Text File  |  1999-03-04  |  735 b   |  21 lines
  1.  '---- usage:   ADsVersion [computerName]-----
  2.  
  3.   Set oArgs = wscript.Arguments
  4.  
  5.   Set vs = CreateObject("ADsVersion")
  6.  
  7.   '-------------------------------------------------------------------
  8.   'You can also connect remotely to find out the ADSI version number
  9.   'e.g vs.Connect "mycomputer"
  10.   '-------------------------------------------------------------------
  11.   if oArgs.Count = 1 Then
  12.       wscript.echo "Connecting to " & oArgs(0) & "..."
  13.       vs.Connect oArgs(0)
  14.   end if 
  15.  
  16.   '--- Get the version number
  17.   wscript.echo "ADSI Version : " & vs.GetVersion
  18.   wscript.echo "Major Version: " & vs.GetMajorVersion
  19.   wscript.echo "Minor Version: " & vs.GetMinorVersion
  20.   wscript.echo "Locale:        " & vs.GetLocale
  21.