Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'********************************************************
'** API DECLARATIONS ************************************
'********************************************************
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ( _
ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long
'**********************************************************
'** Function gets the machinename from win95 **
'** or winNT process **
'**********************************************************
Function GetNTmachinename() As String
Dim Buffer As String, size As Long, iret As Long
Buffer = Space(255)
size = 255
iret = GetComputerName(Buffer, size)
GetNTmachinename = Left$(Buffer, size)
End Function
'*********************************************************
'** Function gets the username from win95 **
'** or winNT process **
'*********************************************************
Function GetNTUser() As String
Dim sName As String
Dim lNameLen As Long
Dim lReturn As Long
lNameLen = 255
sName = Space(256)
lReturn = GetUserName(sName, lNameLen)
If sName = "" Then
GetNTUser = "(Unknown)"
Else
GetNTUser = Left$(sName, InStr(sName, Chr$(0)) - 1)
End If
End Function
'********************************************************