Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Exec("cmd /c rundll32 printui.dll,PrintUIEntry /ip")
WScript.Sleep 500
WshShell.SendKeys("{ENTER}")
WScript.Sleep 500
WshShell.SendKeys("{UP}")
WshShell.SendKeys("{UP}")
WshShell.SendKeys("{TAB}")
WshShell.SendKeys("192.168.190.252")
WScript.Sleep 500
WshShell.SendKeys("%{N}")
WScript.Sleep 1500
WshShell.SendKeys("{ENTER}")
WScript.Sleep 200
WshShell.SendKeys("%{H}")
curPath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
WScript.Sleep 500
WshShell.SendKeys("^{A}")
WshShell.SendKeys(curPath & "\Ricoh MP 5002 PCL6 win7 64\disk1")
WScript.Sleep 100
WshShell.SendKeys("{ENTER}")
WScript.Sleep 300
WshShell.SendKeys("{TAB}")
WshShell.SendKeys("{TAB}")
WshShell.SendKeys("{DOWN}")
WScript.Sleep 300
WshShell.SendKeys("{TAB}")
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("%{N}")
WScript.Sleep 300
WshShell.SendKeys("%{N}")
WScript.Sleep 300
WshShell.SendKeys("%{N}")
WScript.Sleep 5000
WshShell.SendKeys("{ENTER}")
vbs :自动安安装打印机驱动。
最新推荐文章于 2024-01-02 11:28:36 发布