VBA可否检测出IP地址和工作组名称？[求助]

qqboy1 · 发表于 2005-5-30 23:02

先下载看看

welcpa · 发表于 2005-5-30 23:48

这个主题好，为骇客做准备!

方旭 · 发表于 2005-10-23 17:33

有谁做好了?能否拿出来共享一下啊???

secowu · 发表于 2005-10-24 08:09

做记号，以后用得着再查查

谢谢　

huyongapple · 发表于 2005-10-24 10:50

看看Environ？

Emily · 发表于 2004-11-9 18:36

Computer name in domain

VBA可否检测出IP地址和工作组名称？[求助]

fieldsun · 发表于 2003-8-21 17:21

记下来备用

xiaog · 发表于 2003-8-21 22:54

Winsock控件用法：http://club.excelhome.net/viewfile.asp?ID=1485

Emily · 发表于 2002-12-24 18:45

以下是引用jdainet在2002-12-24 14:54:28的发言： 只能得到当前用户名，不能得到计算机名。

Private Declare Function w32_GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Sub test() ComputerName = GetComputerName End Sub Function GetComputerName() Dim sComputerName As String Dim lComputerNameLen As Long Dim lResult As Long lComputerNameLen = 256 sComputerName = Space(lComputerNameLen) lResult = w32_GetComputerName(sComputerName, lComputerNameLen) If lResult <> 0 Then GetComputerName = Left(sComputerName, lComputerNameLen) Else GetComputerName = "Unknown" End If End Function

大头 · 发表于 2002-12-24 15:09

对对，如上得到操作系统的当前用户名。

		自动登录	找回密码
密码			免费注册