[WinNT/Netzwerk] net send

Hoi hoi

Ich wollt gern ein Tool für 'net send' basteln,
aber so, dass man aus einer Liste die angeschlossenen Computer auswählen kann als Adressenten.
Gibt es ein Kommando zum Abrufen aller Computernamen der Netzwerkumgebung?
Wer super.

W0lf

Hallo,

ist zwar kein C++, aber vielleicht kannst du ja trotzdem was damit anfangen:

Alle Computer in einem Netzwerk auflisten

'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Projekt1.vbp -------------
' Die Komponente 'Microsoft Windows Common Controls 6.0 (SP6)  
' (MSCOMCTL.OCX)' wird benötigt.

'--- Anfang Formular "frmUserView" alias frmUserView.frm  ---
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Listenanzeigesteuerungselement "Users"
' Steuerelement: Bilderlistenelement "ImageList1"
' Steuerelement: Listenanzeigesteuerungselement "SrvList"

Option Explicit
'Autor: Ruru, ruru@11mail.com

Dim OldUser As String
Dim Domain As String

Sub SeekComputer()

    Dim x As Integer, xItem As ListItem
    Dim ServerList As ListOfServer

    MousePointer = vbHourglass

    Me.SrvList.ListItems.Clear
    Me.SrvList.Enabled = False

    ServerList = EnumServer(SRV_TYPE_ALL)
    If ServerList.Init Then
        For x = 1 To UBound(ServerList.List)
            Set xItem = Me.SrvList.ListItems.Add(, ,  _
            ServerList.List(x).ServerName)
            xItem.SubItems(1) = ServerList.List(x).Comment

            Select Case ServerList.List(x).Type
                Case Is >= 5
                    'xItem.Tag = "x"
                    xItem.SmallIcon = 1
                    xItem.SubItems(2) = " Workstation"
                Case Is = 4
                    xItem.SmallIcon = 2
                    xItem.SubItems(2) = " Server"
                Case Else
                    xItem.SmallIcon = 1
                    xItem.SubItems(2) = " Workstation"
            End Select
        Next
    End If

    Me.SrvList.Enabled = (Me.SrvList.ListItems.Count > 0)
    MousePointer = vbDefault

End Sub

Private Sub Command1_Click()
    SrvList.Visible = True
    Users.Visible = False
    Me.Caption = "Bitte Computer aus folgender Domäne wählen:   " & Domain
End Sub

Private Sub Form_Load()
    Dim x As Integer
    Dim xItem As ListItem
    Dim WksInfo As ServerInfo

    MousePointer = vbHourglass

    ' Einfaches lesen der Domäne über Wscript
    Dim objWshNet As Object
    Set objWshNet = CreateObject("Wscript.Network")

    Domain = objWshNet.userdomain
    Set objWshNet = Nothing

    If Domain <> "" Then
        Me.Caption = "Bitte Computer aus folgender Domäne wählen:   "  _
        & Domain
    Else
        MsgBox "Computer ist an keiner Domäne angeschlossen." &  _
        vbNewLine & "Bitte Netzkabel und Netzverbindung überprüfen",  _
                vbExclamation, "Warnung"
        End
    End If

    MousePointer = vbDefault
    SeekComputer

    If CurrentServer <> "" Then
        Set xItem = Me.SrvList.FindItem(CurrentServer)
        If xItem Is Nothing Then
            Exit Sub
        Else
            xItem.EnsureVisible
            xItem.Selected = True
        End If
    End If

End Sub

Private Sub LoadAccountList(CurServer As String)
    Dim x As Integer
    Dim LocalUsers As ListOfUserExt
    Dim xItem As ListItem

    Me.Users.ListItems.Clear

    LocalUsers = LongEnumUsers(CurServer)
    If LocalUsers.Init Then
        For x = 1 To UBound(LocalUsers.List)
            Set xItem = Me.Users.ListItems.Add(, , LocalUsers.List(x).Name)
            xItem.SubItems(1) = LocalUsers.List(x).FullName
            xItem.SubItems(2) = LocalUsers.List(x).Comment
        Next
    End If

    Me.Users.Enabled = (Me.Users.ListItems.Count > 0)

    If Me.Users.Enabled Then
        Set xItem = Nothing
        If OldUser <> "" Then
            Set xItem = Me.Users.FindItem(OldUser)
        End If
        If xItem Is Nothing Then
            Set Me.Users.SelectedItem = Me.Users.ListItems(1)
        Else
            Set Me.Users.SelectedItem = xItem
        End If
        Me.Users.SelectedItem.EnsureVisible
    End If

    If LocalUsers.LastErr > 0 Then Unload Me

