/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
skifte computernavn
Fra : eksfynbo


Dato : 21-06-02 08:10

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.

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"


 
 
Mikkel Bundgaard (21-06-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 21-06-02 16:03

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



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste