Yes I’m talking about Wifi Protected Setup or “WPS” and like all good things it’s brute-forceable but you can actually get real world results in a matter of hours instead of days/weeks/years with WPA configurations.

So if you need to test your router get over to http://code.google.com/p/reaver-wps/ and download Reaver-Wps for your Linux box, put your wireless card into monitor mode and get cracking…literally!

Caused by: org.hibernate.PropertyAccessException: Null value was assigned to a property of primitive type setter of com.rim.bes.bas.usermanager.entity.UserEntity.failedLoginCount
 at org.hibernate.property.BasicPropertyAccessor$BasicSetter.set(BasicPropertyAccessor.java:85)
 at org.hibernate.tuple.entity.AbstractEntityTuplizer.setPropertyValues(AbstractEntityTuplizer.java:337)
 at org.hibernate.tuple.entity.PojoEntityTuplizer.setPropertyValues(PojoEntityTuplizer.java:200)
 at org.hibernate.persister.entity.AbstractEntityPersister.setPropertyValues(AbstractEntityPersister.java:3570)
 at org.hibernate.engine.TwoPhaseLoad.initializeEntity(TwoPhaseLoad.java:129)
 at org.hibernate.loader.Loader.initializeEntitiesAndCollections(Loader.java:854)
 at org.hibernate.loader.Loader.doQuery(Loader.java:729)

I traced this fault to the SQL database – BESMgmt. Within the table BASUsers there is a column called: failedLoginCount in that row the admin user had a “failedLoginCount” of NULL, I then replace this field to 0 (zero) and the admin account worked again.

Next issue when they tried to manage certain users the console raised the error: “The request could not be completed” I then traced this fault to the same table BASUsers and again those users had NULL fields in the column “failedLoginCount” replacing NULL with 0 then allowed the user to be managed once again.

The client was now happy that they could sign in and administer their users once again. But Active Directory Authentication was still broken and they weren’t prepared to spend any more time on it, so I packed up tools and rode off into the sunset.

' put in the server names here (keep the quotes!)
MovePrinters "OLD-SERVERNAME", "NEW-SERVERNAME"

' *********************************************
' Move printers to new server
' *********************************************
Sub MovePrinters(OldServer, NewServer)
' Loops through all network printers and moves all printers
' on "OldServer" to the same printername on "NewServer".
dim WshNetwork, oPrinters, i, PrinterPath, DefaultPrinter, PrinterList

' Check that WSH version is new enough:
If CDbl(Replace(wscript.version,".",",")) < CDbl(5.6) Then
MsgBox "Automatic printer migration is not available for" & _
" this computer." & vbCrLf & _
"Please migrate printers manually." & vbCrLf & _
"The new printer server name is """ & NewServer & """", _
vbOKOnly + vbCritical, "Windows Scripting Host is too old"
wscript.quit 1
End If

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set PrinterList = CreateObject("Scripting.Dictionary")

' Get the default printer before we start deleting:
DefaultPrinter = GetDefaultPrinter

' Get a list of printers to work with:
' (We cannot modify the collection while looping through it)
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 1 to oPrinters.Count Step 2
PrinterList.Add oPrinters.Item(i), "x"
Next ' i

' Loop through the printer list and migrate mathching ones:
For Each PrinterPath In PrinterList.Keys

If StrComp(ServerName(PrinterPath), OldServer, 1) = 0 Then
WshNetwork.RemovePrinterConnection PrinterPath, True, True
On Error Resume next
WshNetwork.AddWindowsPrinterConnection "\\" & NewServer & "\" & _
ShareName(PrinterPath)
'If Err.Number = -2147023095 Then
' MsgBox "The printer """ & ShareName(PrinterPath) & _
' """ does not exist on server """ & NewServer & """." & vbCrLf & _
' "The printer has been removed.", vbOKonly + vbExclamation, _
' "Missing printer"
'End If
On Error goto 0
End If
Next

'Set the default printer:
If ServerName(DefaultPrinter) = OldServer Then
On Error Resume Next
WshNetwork.SetDefaultPrinter "\\" & NewServer & "\" & _
ShareName(DefaultPrinter)
'If Err.Number = -2147352567 Then
'MsgBox "Your default printer did not exist, and has been deleted.", _
' vbOKonly + vbInformation, "Invalid default printer"
'End If
On Error goto 0
End If
End Sub ' MovePrinters

Function GetDefaultPrinter()
' Returns the UNC path to the current default printer
Dim oShell, sRegVal, sDefault
Set oShell = CreateObject("WScript.Shell")
sRegVal = _
"HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
sDefault = ""
On Error Resume Next
sDefault = oShell.RegRead(sRegVal)
sDefault = Left(sDefault ,InStr(sDefault, ",") - 1)
On Error Goto 0
GetDefaultPrinter = sDefault
End Function

Function ServerName(sPrinterPath)
Dim aPrinterPath
ServerName = ""
If Left(sPrinterPath, 2) = "\\" Then
aPrinterPath = Split(sPrinterPath, "\")
ServerName = aPrinterPath(2)
End If
End Function

Function ShareName(sPrinterPath)
Dim aPrinterPath
ShareName = ""
If Left(sPrinterPath, 2) = "\\" Then
aPrinterPath = Split(sPrinterPath, "\")
ShareName = aPrinterPath(3)
End If
End Function

' VBScript based WGET - Changes by Cam McKenzie
' cam.mckenzie --at-- gmail --dot-- com

' USAGE: cscript wget.vbs http://somewhere.com/somefile.zip
' Credit to Chrissy at blog.netnerds.net for the hardwork

' URL to download from command line
	strFileURL = Wscript.Arguments.Item(0)

' Find current directory
	Dim sCurPath
	sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

' Get filename from URL
	Dim UrlArray
	UrlArray = Split(strFileURL, "/", -1,1)
	TopOfArray = UBound(UrlArray)

' Where to save the file
	strHDLocation = sCurPath & "\" & UrlArray(TopOfArray)

' Fetch the file
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start

Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing

objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing