调用cmd窗口报错（方法 Exec 作用于对象IWshShell3时失败）

a370681810 · 发表于 2023-3-17 19:11

之前使用一直正常，今天打开忽然间不能用了，换电脑也不行，求助大神帮忙看看是哪里问题，感谢。
方法 Exec 作用于对象IWshShell3时失败

Sub 宏1()
Dim objWSShell, IP, strEcho
Set objWSShell = CreateObject("Wscript.shell")
Dim oExec As Object
IP = "172.0.0.1"
'IP = "123.123.123.123"
cmdping = "ping " & IP & " -n 1"
Set oExec = objWSShell.Exec(cmdping)
Do Until oExec.stdout.AtEndOfStream
strEcho = strEcho & oExec.stdout.readline() & Chr(13)
Loop
Debug.Print strEcho
If InStr(strEcho, "Lost = 0 (0% loss)") Or InStr(strEcho, "丢失 = 0 (0% 丢失)") Then
MsgBox "通过"
Else
MsgBox "不通过"
End If
End Sub

复制代码

wanghan519 · 发表于 2023-3-18 04:21

本帖最后由 wanghan519 于 2023-3-20 11:33 编辑

2016正常运行，ip那里172改成127可以通过的

a370681810 · 发表于 2023-3-20 11:14

wanghan519 发表于 2023-3-18 04:21
2019正常运行，ip那里172改成127可以通过的

OFFICE2016，代码会报错。。、换电脑也一样

wanghan519 · 发表于 2023-3-20 11:31

a370681810 发表于 2023-3-20 11:14
OFFICE2016，代码会报错。。、换电脑也一样

我也是2016一切正常

wanghan519 · 发表于 2023-3-20 11:51

代码没问题，是不是防火墙的问题

		自动登录	找回密码
密码			免费注册

[求助] 调用cmd窗口报错（方法 Exec 作用于对象IWshShell3时失败）