End Sub

Private Sub SrvList_DblClick()
    '    If Me.SrvList.SelectedItem.Tag = "x" Then
    '        Beep
    '        MsgBox "Bitte einen Server angeben"
    '    Else
    CurrentServer = Me.SrvList.SelectedItem.Text
    Me.Caption = "NT Userliste   " & CurrentServer
    SrvList.Visible = False
    Users.Visible = True
    LoadAccountList (CurrentServer)
    '    End If
End Sub

'---- Ende Formular "frmUserView" alias frmUserView.frm  ----
'--------- Anfang Modul "Module1" alias Module1.bas ---------

Option Explicit

' Declarationen
Public Const NERR_Success As Long = 0&
Public Const NERR_Access_Denied As Long = 5&
Public Const NERR_MoreData As Long = 234&

Public Const SRV_TYPE_SERVER As Long = &H2&
Public Const SRV_TYPE_SQLSERVER As Long = &H4&
Public Const SRV_TYPE_NT_PDC As Long = &H8&
Public Const SRV_TYPE_NT_BDC As Long = &H10&
Public Const SRV_TYPE_PRINT As Long = &H200&
Public Const SRV_TYPE_NT As Long = &H1000&
Public Const SRV_TYPE_ALL As Long = &HFFFF&
Public Const SRV_TYPE_RAS As Long = &H400&

Public Const SHORT_LEVEL As Long = 10&
Public Const EXTENDED_LEVEL As Long = 3&

Public Const USER_ACC_NOPWD_CHANGE As Long = 577&
Public Const USER_ACC_NOPWD_EXPIRE As Long = 66049
Public Const USER_ACC_DISABLED As Long = 515&
Public Const USER_ACC_LOCKED As Long = 529&

Private Type SERVER_INFO_API
    PlatformId As Long
    ServerName As Long
    Type As Long
    VerMajor As Long
    VerMinor As Long
    Comment As Long
End Type

Private Type WKSTA_INFO_API
    PlatformId As Long
    ComputerName As Long
    LanGroup As Long
    VerMajor As Long
    VerMinor As Long
    LanRoot As Long
End Type

Type ServerInfo
    PlatformId As Long
    ServerName As String
    Type As Long
    VerMajor As Long
    VerMinor As Long
    Comment As String
    Platform As String
    ServerType As Integer
    LanGroup As String
    LanRoot As String
End Type

Type ListOfServer
    Init As Boolean
    LastErr As Long
    List() As ServerInfo
End Type

Private Type USER_INFO_EXT_API
    Name As Long
    Password As Long
    PasswordAge As Long
    Privilege As Long
    HomeDir As Long
    Comment As Long
    Flags As Long
    ScriptPath As Long
    AuthFlags As Long
    FullName As Long
    UserComment As Long
    Parms As Long
    Workstations As Long
    LastLogon As Long
    LastLogoff As Long
    AcctExpires As Long
    MaxStorage As Long
    UnitsPerWeek As Long
    LogonHours As Long
    BadPwCount As Long
    NumLogons As Long
    LogonServer As Long
    CountryCode As Long
    CodePage As Long
    UserID As Long
    PrimaryGroupID As Long
    Profile As Long
    HomeDirDrive As Long
    PasswordExpired As Long
End Type

