Function ValidatePasswordWork(ByVal pwd As String, _
    ByVal minLength As Integer, _
    ByVal minNumCategories As Integer, _
    ByVal minNumUpper As Integer, _
    ByVal minNumLower As Integer, _
    ByVal minNumNumbers As Integer, _
    ByVal minNumSpecial As Integer) As String

    Dim ret As String = ""
    Dim CrLf As String = ControlChars.CrLf
 
    ' May want to replace [A-Z] with \p{Lu}, to allow for 
    ' Unicode uppercase letters.
    Dim reUpper As New System.Text.RegularExpressions.Regex("[A-Z]")
    Dim reLower As New System.Text.RegularExpressions.Regex("[a-z]")
    Dim reNumber As New System.Text.RegularExpressions.Regex("[0-9]")
    ' Special is "none of the above"
    Dim reSpecial As New System.Text.RegularExpressions.Regex _
        ("[^a-zA-Z_0-9]")
 
    ' Check the length.
    If Len(pwd) < minLength Then _
        ret &= "Length less than " & minLength.ToString & CrLf
 
    ' Check for minimum number of occurrences.
    If reUpper.Matches(pwd).Count < minNumUpper Then _
        ret &= "Fewer than " & minNumUpper & " uppers" & CrLf
    If reLower.Matches(pwd).Count < minNumLower Then _
        ret &= "Fewer than " & minNumLower & " lowers" & CrLf
    If reNumber.Matches(pwd).Count < minNumNumbers Then _
        ret &= "Fewer than " & minNumNumbers & " digits" & CrLf
    If reSpecial.Matches(pwd).Count < minNumSpecial Then _
        ret &= "Fewer than " & minNumSpecial & " special" & _
            CrLf
 
    ' Check for the right number of categories.
    Dim numCategories As Integer = 0
 
    If reUpper.Match(pwd).Success Then numCategories += 1
    If reLower.Match(pwd).Success Then numCategories += 1
    If reNumber.Match(pwd).Success Then numCategories += 1
    If reSpecial.Match(pwd).Success Then numCategories += 1
 
    If numCategories < minNumCategories Then _
      ret &= "Fewer than " & minNumCategories & " categories" _
          & CrLf
 
    ' Passes all the checks, so it is OK.
    Return ret
End Function
 
Function ValidatePassword(ByVal pwd As String, _
    Optional ByVal minLength As Integer = 7, _
    Optional ByVal minNumCategories As Integer = 3, _
    Optional ByVal minNumUpper As Integer = 1, _
    Optional ByVal minNumLower As Integer = 1, _
    Optional ByVal minNumNumbers As Integer = 1, _
    Optional ByVal minNumSpecial As Integer = 1) _
As Boolean
    ' Returns True is the password passes all the tests.
    ' The default values may be overridden.
    Dim temp As String
    temp = ValidatePasswordWork(pwd, minLength, 
        minNumCategories, _
        minNumUpper, minNumLower, minNumNumbers, minNumSpecial)
    ' Uncomment the following line to see which tests the 
    ' password failed.
    '      MsgBox(temp)
 
    If temp = "" Then
        ' Passed all tests.
        Return True
    Else
        Return False
    End If
End Function

private void PrintParticles(string url) {
    XmlSchema schema = XmlSchema.Read(new XmlTextReader(url, 
    new NameTable()), new ValidationEventHandler(ValidationCallback));
    schema.Compile(new ValidationEventHandler(ValidationCallback));
    foreach(XmlSchemaType type in schema.SchemaTypes.Values) {  
// This will go over all global types even those that are not 
// used as an element's type.
        XmlSchemaComplexType complexType = type as 
        XmlSchemaComplexType;
        if (complexType != null) {
            TraverseParticle(complexType.ContentTypeParticle, schema);
        }
    }

    foreach(XmlSchemaElement elem in schema.Elements) {
        XmlSchemaComplexType complexType = elem.ElementType as 
        XmlSchemaComplexType;
    if (complexType != null && complexType.QualifiedName == 
        XmlQualifiedName.Empty) { //Only local types of an 
                                  // element since already 
                                  // traversed global types
        TraverseParticle(complexType.ContentTypeParticle, schema);
        }
    }
} //End of PrintParticles

