vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
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.773 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise über 100,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 455,- EUR statt 569,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 18,70 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 58,70 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    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.773 mal aufgerufen.

    nach obenzurück
     
       

    Druckansicht Druckansicht Copyright ©2000-2015 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