Вот код на VB, выдает все имена компьютера. Можно запустить (скажем, из редактора VBА MS Word-Excel) на обоих серверах, записать результат, сравнить. М.б. одно из имен дублируется.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Private Enum COMPUTER_NAME_FORMAT
ComputerNameNetBIOS
ComputerNameDnsHostname
ComputerNameDnsDomain
ComputerNameDnsFullyQualified
ComputerNamePhysicalNetBIOS
ComputerNamePhysicalDnsHostname
ComputerNamePhysicalDnsDomain
ComputerNamePhysicalDnsFullyQualified
ComputerNameMax
End Enum
Private Declare Function GetComputerNameEx Lib "kernel32.dll" Alias "GetComputerNameExA" (ByVal NameType As COMPUTER_NAME_FORMAT, ByVal lpBuffer As String, ByRef nSize As Long) As Long
Sub GetNames()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@allapi.net
ShowName ComputerNameNetBIOS, "NetBIOS name"
ShowName ComputerNameDnsHostname, "DNS host name"
ShowName ComputerNameDnsDomain, "DNS Domain"
ShowName ComputerNameDnsFullyQualified, "Fully qualified DNS name"
ShowName ComputerNamePhysicalNetBIOS, "Physical NetBIOS name"
End Sub
Private Sub ShowName(lIndex As COMPUTER_NAME_FORMAT, Description As String)
Dim Ret As Long, sBuffer As String
'create a buffer
sBuffer = Space( 256 )
Ret = Len(sBuffer)
'retrieve the computer name
If GetComputerNameEx(lIndex, sBuffer, Ret) <> 0 And Ret > 0 Then
'show it
MsgBox Description + ": " + Left$(sBuffer, Ret)
End If
End Sub
