写一段VBS程序，显示当前主机的IP地址、主机名、当前登录用户

最新推荐文章于 2023-11-30 09:40:27 发布
原创 最新推荐文章于 2023-11-30 09:40:27 发布 · 642 阅读 · 0 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#tcp/ip #网络 #服务器 #linux #运维
该VBS程序通过WMI（WindowsManagementInstrumentation）接口查询Win32_NetworkAdapterConfiguration类，获取到主机的IP地址、主机名和当前登录用户的信息，并循环遍历IP地址列表进行显示。

以下是一段 VBS 程序，它会显示当前主机的 IP 地址、主机名和当前登录用户。

Dim objWMI, objItemSet objWMI = GetObject("winmgmts:")
Set objItem = objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each obj in objItem
    For i = 0 to obj.IPAddress.Count - 1
        Wscript.Echo "IP 地址:
李多田
关注
亲测可用，vbs获取电脑当前登录的用户名.vbs
08-06
亲测可用！ 很有意思的小脚本,VBS vbs脚本实现获取屏幕分辨率,大家一起学习分享啊! 本人将会不定期的上传一些经过测试可用的vbs小程序。
VBS获取本地ip
07-04
VBS获取本地ip QTP应用 已经调试通过
使用组策略和vbs脚本实现域用户首次登录绑定计算机并获取域计算机当前登录的用户信息
Junson142099的博客
07-14 6005
公司有这样的一个需求，要求实现域用户只能在自己的电脑上进行本地登录。受其他文章启发，可以使用组策略和vbs脚本来实现。 但是难的地方在于我们并没有域用户和计算机名的对应关系，一个个收集再手动设置的话太过于繁琐了，就算有，后面入职的新员工也得手动设置，太麻烦了。 受以下文章启发，可以使用组策略和vbs脚本来实现，让组策略把vbs脚本设置成登录脚本，脚本读取当前用户和计算机，将相关属性写入到ad中，感谢这位博主！ 如果有公共机需要让.....................
vbs 获取计算机主机名,vbs 脚本 获取机器名/IP/MAC
weixin_34651547的博客
06-22 1890
strComputer = "."strMesseage=""Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")'获取本机计算机名Set colSettings = objWMIService.ExecQuery ("S...
显示域用户登录的ip或计算机名,如何在使用PowerShell脚本或者VBS脚本，查看域内正在登录的域用户名、主机名和主机IP地址...
weixin_35181426的博客
06-17 1494
域管理员希望能通过PowerShell或者VBS脚本，查看当前域内正在登录的账号名称、客户端主机名称和客户端主机IP地址。以前看过论坛中的一个帖子是说通过VBS脚本来查看，但是只能看到主机名和登录账号名，但我不知道如何变更脚本代码，把IP地址也显示出来(代码如下)。' Script for getting current logged user name on Domain' Author : m...
vbs 获取计算机主机名,如何在使用PowerShell脚本或者VBS脚本，查看域内正在登录的域用户名、主机名和主机IP地址...
weixin_32051661的博客
06-22 540
域管理员希望能通过PowerShell或者VBS脚本，查看当前域内正在登录的账号名称、客户端主机名称和客户端主机IP地址。以前看过论坛中的一个帖子是说通过VBS脚本来查看，但是只能看到主机名和登录账号名，但我不知道如何变更脚本代码，把IP地址也显示出来(代码如下)。' Script for getting current logged user name on Domain' Author : m...
java h5获取ip_JS获取客户端IP地址、MAC和主机名的7个方法汇总
weixin_36155754的博客
02-24 2612
今天在搞JS(javascript)获取客户端IP的小程序，上网搜了下，好多在现在的系统和浏览器中的都无效，很无奈，在Chrome、FireFox中很少搞到直接利用ActiveX获取IP等的JS脚本。下面的代码是我在所有windowsNT5.0及以上的系统上都测试通过的，给出代码：一、使用JS获取客户端IP的几个方法方法一(只针对IE且客户端的IE允许AcitiveX运行，通过平台：XP，SERV...
在桌面上显示当前的IP地址和电脑名称
weixin_34082854的博客
09-02 7396
每天上WINMAG社区看看现在似乎已经成了习惯，昨天在WINDOWS管理脚本区看到“mypeter”网友的“请问怎样在桌面上原来显示版本号的地方显示当前的IP地址和电脑名称呢？（基本解决）”的贴子！贴中介绍了他使用VBS与BAT脚本来实现了该功能，对此非常感兴趣，按照他的方法我经过调试在自已管理的域里也实现该功能，现将脚本公布如下，并对“mypeter”表示...
vbs脚本编写，自动获取主机名hostname
baidu_31295661的博客
01-10 1108
vbs脚本如下： Const HKEY_LOCAL_MACHINE = &H80000002 strRegKey = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" Set objReg = GetObject( "winmgmts:{impersonationLevel=impersonate}!//./root/default:StdRegProv" ) objReg.GetStringValue HKEY_LOCAL_MACHINE,
如何使用vbs脚本得到当前主机的IP地址；
milaoshu1020的专栏
12-02 1529
如何得到当前主机的IP地址;
SecureCRT VBS脚本之获取本机所有IP地址
weixin_41044237的博客
11-30 628
'colAdapters.count=3时，msgbox ubound(colAdapters.ItemIndex(3).IPAddress)，需为ItemIndex(2)，否则报错。a = colAdapters.Count'colAdapters.Count数量。函数功能：获取本机所有IP地址，并用空格连接后返回，后期可通过split函数分割。for a = 0 to a -1 'ItemIndex 索引从0计数。
SHELL脚本编程
weixin_43132215的博客
04-04 770
先进行到for循环。后续的while再说吧。还没学到。
通过vbs获取本机IP地址和MAC地址
软件自动化测试专栏
08-24 3729
<br /> <br />1，方法代码：<br />Function GetIPMAC(ComputerName) <br />Dim objWMIService,colItems,objItem,objAddress<br />Set objWMIService = GetObject("winmgmts://" & ComputerName & "/root/cimv2")<br />Set colItems = objWMIService.ExecQuery("Select * From Win32_
VBS获取本机IP地址
weixin_33736649的博客
02-02 1260
'获取本机IP 'owner DeViL 'return 本机的IP地址PublicFunctionGetIP ComputerName="." DimobjWMIService,colItems,objItem,objAddress SetobjWMIService=GetObject("winmgmts:\\"&a...
vbscript获取本机的ip地址和mac地址
weixin_30795127的博客
12-27 321
msgbox "ip地址是:"&GetIP(".") msgbox "mac地址是:"&GetMAC(".") Function GetIP(ComputerName) Dim objWMIService,colItems,objItem,objAddress Set objWMIService = GetObject("winmgmts:...
vbs简单语法及简单案例
qq_52108058的博客
02-18 6319
vbYesNo，是buttons属性中的，只显示“是”和“否”按钮，vbYes即选中“是”把粘贴好的文件另存为，编码格式改为ANSI（解决中文乱码），文件名后缀改为vbs即可。Prompt：必需的。作为对话框消息出现的字符串表达式。Title： 可选的。显示对话框标题栏中的字符串表达式。问题：用记事本编写vbs脚本时，发现输出的中文为乱码。Default：可选的。显示文本框中的字符串表达式。很显然循环结束的条件是输入yes，否则就一直循环。运行：（不断循环关不掉）只需要另存为，将原来的。
vbs获取计算机信息,vbs获取系统硬件信息小脚本
weixin_36269724的博客
07-28 1337
工作需要，需要获取win服务器的硬件信息，提交给一api 接口，最后用vbs实现了功能，主要是用到了WMI发包是调用curl.exe来实现的，代码如下：REM '获取IP地址'REM '判断DNS是否为空，判断IP地址开头是否为10或192'strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer ...
显示本机IP及电脑名称等信息的bat脚本
IT_wind007的博客
12-30 5176
@echo off echo.本机电脑IP ipconfig|find "IPv4" echo. echo.本机计算机名称 hostname echo. echo 网页主页 echo.xxxxxx.com echo. echo 输入法切换 echo.开始菜单键(Win)+空格键 pause>nul exit
40. 脚本应用示例（显示当前主机ip；显示当前主机中能够登陆系统的用户；显示当前主机的主机名，ip，能够登陆系统的用户；执行命令后可以清空日志）
qq_43687755的博客
08-21 390
Lesson40 脚本应用示例（显示当前主机ip；显示当前主机中能够登陆系统的用户；显示当前主机的主机名，ip，能够登陆系统的用户；执行命令后可以清空日志） 文章目录1. 编写ip_show.sh，显示当前主机ip2. 编写user_show.sh，显示当前主机中能够登陆系统的用户3. 编写host_message_show.sh，显示当前主机的主机名，ip，能够登陆系统的用户4. 编写clea...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值