[dScribe] Front End control

I realised I forgot the front end control tool for dScribe yesterday in the different files required.

Done now and you can download it here.
The main change is on the selection from the database of the records matching a specific project and the current server.
I do so using Principal to retrieve the domain name from the current context:

Public Function GetDomainName() As String
 Dim tmp as String=Principal.WindowsIdentity.GetCurrent.Name()
 Dim pos as Short
 Dim result as String
 pos=Instr(tmp,"\")
 If pos<>0 then
   result = Microsoft.VisualBasic.Left(tmp, pos-1)
 End If
 Return result
End Function