Get the current computername from Windows
sTmp1$ = CurComputerName()
( The current computername from Windows )
sTmp1$ = "MORTAL OBSESSiON"
| Submitted On | |
| By | MAGiC MANiAC^mTo |
| Level | Advanced |
| User Rating | 5.0 (10 globes from 2 users) |
| Compatibility | VB 5.0, VB 6.0 |
| Category | String Manipulation |
| World | Visual Basic |
| Archive File |
' Get the current computername from Windows
' Coded By MAGiC MANiAC^mTo
' More Examples At: http://home.kabelfoon.nl/~mto/
'
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _ (ByVal lpBuffer$, nSize As Long) As Long
Function CurComputerName$()
Dim sTmp1$
sTmp1 = Space$(512)
GetComputerName sTmp1, Len(sTmp1)
CurComputerName = Trim$(sTmp1)
End Function