vbs脚本获取主机名,IP,Mac地址，放到指定的TXT文档里面，请问怎么写，用于域策略部署实施

'以下代码复制粘贴到记事本，另存为xxvbs，编码选ANSI

result=""

info="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)

Set wmi=GetObject("winmgmts:\\\root\cimv2")

Set querylist=wmiExecQuery(StrReverse("metsySretupmoC_23niW morf tceles"))

For Each it In querylist

If trim(itName) <> "" Then

result=result & "主机名=" & itName & vbCrLf

End If

Next

Set querylist=wmiExecQuery(StrReverse("'EURT'=delbanEPI erehw noitarugifnoCretpadAkrowteN_23niW morf tceles"))

For Each it In querylist

If trim(itMACAddress) <> "" Then

If trim(itIPAddress(0)) <> "" Then

result=result & "IP=" & itIPAddress(0) & vbCrLf

End If

result=result & "MAC=" & itMACAddress & vbCrLf

End If

Next

msgbox result & info

不会打开新页面啊，这个就是获取当前的地址啊，网址保存在变量url中，如果你不要d出对话框就把：

msgbox "网址保存在变量url中:"&url

这一句去掉就行了啊。

如果你要在当前网页输出这个网址就这么写：

<script Language="vbscript">

dim url

function geturl()

url=windowlocationhref

documentgetElementById("ur")innerText="网址保存在变量url中:"&url

end function

</script>

<div id="ur"></div><br>

<input type="button" value="获取" onclick="geturl()">

下面是第一次回答的：

<script Language="vbscript">

dim url

function geturl()

url=windowlocationhref

msgbox "网址保存在变量url中:"&url

end function

</script>

<input type="button" value="获取" onclick="geturl()">

如果是在网页上执行脚本，为安全考虑，你会没有权限获取这些信息。

如果是在本地磁盘运行vbs脚本，可以调用系统的WMI服务进行硬件查询：

Dim objWMIService

Set objWMIService = Getobject("winmgmts:\\\root\cimv2")

Dim objNetworks, objNetwork, objNetworks_2, objNetwork_2, NetWorkInfo

NetWorkInfo = ""

Set objNetworks = objWMIServiceexecQuery("Select From

Win32_NetworkAdapter")

Set objNetworks_2 = objWMIServiceexecQuery("Select

From Win32_NetworkAdapterConfiguration")

For Each objNetwork In

objNetworks

If objNetworkManufacturer <> "Microsoft" And Not

Isnull(objNetworkMACAddress) Then

For Each objNetwork_2 In

objNetworks_2

If objNetwork_2Index = objNetworkIndex

Then

NetWorkInfo = "网卡信息：" & objNetworkDescription & ","

& objNetwork_2IPAddress(0) & _

Space(17-Len(objNetwork_2IPAddress(0))) & _

Replace(objNetwork_2MACAddress,":","-") & "☆"

Exit

For

End If

Next

If NetWorkInfo <> "" Then

Exit For

End If

Next

看到有人对VBS感兴趣，前一段时间研究了一阵。由于经常在公司装系统，必须做的三件事：1、更改IP地址（包括IP、子网掩码、网关、DNS）；2、更改计算机名；3、加入域。因此查了微软的资料，写了三个脚本，现拿出来，与大家分享，欢迎批评指正。

1、更改IP地址

文件名：更改IP地址vbs

代码：

Set objShell = CreateObject("WscriptShell")

IP = InputBox ("输入新的IP地址","IP地址")

NM="2552552550" '子网掩码

GW=left(IP,8) & "1" '网关 根据自己的实际情况录入，见下面的说明文字

MDNS="10101010" '首选DNS

SDNS="10101030" '备用DNS

msgbox ChangeIP(IP,NM,GW,MDNS,SDNS)

Function ChangeIP(IP, NM, GW, MDNS, SDNS)

Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask

Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS

strComputer = ""

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

Set colNetAdapters = objWMIServiceExecQuery("Select from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress=Array(IP)

strSubnetMask=Array(NM)

strGateway=Array(GW)

strDNS = Array(MDNS, SDNS)

strGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters

errEnable = objNetAdapterEnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapterSetGateways(strGateway, strGatewaymetric)

errDNS = objNetAdapterSetDNSServerSearchOrder(strDNS)

If errEnable = 0 And errGateways = 0 And errDNS = 0 Then

ChangeIP = "设置成功"

Else

If errEnable = 0 Then

ChangeIP = "IP地址和子网掩码设置成功, "

Else

ChangeIP = "IP地址或子网掩码设置失败, "

End If

If errGateways = 0 Then

ChangeIP = ChangeIP & "默认网关设置成功, "

Else

ChangeIP = ChangeIP & "默认网关设置失败, "

End If

If errDNS = 0 Then

ChangeIP = ChangeIP & "DNS设置成功"

Else

ChangeIP = ChangeIP & "DNS设置失败"

End If

End If

Next

End Function

以上就是关于vbs脚本获取主机名,IP,Mac地址，放到指定的TXT文档里面，请问怎么写，用于域策略部署实施全部的内容，包括:vbs脚本获取主机名,IP,Mac地址，放到指定的TXT文档里面，请问怎么写，用于域策略部署实施、如何用vbs获取当前的网址，解决我的问题再加20分，绝不食言、vbs怎么获取本地网卡连接名（求代码）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！