[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