private void TraverseParticle(XmlSchemaParticle particle, 
    XmlSchema schema) {
    
    if (particle is XmlSchemaElement) {
        XmlSchemaElement elem = particle as XmlSchemaElement;
        Console.WriteLine("XmlSchemaElement: " + 
        elem.QualifiedName.ToString());
        }
else if (particle is XmlSchemaAny) {
    Console.WriteLine("Any");
}
else if (particle is XmlSchemaGroupBase) { 
        Console.WriteLine("Seq, All or Choice");
        XmlSchemaGroupBase baseParticle = particle as 
        XmlSchemaGroupBase;
        foreach(XmlSchemaParticle subParticle in 
        baseParticle.Items) {
            TraverseParticle(subParticle, schema);
        }
    }
}

Function GetNICDetails(ServerName)
   On Error Resume Next
   Dim WshShell
   Dim NetworkAdapterSet
   Dim NetworkAdapter
   Dim DataHolder

   Set NetworkAdapterSet = _
      GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
      ServerName).ExecQuery("SELECT PNPDeviceID, Index FROM" & _ 
      Win32_NetworkAdapter WHERE Manufacturer != 'Microsoft'")

   Select Case Err.Number
      Case(0)
         If IsNull (NetworkAdapterSet) OR IsEmpty 
            (NetworkAdapterSet) Then
            'WMI unable to query NIC
            DataErrors = DataErrors & vbCrLf & _
               "<server name=" & """" & ServerName & """" _
               & ">" & vbCrLf & vbTab & _
               "<errnumber>" & NetAdaptersNotFound & _
               "</errnumber>" & vbCrLf & _
               "<errdescription>The server " & ServerName" & _
               " does not have any Network Adapters which" & _
               " can be queried. " & _
               "Please check that the adapters are " & _
               " recognized by the OS and try" & _
               " again.</errdescription>" & vbCrLf & "</server>"
            'Log the fact we couldn't get any adapter info
            LogDetails "There are no network adapters that" & _
                       "can be queried for this Server." & _
                       vbCrLf & "Server Name: " & ServerName

         Else
            ' Undefine the connection NIC index.
            ' Loop through the list of adapters looking for the 
            ' adapter details
            For Each NetworkAdapter In NetworkAdapterSet
               If (Not IsNull(NetworkAdapter) and 
                   (Len(NetworkAdapter.PnPDeviceID) > 0)) Then
                  'Call the sub routine to get the registry values for us
                 DataHolder = DataHolder & vbCrLf & _
                 GetRegValues(CStr(NetworkAdapter.PnPDeviceID), _
                 ServerName)
               End If
            Next
         End If

         DataHolder = "<nics>" & vbCrLf & vbTab & _
             DataHolder & "</nics>"

      Case (ServerNotFound)
         DataErrors = DataErrors & vbCrLf & _
            "<server name=" & """" & ServerName & """" & ">" & _
            vbCrLf & vbTab & _
            "<errnumber>" & ServerNotFound & "</errnumber>" & _
            vbCrLf "<errdescription>The server " & _
            ServerName & " could not be found. Check that " & _
            " the server has " & _
            "been switched and\or connected to the" & _
            "network</errdescription>" & vbCrLf & _
            "</server>"
      Case Else
         DataErrors = DataErrors & vbCrLf & _
            "<server name=" & """" & ServerName & """" & _
            ">" & vbCrLf & vbTab & _
            "<errnumber>" & Err.Number & "</errnumber>" & _
            vbCrLf & _
            "<errdescription>An error has occurred.  The" & _
            " description for the error is " & _
            Err.Description & "</errdescription>" & vbCrLf & _
            "</server>"
   End Select

   If Err.Number <> 0 Then
        LogDetails "Error occurred in 'GetNICDetails'" & _
                   "function. Error details are:" & _
                    vbCrLf & "Error Number: " & Err.Number & _
                    vbCrLf & "Error Details: " & _
                    Err.Description & _
                    vbCrLf & "Server Name: " & ServerName
      Err.Clear
      DataHolder = ""
    End If

   Set NetworkAdapterSet = Nothing
   Set NetworkAdapter = Nothing

   GetNICDetails = DataHolder
End Function