vbs objShell.Run中参数如何传入命令的参数字符串并生效？

[redchina]

dim a(11)
a(0)="..."
a(1)="..."
a(2)="..."
a(3)="..."
a(4)="..."
a(5)="..."
a(6)="..."
a(7)="..."
a(8)="..."
a(9)="..."
a(10)="..."



for i = 1 to 10 '10为重复的次数
WScript.Sleep(1000*60*60) '每60分钟一次
Set objShell = CreateObject("Wscript.Shell")
'objShell.Run("%windir%\system32\cmd"&" /c "& "date/t "&">>result.txt"), 0, TRUE
objShell.Run("%comspec% /c date/t "&">>result"&i&".txt"), 0, TRUE
objShell.Run("%comspec% /c time/t "&">>result"&i&".txt"), 0, TRUE
for j=0 to 10
ipaddress=a(j)//请问如何将该字符串ipaddress传到下边的命令中并生效？
objShell.Run("%comspec% /c tracert ipaddress"&">>trace"&i&".txt"), 0, TRUE
objShell.Run("%comspec% /c ping ipaddress -n 10 "&">>result"&i&".txt"), 0, TRUE
next
next

[redchina]

已经试出答案了。

内循环修改为如下即可：
objShell.Run("%comspec% /c "&chr(34)&"tracert "&ipaddress&">>trace"&i&".txt"&chr(34)), 0, TRUE
objShell.Run("%comspec% /c" &chr(34)&"ping "&ipaddress&" -n 10"&">>result"&i&".txt"&chr(34)), 0, TRUE

结贴。