谁能教我怎么用VBS获取网卡的MAC地址，还有主板的

Posted 2023-03-31

谁能教我怎么用VBS获取网卡的MAC地址，还有主板的

参考技术A 程序已经做好了，ok~希望你够阳光~（不想要的信息可以自己去掉啦)
Dim WshShell, fso
Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next

Set WshNetwork = WScript.CreateObject("WScript.Network")
a = WshNetwork.UserName
b = WshNetwork.ComputerName

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
j = IPConfig.Index(i)
k = IPConfig.IPAddress(i)
If Len(k) > 0 Then Exit For
Next
End If
Next

Set colNetworkAdapters = objWMIService.InstancesOf("Win32_NetworkAdapter")
For Each objNetworkAdapter In colNetworkAdapters
If j = objNetworkAdapter.Index Then c = Replace(objNetworkAdapter.MACAddress,":","-")
Next

Set colProcessors = objWMIService.InstancesOf("Win32_Processor")
For Each objProcessor In colProcessors
t1 = objProcessor.Name
t1 = t1 & " " & objProcessor.CurrentClockSpeed & " MHz"
If Len(Trim(t1)) > 0 Then Exit For
Next

Set colLogicalMemoryConfigurations = objWMIService.InstancesOf("Win32_LogicalMemoryConfiguration")
For Each objLogicalMemoryConfiguration In colLogicalMemoryConfigurations
t2 = CInt(objLogicalMemoryConfiguration.TotalPhysicalMemory / 1024) & " MB"
Next

Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_DiskDrive where Index=0")
For each objDiskDrive in colDiskDrives
t3 = objDiskDrive.Model
Next

Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_DiskDrive where Index=1")
For each objDiskDrive in colDiskDrives
t4 = objDiskDrive.Model
Next

Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_DiskDrive where Index=2")
For each objDiskDrive in colDiskDrives
t5 = objDiskDrive.Model
Next

Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_DiskDrive where Index=3")
For each objDiskDrive in colDiskDrives
t6 = objDiskDrive.Model
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive where SCSITargetId=0")
For Each objItem in colItems
t7 = objItem.Name
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive where SCSITargetId<>0")
For Each objItem in colItems
t8 = objItem.Name
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayControllerConfiguration")
For Each objItem in colItems
t9 = objItem.Name
Next

MyFile = "\\server2\financial\info\"
MyFile = MyFile & Mid(k,13) & ".csv"
a = "登录用户：" & a
b = "计算机名：" & b
c = "MAC 参数：" & c
k = " IP 地址：" & k
t1 = "CPU 型号：" & t1
t2 = "内存容量：" & t2
t3 = "硬盘 - 1：" & t3
t4 = "硬盘 - 2：" & t4
t5 = "硬盘 - 3：" & t5
t6 = "硬盘 - 4：" & t6
t7 = "光驱 - 1：" & t7
t8 = "光驱 - 2：" & t8
t9 = "显卡参数：" & t9
all = a & vbCrLf & b & vbCrLf & k & vbCrLf & c & vbCrLf & t1 & vbCrLf & t2 & vbCrLf & t3 & vbCrLf & t4 & vbCrLf & t5 & vbCrLf & t6 & vbCrLf & t7 & vbCrLf & t8 & vbCrLf & t9
MsgBox all,4096+64,"信息收集" 参考技术B mac地址 不是可以在运行或者CMD里面打 ipconfig/all 命令吗本回答被提问者采纳

谁能教我一下Linux 下tightvnc怎么配置？

Linux 下tightvnc的配置方法如下：

IIS7服务器管理工具能让你轻松控制远程的计算机，它可以通过在另一端电脑上安装配套使用IIS7服务器管理工具来进行与服务器的远程连接，就像坐在自己家的计算机前面一般，让你出门在外无后顾之忧，方便了用户在远程控制操作上进行合理有效的远程协助服务！

这个工具里面的VNC功能可以说是使用感非常棒的。它可以一键导出或导入，还可以一键批量打开VNC，还可以一键批量关闭VNC，还有到期提醒，还有多台VNC 自定义备注，自定义分组。最后还支持win、linux批量管理，这是非常好用的功能了。能省去您一台台记录IP、密码，点下就能瞬间打开。

一、安装tightvnc

将程序安装到已在PATH环境变量中的/root/bin下，manual手册则安装到/usr/share/man下

[root@localhost vnc_unixsrc]./vncinstall /root/bin /usr/share/man

 

用于Java环境（比如在浏览器中）下的Java字节码放到/root/bin/classes中

[root@localhost vnc_unixsrc]mkdir -p /root/bin/classes

[root@localhost vnc_unixsrc]cp classes/* /root/bin/classes/

二、安装tigervnc

    yum install tigervnc-server               这是服务端软件
yum install tigervnc                            这是客户端软件，安装完后，程序在“应用程序”->“Internet”->“TigerVNC Viewer”

三、设置vnc服务端：
1、修改配置文件：vim /etc/sysconfig/vncservers
VNCSERVERS="1:root "
VNCSERVERARGS[1]="-geometry 800x600 -nolisten tcp -localhost"
注意：vnc默认的端口是从5900开始，所以如果以root用户登录的话，端口号就是5901了
2、设置vnc连接密码：
必须先切换到某一用户环境下，才能使用vncpasswd命令来设置该用户的vnc连接密码。

四、启动vnc服务：
1、/etc/init.d/vncserver start (stop reload restart等)
2、service vncserver start (stop restart等)
3、设置开机自动启动：chkconfig  vncserver on
(检查开机自动启动设置：chkconfig --list vncserver)

五、连接vnc远程桌面：
在windows系统中，可使用“TigerVNC Viewer”客户端或者UltraVNC Viewer  客户端来连接远程桌面，两者的windows上的安装方法就不需要再介绍了吧，大家下载到安装文件后都会做的，你懂的！
点击“TigerVNC Viewer”客户端软件后，在"VNC  Server:"栏输入需要连接的远程计算机的IP地址及相应的接口号，然后单击“OK”即可。

参考技术A 1、使用如下命令，进行安装、
yum install tigervnc
yum install tigervnc-server

2、启动vncserver（服务器端）
vncserver :n
这里的n是sessionnumber，不指定默认为1，也可以是2、3等等。第一次会提示输入密码，以后可以使用vncpasswd命令修改密码。
3、启动vncviewer（客户端）
vncviewer localhost:n 或者用vnc其他客户端都能连接追问

我已经用vncpasswd 设了密码了。却还提示缺少密码。

/etc/init.d/目录下的vnc 和 vncserver是一样的吗？

本回答被提问者采纳