Type UserInfoExt
    Name As String
    Password As String
    PasswordAge As String
    Privilege As Long
    HomeDir As String
    Comment As String
    Flags As Long
    NoChangePwd As Boolean
    NoExpirePwd As Boolean
    AccDisabled As Boolean
    AccLocked As Boolean
    ScriptPath As String
    AuthFlags As Long
    FullName As String
    UserComment As String
    Parms As String
    Workstations As String
    LastLogon As Date
    LastLogoff As Date
    AcctExpires As Date
    MaxStorage As Long
    UnitsPerWeek As Long
    LogonHours(0 To 20) As Byte
    BadPwCount As Long
    NumLogons As Long
    LogonServer As String
    CountryCode As Long
    CodePage As Long
    UserID As Long
    PrimaryGroupID As Long
    Profile As String
    HomeDirDrive As String
    PasswordExpired As Boolean
End Type

Type ListOfUserExt
    Init As Boolean
    LastErr As Long
    List() As UserInfoExt
End Type

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
        (pTo As Any, uFrom As Any, ByVal lSize As Long)

Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long

Declare Function NetApiBufferFree Lib "netapi32" (ByVal lBuffer As  _
Long) As Long

Declare Function NetGetDCName Lib "netapi32" (lpServer As Any, _
        lpDomain As Any, vBuffer As Any) As Long

Declare Function NetServerEnum Lib "netapi32" _
        (lpServer As Any, ByVal lLevel As Long, vBuffer As Any, _
         lPreferedMaxLen As Long, lEntriesRead As Long, lTotalEntries  _
         As Long, _
         ByVal lServerType As Long, ByVal sDomain As String, vResume  _
         As Any) As Long

Declare Function NetUserEnum Lib "netapi32" _
        (lpServer As Any, ByVal Level As Long, _
         ByVal Filter As Long, lpBuffer As Long, _
         ByVal PrefMaxLen As Long, lpEntriesRead As Long, _
         lpTotalEntries As Long, lpResumeHandle As Long) As Long

Public CurrentServer As String

Public Function EnumServer(lServerType As Long) As ListOfServer
    Dim nRet As Long, x As Integer, i As Integer
    Dim lRetCode As Long
    Dim tServerInfo As SERVER_INFO_API
    Dim lServerInfo As Long
    Dim lServerInfoPtr As Long
    Dim ServerInfo As ServerInfo
    Dim lPreferedMaxLen As Long
    Dim lEntriesRead As Long
    Dim lTotalEntries As Long
    Dim sDomain As String
    Dim vResume As Variant
    Dim yServer() As Byte
    Dim SrvList As ListOfServer

    yServer = MakeServerName(ByVal "")
    lPreferedMaxLen = 65536

    nRet = NERR_MoreData
    Do While (nRet = NERR_MoreData)

        'Call NetServerEnum to get a list of Servers
        nRet = NetServerEnum(yServer(0), 101, lServerInfo, _
                             lPreferedMaxLen, lEntriesRead, _
                             lTotalEntries, lServerType, _
                             sDomain, vResume)

        If (nRet <> NERR_Success And _
            nRet <> NERR_MoreData) Then

            SrvList.Init = False
            SrvList.LastErr = nRet
            NetError nRet
            Exit Do
        End If

        ' NetServerEnum Index is 1 based
        x = 1
        lServerInfoPtr = lServerInfo

        Do While x <= lTotalEntries

            CopyMemory tServerInfo, ByVal lServerInfoPtr, Len(tServerInfo)

            ServerInfo.Comment = PointerToStringW(tServerInfo.Comment)
            ServerInfo.ServerName =  _
            PointerToStringW(tServerInfo.ServerName)
            ServerInfo.Type = tServerInfo.Type
            ServerInfo.PlatformId = tServerInfo.PlatformId
            ServerInfo.VerMajor = tServerInfo.VerMajor
            ServerInfo.VerMinor = tServerInfo.VerMinor

            i = i + 1
            ReDim Preserve SrvList.List(1 To i) As ServerInfo
            SrvList.List(i) = ServerInfo

            x = x + 1
            lServerInfoPtr = lServerInfoPtr + Len(tServerInfo)

        Loop

        lRetCode = NetApiBufferFree(lServerInfo)
        SrvList.Init = (x > 1)

    Loop

    EnumServer = SrvList

