eksfynbo <eksfynbo.news@kandu.dk> wrote:
> Jeg er igang med at lave et lille program,som jeg kan bruge til at
> skifte compuetrnavn på en klient.
> Kan det lade sig gøre i VB. Jeg er Newbie, men har dog lavet
> enkelte små programmer.
Hej eksfynbo
Prøv at kigge på disse API funktioner som enten kan returnere navnet
på computeren eller sætte det (kræver dog et reboot før det
opdateres). Funktionerne kan også findes på
http://www.allapi.net/
' KODE START ----------------------------------
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName _
Lib "kernel32" _
Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long
Private Declare Function SetComputerName _
Lib "kernel32" _
Alias "SetComputerNameA" ( _
ByVal lpComputerName As String) As Long
Private Sub setName()
'KPD-Team 1999
'E-Mail: KPDTeam@Allapi.net
Dim sNewName As String
'Ask for a new computer name
sNewName = InputBox("Please enter a new name.")
'Set the new computer name
SetComputerName sNewName
MsgBox "Computername set to " + sNewName
End Sub
Public Function getName() As String
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Return the computer name
getName = strString
End Function
' KODE SLUT ----------------------------------
Håber du kan bruge det til noget
--
Mikkel Bundgaard
Student at IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum