VPF::Установка имени компьютера - Форум программистов

GOBLIN_TT

Дата 4.9.2007, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 6.6.2007

Репутация: 1
Всего: 2

Всем привет!
Ребят, нужна ваша помощь.

Вобщем такая проблема, нужна функция которая изменяет имя компьютера.
Например:
Текущее имя компьютера (sem-307)
Запускается программа, в ней есть форма, мы вводим данные в форму, оди переносятся в массив.
Запускается функция смены имени, и меняет имя компьютера с (Sem-307) на ($ Данные из массива).
И имя компьютера меняется.
Ребут.

Помогите найти функцию которая, может менять имя компьютера.
И возможно ли такое на VB.NET ?
или на VB 6 ?)

--------------------

thomas

Дата 7.9.2007, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Доцент... почти

Профиль
Группа: Завсегдатай
Сообщений: 1385
Регистрация: 3.10.2006
Где: " Сказочное королевство"

Репутация: 3
Всего: 65

My.Computer. ... ?

--------------------

Крепко жму горло, искренне ваш Thomas. (С)vingrad
Некоторые сорта флоры буквально за одно мгновение превращают нас в фауну!
Проблемы негров шерифа не волнуют.

GOBLIN_TT

Дата 7.9.2007, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 6.6.2007

Репутация: 1
Всего: 2

http://keep4u.ru/full/070907/3b5295c4f2a8f6cfce/jpg

После запуска программы, должно изменится имя, на скрине выделенно красным.
Нашёл пару функций но они его несовсем меняют, тока в NetBios, а надо как на скрине.

Вот пример одной проги.
Но она неправильно меняет имя....
Подскажите как сдлать, чтобы имя менялось сразу, или после ребута.

Код


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


Private Sub Form_Load()

End Sub

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »