如何用VBS脚本写出判断本机IP的内容和配置文件是否相同，然后运行某程序

你在局域网中吗如果不在局域网中,这个地址是无效的

我做过获取外网ip的程序,我的网友都是用这个获取内网ip,用其他脚本获取外网ip

strComputer = ""

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

Set IPConfigSet = objWMIServiceExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfigIPAddress) Then

For Each strAddress in IPConfigIPAddress

ipad = strAddress

Next

End If

Next

set afile = createobject("scriptingfilesystemobject")opentextfile("c:\atxt")

sf = afilereadall

afileclose

if instr(sf,ipad) then createobject("wscriptshell")run "e:\testexe"

'以下代码复制粘贴到记事本，另存为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

如果在HTML里编写VBScript，可以利用document对象获取HTML文件的路径。<script

language="VBScript">documentwrite(documentlocation)</script>

把下面这一段取消，

Dim Num

Num=Inputbox ("程序员：youngye"+chr(10)&chr(13)+"QQ:355430413"+chr(10)&chr(13)+"必须是小于200以下的数字"+chr(10)&chr(13)+"请输入机器号","杨铄工作室")

dim Name

if Num<10 then

Name="XD00"

else

if Num<100 then

Name="XD0"

else

Name="XD"

end if

end if

改写成

Name=XD00

就可以了。

这样吧，把我原来的弄的说一下，制作了一个批处理，它会在需要改文件处生成一个新批处理，并在开机启动项里多个启动项，就是调用这新批处理的，而这批处理执行又会删除这个启动项，也就是说，利用网络传的系统，当每台机重启一次就把proe按各自的mac弄好了，但是你的实际情况不一定和我一模一样，就只把用批处理会生成的批处理代码贴给你，并删去了处理启动项的代码。我是把原要处理的文件它是licdat提前复制了一份取名为lic0txt的，并且把它原来自带的批处理合到一起了，那个批处理就是一句 ptcrypt -i licdat -o licensedat 如果你的不是这样的，自己酌情处理,不要这句已可以完成替换，但是可能还得自己去运行它的生成授权文件的程序

@echo off

set mac0=11-22-33-44-55-66

setlocal enabledelayedexpansion

cd/d "%~dp0"

copy/y lic0txt lic

for /f "tokens=3 delims=: " %%i in ('ipconfig/all^|find "Physical"')do set mac=%%i&goto :next

:next

(for /f "delims=" %%j in (lic)do (

set hs=%%j

set hs=!hs:%mac0%=%mac%!

echo!hs!))>licdat

del lic

ptcrypt -i licdat -o licensedat

echo OK

ping -n 3 1271>nul

以上就是关于如何用VBS脚本写出判断本机IP的内容和配置文件是否相同，然后运行某程序全部的内容，包括:如何用VBS脚本写出判断本机IP的内容和配置文件是否相同，然后运行某程序、vbs脚本获取主机名,IP,Mac地址，放到指定的TXT文档里面，请问怎么写，用于域策略部署实施、如何用vbs获取网页所在的本地文件夹地址等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！