function Runcmd(cmd)
Dim strText
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.exec("%COMSPEC% /C "&cmd)
Do While Not oExec.StdOut.AtEndOfStream
strText = oExec.StdOut.ReadAll()
Loop
Runcmd = strtext
end function
用法很简单,例如
a=runcmd("ipconfig")
那么ipconfig的命令结果会保存在变量a中。
亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。