急！！！在线等候！！！如何获得本机在局域网中所处的工作组名?

2002-03-06 10:04:42 191 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ESP12F模组-USB转TTL模块-Arduino下载程序 ESP12F模组如何通过单独的USB转TTL模块下载程序适合项目中运用ESP12F模组时，快速使用外接模块和Arduino开发程序, 毕竟使用【Keil+STM32】联合开发ESP系列的模组实在是麻烦。个人习惯ESP模块采用Arduino生态框架，STM32使用MDK开发，最后采用主从机通讯转发的方式。这样方便模块管理、接口复用、方便PCBLayout等。一、关键词 ArduinoIDE ESP12F USB->TTL 二、要点采用ESP8266NodeMCU的MCU ESP 阅读详情

...全文

告别专用烧录器：用USB-TTL模块给ATmega8下载Arduino程序的全流程解析本文详细解析了如何使用USB-TTL模块（如CH340G或CP2102）为ATmega8单片机烧录Arduino程序的全流程。通过精心设计的DTR自动复位电路和Arduino IDE的深度定制，开发者可以摆脱昂贵的专用烧录器，实现低成本、高效的硬件开发。文章还提供了硬件连接规范、软件配置技巧及常见故障解决方案，适合创客和硬件开发者参考。阅读详情

daboby

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

sonicdater 2002-03-06

打赏
举报

目的:获取 Workstation 配置信息和当前用户.
To a form add a command button (Command1), list box (List1), and two labels (Label1, Label2). A third set of labels in a control array can be used for the list item captions. Add the following to the form:
==================================================================
Option Explicit
Private Const NERR_SUCCESS As Long = 0&
Private Const MAX_PREFERRED_LENGTH As Long = -1
Private Const ERROR_MORE_DATA As Long = 234&
Private Const LB_SETTABSTOPS As Long = &H192

'for use on Win NT/2000 only
Private Type WKSTA_INFO_102
wki102_platform_id As Long
wki102_computername As Long
wki102_langroup As Long
wki102_ver_major As Long
wki102_ver_minor As Long
wki102_lanroot As Long
wki102_logged_on_users As Long
End Type

Private Type WKSTA_USER_INFO_0
wkui0_username As Long
End Type

Private Declare Function NetWkstaGetInfo Lib "netapi32" _
(ByVal servername As Long, _
ByVal level As Long, _
bufptr As Long) As Long

Private Declare Function NetWkstaUserEnum Lib "netapi32" _
(ByVal servername As Long, _
ByVal level As Long, _
bufptr As Long, _
ByVal prefmaxlen As Long, _
entriesread As Long, _
totalentries As Long, _
resume_handle As Long) As Long

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

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

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

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Sub Form_Load()

ReDim TabArray(0 To 6) As Long

TabArray(0) = 78
TabArray(1) = 129
TabArray(2) = 159
TabArray(3) = 198
TabArray(4) = 227
TabArray(5) = 253
TabArray(6) = 302

'Clear existing tabs and set list tabstops
Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 0&, ByVal 0&)
Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 7&, TabArray(0))
List1.Refresh

Command1.Caption = "NetWkstaGetInfo"

Label1.Caption = "call success (0) or error :"
Label2.Caption = ""

End Sub

Private Sub Command1_Click()

Dim bufptr As Long
Dim dwServer As Long
Dim success As Long
Dim nStructSize As Long
Dim bServer As String
Dim ws102 As WKSTA_INFO_102

bServer = "\\" & Environ$("COMPUTERNAME") & vbNullString

List1.Clear
Label2.Caption = success

dwServer = StrPtr(bServer)

success = NetWkstaGetInfo(dwServer, 102, bufptr)

If success = NERR_SUCCESS And _
success <> ERROR_MORE_DATA Then

nStructSize = LenB(ws102)

'cast data into a WKSTA_INFO_102 type
'and add the data to a list, calling
'the GetWorkstationUserName function
'to retrieve the logon username for
'the dwServer passed
CopyMemory ws102, ByVal bufptr, nStructSize

List1.AddItem GetPointerToByteStringW(ws102.wki102_computername) & vbTab & _
GetPointerToByteStringW(ws102.wki102_langroup) & vbTab & _
ws102.wki102_logged_on_users & vbTab & _
ws102.wki102_platform_id & vbTab & _
ws102.wki102_ver_major & vbTab & _
ws102.wki102_ver_minor & vbTab & _
GetWorkstationUserName(dwServer)

End If

Call NetApiBufferFree(bufptr)

End Sub

Private Function GetPointerToByteStringW(ByVal dwData As Long) As String

Dim tmp() As Byte
Dim tmplen As Long

If dwData <> 0 Then

tmplen = lstrlenW(dwData) * 2

If tmplen <> 0 Then

ReDim tmp(0 To (tmplen - 1)) As Byte
CopyMemory tmp(0), ByVal dwData, tmplen
GetPointerToByteStringW = tmp

End If

End If

End Function

Private Function GetWorkstationUserName(ByVal dwWorkstation As Long) As String

Dim bufptr As Long
Dim dwEntriesread As Long
Dim dwTotalentries As Long
Dim dwResumehandle As Long
Dim success As Long
Dim nStructSize As Long
Dim wui0 As WKSTA_USER_INFO_0

success = NetWkstaUserEnum(dwWorkstation, _
0, _
bufptr, _
MAX_PREFERRED_LENGTH, _
dwEntriesread, _
dwTotalentries, _
dwResumehandle)

If success = NERR_SUCCESS And _
success <> ERROR_MORE_DATA Then

nStructSize = LenB(wui0)

If dwEntriesread > 0 Then

'cast data into WKSTA_USER_INFO_0 since
'we only need the user name. Although this
'API enumerates and returns information
'about all users currently logged on to
'the workstation, including interactive,
'service and batch logons, chances are
'that the first user enumerated was the
'user who logged on the session so we
'exit after the first user info is returned.
'
'If this presumption is incorrect, please
'let me know via the VBnet Comments link.
CopyMemory wui0, ByVal bufptr, nStructSize

GetWorkstationUserName = GetPointerToByteStringW(wui0.wkui0_username)

'clean up
Call NetApiBufferFree(bufptr)
Exit Function

End If

End If

'if the dwWorkstation passed was a Win9x
'machine, dwEntriesread was 0, so return
'a default string.

GetWorkstationUserName = "n\a on Win9x"
Call NetApiBufferFree(bufptr)

End Function

daboby 2002-03-06

打赏
举报

我是说用程序来获得~

dbcontrols 2002-03-06

打赏
举报

找找注册表

lou_df 2002-03-06

打赏
举报

学习学习。

acptvb 2002-03-06

打赏
举报

感谢您使用微软产品。

如果您用的是Windows 2000的机器，您还可以试一下以下的简单WMI代码：
For Each computer In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_ComputerSystem")
MsgBox computer.domain
Next

关于WMI的详细信息，您可以参考以下文档：
http://msdn.microsoft.com/library/?url=/library/en-us/wmisdk/wmistart_5kth.asp?frame=true

- 微软全球技术中心 VB技术支持

本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。

急！！！在线等候！！！如何获得本机在局域网中所处的工作组名?

相关推荐