End Function

Public Function GetPDCName() As String
    Dim lpBuffer As Long, nRet As Long
    Dim yServer() As Byte
    Dim sLocal As String

    yServer = MakeServerName(ByVal "")

    nRet = NetGetDCName(yServer(0), yServer(0), lpBuffer)

    If nRet = 0 Then
        sLocal = PointerToStringW(lpBuffer)
    End If

    If lpBuffer Then Call NetApiBufferFree(lpBuffer)

    GetPDCName = sLocal

End Function

' Function Read User Information - for future development!
Public Function LongEnumUsers(Server As String) As ListOfUserExt
    Dim yServer() As Byte, lRetCode As Long
    Dim nRead As Long, nTotal As Long
    Dim nRet As Long, nResume As Long
    Dim PrefMaxLen As Long
    Dim i As Long, x As Long
    Dim lUserInfo As Long
    Dim lUserInfoPtr As Long
    Dim UserInfo As UserInfoExt
    Dim UserList As ListOfUserExt
    Dim tUserInfo As USER_INFO_EXT_API

    yServer = MakeServerName(ByVal Server)
    PrefMaxLen = 65536

    nRet = NERR_MoreData
    Do While (nRet = NERR_MoreData)
        nRet = NetUserEnum(yServer(0), EXTENDED_LEVEL, 2, _
                           lUserInfo, PrefMaxLen, nRead, _
                           nTotal, nResume)

        If (nRet <> NERR_Success And _
             nRet <> NERR_MoreData) Then
            UserList.Init = False
            UserList.LastErr = nRet
            NetError nRet
            Exit Do
        End If

        lUserInfoPtr = lUserInfo

        x = 1
        Do While x <= nRead

            CopyMemory tUserInfo, ByVal lUserInfoPtr, Len(tUserInfo)

            UserInfo.Name = PointerToStringW(tUserInfo.Name)
            UserInfo.Password = PointerToStringW(tUserInfo.Password)
            UserInfo.PasswordAge = Format(tUserInfo.PasswordAge /  _
            86400, "0.0")
            UserInfo.Privilege = tUserInfo.Privilege
            UserInfo.HomeDir = PointerToStringW(tUserInfo.HomeDir)
            UserInfo.Comment = PointerToStringW(tUserInfo.Comment)
            UserInfo.Flags = tUserInfo.Flags
            UserInfo.NoChangePwd = CBool((tUserInfo.Flags Or  _
            USER_ACC_NOPWD_CHANGE) = tUserInfo.Flags)
            UserInfo.NoExpirePwd = CBool((tUserInfo.Flags Or  _
            USER_ACC_NOPWD_EXPIRE) = tUserInfo.Flags)
            UserInfo.AccDisabled = CBool((tUserInfo.Flags Or  _
            USER_ACC_DISABLED) = tUserInfo.Flags)
            UserInfo.AccLocked = CBool((tUserInfo.Flags Or  _
            USER_ACC_LOCKED) = tUserInfo.Flags)
            UserInfo.ScriptPath = PointerToStringW(tUserInfo.ScriptPath)
            UserInfo.AuthFlags = tUserInfo.AuthFlags
            UserInfo.FullName = PointerToStringW(tUserInfo.FullName)
            UserInfo.UserComment = PointerToStringW(tUserInfo.UserComment)
            UserInfo.Parms = PointerToStringW(tUserInfo.Parms)
            UserInfo.Workstations =  _
            PointerToStringW(tUserInfo.Workstations)
            UserInfo.LastLogon = NetTimeToVbTime(tUserInfo.LastLogon)
            UserInfo.LastLogoff = NetTimeToVbTime(tUserInfo.LastLogoff)
            If tUserInfo.AcctExpires = -1& Then
                UserInfo.AcctExpires = NetTimeToVbTime(0)
            Else
                UserInfo.AcctExpires =  _
                NetTimeToVbTime(tUserInfo.AcctExpires)
            End If
            UserInfo.MaxStorage = tUserInfo.MaxStorage
            UserInfo.UnitsPerWeek = tUserInfo.UnitsPerWeek
            CopyMemory UserInfo.LogonHours(0), ByVal  _
            tUserInfo.LogonHours, 21
            UserInfo.BadPwCount = tUserInfo.BadPwCount
            UserInfo.NumLogons = tUserInfo.NumLogons
            UserInfo.LogonServer = PointerToStringW(tUserInfo.LogonServer)
            UserInfo.CountryCode = tUserInfo.CountryCode
            UserInfo.CodePage = tUserInfo.CodePage
            UserInfo.UserID = tUserInfo.UserID
            UserInfo.PrimaryGroupID = tUserInfo.PrimaryGroupID
            UserInfo.Profile = PointerToStringW(tUserInfo.Profile)
            UserInfo.HomeDirDrive =  _
            PointerToStringW(tUserInfo.HomeDirDrive)
            UserInfo.PasswordExpired = CBool(tUserInfo.PasswordExpired)

            i = i + 1
            ReDim Preserve UserList.List(1 To i) As UserInfoExt
            UserList.List(i) = UserInfo
            x = x + 1

            lUserInfoPtr = lUserInfoPtr + Len(tUserInfo)

        Loop

        lRetCode = NetApiBufferFree(lUserInfo)
        UserList.Init = (x > 1)

    Loop

    LongEnumUsers = UserList

