General information
Category:
Coding, syntax & commands
Title:
Get ComputerName (adapted from Visual basic Project)
hello Dear friends!
I wanna get the computer name, i have a project in Visual Basic that does it, but i´m trying to convert to Visual FoxPro and ai having GPF when i execute it.
The Project in Visual Basic is:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long
Private Sub Command1_Click()
Dim PCName As String
Dim P As Long
P = NameOfPC(PCName)
Text1.Text = PCName
End Sub
Function NameOfPC(MachineName As String) As Long
Dim NameSize As Long
Dim X As Long
MachineName = Space$(16)
NameSize = Len(MachineName)
X = GetComputerName(MachineName, NameSize)
End Function
And My Visual FoxPro program is:
Declare String GetComputerName In Kernel32
P = NameOfPC()
Procedure NameOfPC
MachineName = " "
NameSize = Len(MachineName)
X = GetComputerName()
Return X
What i´m doing wrong????
Thanks
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only