• Home
 · 
• String Manipulation
 · 
• CurComputerName

CurComputerName

Get the current computername from Windows

Inputs
sTmp1$ = CurComputerName()

Returns
( The current computername from Windows ) sTmp1$ = "MORTAL OBSESSiON"

Rate CurComputerName

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

' 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