Kan man få fat i cumputerens navn ?

Nej, du skal kontakte, ADMINISTRATOR.

Prøv med nedenstående:

Option Explicit

Private Declare Function GetComputerName _
Lib \"kernel32\" Alias \"GetComputerNameA\" ( _
ByVal lpBuffer As String, nSize As Long) As Long

Private Const MAX_COMPUTERNAME_LENGTH As Long = 15&


Public Function CurrentMachineName() As String
Dim lSize As Long
Dim sBuffer As String

  sBuffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
  lSize = Len(sBuffer)

  If GetComputerName(sBuffer, lSize) Then
    CurrentMachineName = Left$(sBuffer, lSize)
  End If

End Function

Snowball

Option Explicit

Declare Function GetComputerNameA Lib \"kernel32\" (ByVal lpBuffer As String, nSize As Long) As Long

(set dette ind i et et modul)

lav en textbox (txtcomputername)

Private Sub Form_Load()
txtcomputername.Text = ComputerName
End Sub

/jsc

Hvilket styresystem kører du med ??

Win 2000

Lav et standard exe project og kopier dette ind i kode vinduet:

Private Declare Function GetComputerName Lib \"kernel32\" Alias \"GetComputerNameA\" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
    Dim strString As String
    strString = String(255, Chr$(0))
    GetComputerName strString, 255
    strString = Left$(strString, InStr(1, strString, Chr$(0)) - 1)
    MsgBox strString
End Sub

suned: Kan du ikke lige acceptere eller afvise, alt efter hvad du har fundet ud af, så spørgsmålet kan blive lukket !? ;)

Snowball