Listing 1: Code That Checks, Retrieves, and Stores the Named Parameters

Dim infile, outfile, basedn, verbose, argscol
Set argscol = WScript.Arguments.Named
' BEGIN COMMENT
' If input file is missing, show the syntax.
' END COMMENT
If Not argscol.Exists("i") Then ShowSyntax
Else
 infile = argscol.Item("i")
End If

' BEGIN COMMENT
' If output file is missing, show the syntax.
' END COMMENT
If Not argscol.Exists("o") Then ShowSyntax
Else
 outfile = argscol.Item("o")
End If

' BEGIN COMMENT
' If baseDN is missing, show the syntax.
' END COMMENT
If Not argscol.Exists("basedn") Then
 ShowSyntax
Else
 basedn = argscol.Item("basedn")
End If

If argscol.Exists("v") Then
 If LCase(argscol.Item("v")) = "yes" Then verbose = true
 Else
  verbose = false
 End If
Else
 verbose = false
End If