• Home
 · 
• Miscellaneous
 · 
• Get Logon ID from Network. Brilliant for NT based Databases or Apps

Get Logon ID from Network. Brilliant for NT based Databases or Apps

Get Logon ID from Network. Brilliant for NT based Databases or Apps

API Declarations


Function GetUsername()
'Need Some Code? Request it at www.smokecrack.co.uk
Dim EnvString, MyName
EnvString = "?"
indx = 1
Do While Not EnvString = ""
EnvString = Environ(indx)
If Left$(EnvString, 8) = "USERNAME" Then GoTo yes
indx = indx + 1
Loop

MsgBox "COULD NOT FIND ENVIRONMENT STRING - FATAL ERROR!", 16, "FATAL ERROR"



yes:
GetUsername = Right$(EnvString, 7)
End Function



Rate Get Logon ID from Network. Brilliant for NT based Databases or Apps

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Text0.Value = GetUsername

if text0.value = is not null then MsgBox "Need Some Code? Request it at www.smokecrack.co.uk" 

End Sub