关于VBS脚本,请高手指教. - 中国DOS联盟论坛

最近我想学编写VBS脚本,但在网上找不到教程..

请高手指导一下..可以给写基础VBS脚本教程我吗??

以下有个例子但我不知道那里出错了...请高手指教

取得本机IP
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from
Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For Each strAddress in IPConfig.IPAddress
WScript.Echo strAddress
Next
End If
Next

运行后出现..(如图)

第1楼　zhuzhu818	发表于 2007-05-06 10:22
初级用户　发帖 31　积分 94
关于VBS脚本,请高手指教. 最近我想学编写VBS脚本,但在网上找不到教程.. 请高手指导一下..可以给写基础VBS脚本教程我吗?? 以下有个例子但我不知道那里出错了...请高手指教取得本机IP strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For Each strAddress in IPConfig.IPAddress WScript.Echo strAddress Next End If Next 运行后出现..(如图) 附件 {69EC5F8E-EA09-49F9-BEFA-803A5AD38404}.JPG (11.63 KiB)