vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v2.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2014
 
zurück
Rubrik: Internet & Netzwerk09.05.01
SetComputerName-Funktion

Ananlog zur Funktion GetComputerName kann mit dieser Funktion der Computername geändert werden.

Betriebssystem:  Win95, Win98, WinNT, Win2000, WinMEViews:  5.434 

Beschreibung:
Ananlog zur Funktion GetComputerName kann mit dieser Funktion der Computername geändert werden.

Deklaration:

Declare Function SetComputerName Lib "kernel32" _
  Alias "SetComputerNameA" ( _
  ByVal lpComputerName As String) As Long

Parameter:
lpComputerNameDer neue Name (String) des Computers.

Rückgabewert:
War der Funktionsaufruf erfolgreich wird ein Wert ungleich 0 zurückgegeben. Trat ein Fehler auf, ist der Rückgabewert "0".

Hinweis:
Die Änderung des Computernamens wirkt sich erst nach einem System-Neustart aus.

Beispiel:

Private Declare Function SetComputerName Lib "kernel32" _
  Alias "SetComputerNameA" ( _
  ByVal lpComputerName As String) As Long
 
Private Declare Function GetComputerName Lib "kernel32.dll" _
  Alias "GetComputerNameA" ( _
  ByVal lpBuffer As String, _
  nSize As Long) As Long
 
Private Declare Function ExitWindowsEx Lib "user32" ( _
  ByVal uFlags As Long, _
  ByVal dwReserved As Long) As Long
 
Private Const EWX_REBOOT = 2
Private Sub Command1_Click()
  Dim lRet As Long
  Dim lpBuffer As String * 256
  Dim ComputerName As String
  Dim NeuerName As String
 
  ' bisherigen Computernamen ermitteln
  lRet = GetComputerName(lpBuffer, Len(lpBuffer))
  If lRet <> 0 Then
    ComputerName = Left$(lpBuffer, InStr(1, lpBuffer, vbNullChar) - 1)
 
    ' Eingabeaufforderung: Neuer Computername
    NeuerName = InputBox("Neuer Computername:", "Computernamen ändern", _
      ComputerName)
 
    If NeuerName <> "" And NeuerName <> ComputerName Then
      If SetComputerName(NeuerName) <> 0 Then
        ' Frage nach Neustart
        ExitWindowsEx EWX_REBOOT, 0&
      End If
    End If
  End If
End Sub

Diese Seite wurde bereits 5.434 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2014 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel