vbs程序怎么样才能调出打开程序的ws.run?

dim wshSet wsh = CreateObject(WScript.Shell)wsh.run xxxxx

dim ws
set ws = createobject(wscript.shell)
ws.run wscript.exe *.vbs
这个是运行

U盘根目录新建autorun.inf
内容是：
[auto]
open=1.bai
U盘根目录新建1.bai
内容是：
echo off
echo.
echo.
echo 你确认打开**人的隐私吗”或“禁止删除x:盘的任何内容(这个就是你自定义的了)
ping 192.168.0.1 -n 03
start %cd%
exit

没测试理论上行的通
不行Q我 476670533

在你想设置的那个盘根目录新建autorun.inf
内容是：
[auto]
open=1.bat
并在盘根目录新建1.bat，
bat的内容是：

@echo off
color 17
mode con cols=40 lines=20
title 自动关机程序
:loop
cls
echo ----------------------------------------
echo 你确认打开**人的隐私吗”或“禁止删除x:盘的任何内容(这个就是你自定义的了)
echo ----------------------------------------
echo.
echo 1，打开磁盘
echo 2，退出
echo.
set/p n= 请选择：
if %n%==1 goto Popen
if %n%==2 goto end
goto loop
:end
exit
:reinp
cls
echo 你输入的不正确！请重新输入!
ping /n 3 127.0.1nul
:Popen
start %cd%
goto end

vbs的暂时不会，写个bat的。
@echo off
:begin
For /f %%k in ('rasdial^|find 已连接') do start c:\hello.txt
::已连接就打开c:\hello.txt（一个程序）
For /f %%k in ('rasdial^|find 没有连接') do goto begin
pause

Dim Wsh
Set Wsh = WScript.CreateObject(WScript.Shell)
Wsh.Run ping 127.0.0.1 -n 3,0,True
Wsh.Run rasdial 宽带连接 帐号 密码,0,True
Set Wsh=NoThing
WScript.quit

=======打开一个vbs程序========
dim ans , strvbs
strvbs = d:\test.vbs '这里换成你的vbs路径
ans = msgbox(是否打开程序？ , vbyesno + vbinformation,提示)
if ans = vbyes then
set oshell = createobject(wscript.shell)
oshell.run strvbs,false,false
end if

=======重启============
dim ans
ans = msgbox(是否重启？ , vbyesno + vbinformation,提示)
if ans = vbyes then
set oshell = createobject(wscript.shell)
oshell.run shutdown /s /t 0,false,false
end if

什么vbs也打开不了对方QQ窗口