关于在win2k下修改计算机名的问题

[zyu_nim]

我需要在win2k下修改计算机名，搜寻多日，现在只知道可以用SetComputerNameEx，但如何实现还是不得其解，希望哪位高手可以贴一个具体的code。多谢了。

[cindytsai]

看看：
http://community.csdn.net/Expert/topic/3419/3419290.xml?temp=.8708765
http://search.csdn.net/Expert/topic/552/552587.xml?temp=.7317774

[zyu_nim]

主要是这个COMPUTER_NAME_FORMAT定义应该如何来写呢？

[zyu_nim]

大家都来帮忙看一看啊

[tztz520]

Private Const COMPUTER_SCHEMA_NAME As String = ("Computer")

[jhtzz]

首先窗体:
Option Explicit

Private Sub Command1_Click()
Dim mstrExtComputerNameOrg As String
Dim mlngExtComputerNameTypeOrg As Long

Dim strExtComputerName As String
Dim lngWin32apiResultCode As Long
strExtComputerName = "Admin" '计算机名
mlngExtComputerNameTypeOrg = ComputerNamePhysicalDnsHostname
MsgBox SetComputerNameEx(mlngExtComputerNameTypeOrg, strExtComputerName)

End Sub

下面是模块:
Option Explicit

Public Const MAX_COMPUTERNAME_LENGTH = 31
Public Const COMPUTERNAMBUFFER_LENGTH = MAX_COMPUTERNAME_LENGTH + 1
Public Const ERROR_BUFFER_OVERFLOW = 111&
Public Const ERROR_ENVVAR_NOT_FOUND = 203&
Public Const ERROR_MORE_DATA = 234&

Enum COMPUTER_NAME_FORMAT
ComputerNameNetBIOS
ComputerNameDnsHostname
ComputerNameDnsDomain
ComputerNameDnsFullyQualified
ComputerNamePhysicalNetBIOS
ComputerNamePhysicalDnsHostname
ComputerNamePhysicalDnsDomain
ComputerNamePhysicalDnsFullyQualified
ComputerNameMaxEnd
End Enum


Declare Function GetComputerNameEx Lib "kernel32.dll" Alias "GetComputerNameExA" (ByVal NameType As Long, ByVal lpBuffer As String, lpnSize As Long) As Long

Declare Function SetComputerNameEx Lib "kernel32.dll" Alias "SetComputerNameExA" (ByVal NameType As Long, ByVal lpBuffer As String) As Long
'上面这些定义可在职msdn上找到
'我的QQ:117563781,加起大家互相学习呀