windows - 创建 VBS,使用当前用户的用户名、计算机名称和多个 IP 地址创建一个消息框(有线/无线)
问题描述
我一直在四处寻找,我想出了这种混合脚本......它几乎可以满足我的需要,但是当涉及到 IP 地址时,它在消息框上看起来并不漂亮...... .currently 它们与无空格示例一起显示(wiredIPwirelessIP)。理想情况下,我希望消息框显示用户名:用户计算机名:Computer1 有线 IP:XXXX 无线 IP:XXXX
任何帮助,将不胜感激。
这是我到目前为止所拥有的
On Error Resume Next
Dim WSH
Dim strComputerName, FinalIP
Set WSH = WSCript.CreateObject("WScript.Shell")
Set WshNtwk = WScript.CreateObject("WScript.Network")
strMsg = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPAdapterSet = objWMIService.ExecQuery("Select AdapterType, NetConnectionID, MACAddress from Win32_NetworkAdapter")
For Each IPConfig in IPAdapterSet
Set IPConfigSet = objWMIService.ExecQuery("Select IPEnabled, Description, Caption, IPAddress, MACAddress from Win32_NetworkAdapterConfiguration where IPEnabled='True' AND MACAddress = '" & IPConfig.MACAddress & "'")
For Each IPConf in IPConfigSet
''strMsg = strMsg
If Not IsNull(IPConf.IPAddress) Then
For i = LBound(IPConf.IPAddress) to UBound(IPConf.IPAddress)
If Not ((Instr(IPConf.IPAddress(i), ":") > 0) or (Instr(IPConf.IPAddress(i), "none") > 0)) Then
if i=0 then
strMsg = strMsg & IPConf.IPAddress(i)
else
strMsg = strMsg & ", " & IPConf.IPAddress(i)
end if
End If
Next
End If
next
Next
''WScript.Echo strMsg
Dim infroStr
infoStr = "Please provide the following information to the IT Technician." & vbCRLF & vbCRLF & _
" Username :" & vbTab & WshNtwk.UserName & vbCRLF & _
" Computer Name :" & vbTab & Ucase(WshNtwk.ComputerName) & vbCRLF & _
" IP Address(es) :" & vbTab & strMsg
'"Domain:" & WshNtwk.UserDomain
' Display the IP address and computer name in user-friendly message box
MsgBox infoStr, 64, "Some Title"
'"Computer Name:" & vbTab & Ucase(WshNtwk.ComputerName) & vbCrLf & "IP Address:" & vbTab & FinalIP, vbOkOnly , "SCCCMHA PC Information"
On Error Goto 0
WScript.Quit
解决方案
我认为这会帮助你:
Option Explicit
On Error Resume Next
Dim WSH, WshNtwk, objWMIService, IPAdapterSet, IPConfig, IPConfigSet, IPConf
Dim strMsg, strComputer, infoStr, FinalIP
Set WSH = WSCript.CreateObject("WScript.Shell")
Set WshNtwk = WScript.CreateObject("WScript.Network")
strMsg = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPAdapterSet = objWMIService.ExecQuery("Select AdapterTypeID, NetConnectionID, MACAddress from Win32_NetworkAdapter")
' values for AdapterTypeID: https://docs.microsoft.com/en-us/windows/desktop/cimwin32prov/win32-networkadapter
For Each IPConfig in IPAdapterSet
Set IPConfigSet = objWMIService.ExecQuery("Select IPEnabled, Description, Caption, IPAddress, MACAddress from Win32_NetworkAdapterConfiguration where IPEnabled='True' AND MACAddress = '" & IPConfig.MACAddress & "'")
For Each IPConf in IPConfigSet
If Not IsNull(IPConf.IPAddress) Then
If Instr(1, IPConfig.NetConnectionID, "Wireless", vbTextCompare) > 0 Then
strMsg = strMsg & "- Wireless IP: " & vbTab
Else
strMsg = strMsg & "- Wired IP: " & vbTab
End If
strMsg = strMsg & Join(IPConf.IPAddress, ", ") & vbCrLf
strMsg = strMsg & "- MAC Address: " & vbTab & IPConfig.MACAddress & vbCrLf & vbCrLf
End If
Next
Next
''WScript.Echo strMsg
infoStr = "Please provide the following information to the IT Technician." & vbCrLf & vbCrLf & _
"Username :" & vbTab & WshNtwk.UserName & vbCrLf & _
"Computer Name :" & vbTab & Ucase(WshNtwk.ComputerName) & vbCrLf & _
"IP Addresses:" & vbCrLf & strMsg
'"Domain:" & WshNtwk.UserDomain
' Display the IP address and computer name in user-friendly message box
MsgBox infoStr, 64, "Some Title"
'"Computer Name:" & vbTab & Ucase(WshNtwk.ComputerName) & vbCrLf & "IP Address:" & vbTab & FinalIP, vbOkOnly , "SCCCMHA PC Information"
On Error Goto 0
'cleanup
Set IPConf = Nothing
Set IPConfig = Nothing
Set objWMIService = Nothing
Set IPAdapterSet = Nothing
Set WSH = Nothing
Set WshNtwk = Nothing
WScript.Quit
Ps 消息框可能提供信息,但不允许用户将信息复制为文本并通过邮件将其发送给 IT。也许您应该添加一行告诉他们按Alt+PrtScn并将其粘贴到带有Ctrl+的电子邮件中V
推荐阅读
- sql - 如何用 as 返回一个字段
- java - 如何在电容器 3 中手动注册插件?
- mysql - 在事务检查中,第一次更新成功
- javascript - 根据测试/规范案例开玩笑地从模块中更改模拟的 const 值
- centos - 尽管使用了 sudo,但仍要求管理权限?
- bash - Bash 脚本运行,但主要命令没有输出并且未执行
- node.js - websocket自动关闭连接(node.Js)
- javascript - onClick : 从 componentDidMount 调用一个函数
- python - pandas 在添加新列时返回系列而不是数据框
- cloudera - 在 Cloudera Manager 中添加新的服务类型