End Function

Public Function MakeServerName(ByVal ServerName As String)
    Dim yServer() As Byte

    If ServerName <> "" Then
        If InStr(1, ServerName, "\\") = 0 Then
            ServerName = "\\" & ServerName
        End If
    End If

    yServer = ServerName & vbNullChar
    MakeServerName = yServer

End Function

Public Function NetError(nErr As Long, Optional Ret) As String
    Dim Msg As String

    If IsMissing(Ret) Then Ret = False

    Select Case nErr
        Case 5
            Msg = "Access Denied!"

        Case 1722
            Msg = "Server not accessible!"

        Case 1326
            Msg = " Sie besitzen nicht die Berechtigungen dafür"

        Case Else
            Msg = "Error Nr. (" & nErr & ") !"
    End Select

    If Not Ret Then
        Beep
        MsgBox Msg, vbCritical, "Net Error"
    Else
        NetError = Msg
    End If

End Function

Public Function NetTimeToVbTime(NetDate As Long) As Double
    Const BaseDate# = 25569   'DateSerial(1970, 1, 1)
    Const SecsPerDay# = 86400
    Dim Tmp As Double

    Tmp = BaseDate + (CDbl(NetDate) / SecsPerDay)
    If Tmp <> BaseDate Then
        NetTimeToVbTime = Tmp
    End If

End Function

Public Function PointerToStringW(lpStringW As Long) As String
    Dim buffer() As Byte
    Dim nLen As Long

    If lpStringW Then
        nLen = lstrlenW(lpStringW) * 2
        If nLen Then
            ReDim buffer(0 To (nLen - 1)) As Byte
            CopyMemory buffer(0), ByVal lpStringW, nLen
            PointerToStringW = buffer
        End If
    End If
End Function

'---------- Ende Modul "Module1" alias Module1.bas ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Quelle: http://www.activevb.de/tipps/vb6tipps/tipp0479.html

Ne, wirklich gehlofen hat das nicht. Was ist das? Visual Basic? iih!
Dachte, das es vielleicht eine API Funktion gäbe... *wunderfitzigweiterfrag*

Neku

Die Auflistung der Computer im Netzwerk funktioniert unter Windows in den meisten Fällen ohnehin nicht. Dazu kommt, dass der Nachrichtendienst seit WinXP SP2 standardmäßig deaktiviert ist.
Wozu benötigst du dieses Tool denn? Vielleicht gibt es ja noch andere Möglichkeiten zur Realisierung (z.B. eigenes Chatprogramm).
Sollten sich die Namen der Computer im Zielnetzwerk nicht all zu oft ändern, könntest du auch einfach eine editierbare Liste machen, in die man Computernamen einträgt (so eine Art Favoriten eben).

PS: Falsches Forum