如何用VBS做进度框 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

On Error Resume Next
serverip="192.168.1.245"
Set oshell= CreateObject("WScript.Shell")
oshell.run "iscsicli AddTargetPortal "&serverip&" 3260",0,1
oshell.run "iscsicli LoginTarget iqn.2005-09.com.ackasia.iscsi:0 T * * * * * * * * * * * * * * * 0",0,1
wscript.sleep 13000
oshell.run ("%comspec% /c echo select disk 1 >c:\temp.txt"),0,True
oshell.run ("%comspec% /c echo select partition 1 >>c:\temp.txt"),0,True
oshell.run ("%comspec% /c echo remove >>c:\temp.txt"),0,True
oshell.run ("%comspec% /c echo assign letter=Z >>c:\temp.txt"),0,True
oshell.run ("%comspec% /c echo exit >>c:\temp.txt"),0,True
wscript.sleep 1000
oshell.run ("%comspec% /c diskpart.exe /s c:\temp.txt"),0,True
Wscript.quit
这是ISCSI连接服务器加指定盘符的代码,可用!
我想加点美观方面的.
执行时有这个框出来

完成后消失打开一个执行文件!

谁帮看下可不可行!

[ Last edited by bjsh on 2007-8-7 at 08:57 AM ]

第1楼　huanglsh	发表于 2007-08-04 18:46
新手上路　发帖 6　积分 15
如何用VBS做进度框 On Error Resume Next serverip="192.168.1.245" Set oshell= CreateObject("WScript.Shell") oshell.run "iscsicli AddTargetPortal "&serverip&" 3260",0,1 oshell.run "iscsicli LoginTarget iqn.2005-09.com.ackasia.iscsi:0 T * * * * * * * * * * * * * * * 0",0,1 wscript.sleep 13000 oshell.run ("%comspec% /c echo select disk 1 >c:\temp.txt"),0,True oshell.run ("%comspec% /c echo select partition 1 >>c:\temp.txt"),0,True oshell.run ("%comspec% /c echo remove >>c:\temp.txt"),0,True oshell.run ("%comspec% /c echo assign letter=Z >>c:\temp.txt"),0,True oshell.run ("%comspec% /c echo exit >>c:\temp.txt"),0,True wscript.sleep 1000 oshell.run ("%comspec% /c diskpart.exe /s c:\temp.txt"),0,True Wscript.quit 这是ISCSI连接服务器加指定盘符的代码,可用! 我想加点美观方面的. 执行时有这个框出来完成后消失打开一个执行文件! 谁帮看下可不可行! [ Last edited by bjsh on 2007-8-7 at 08:57 AM ]

第2楼　huanglsh	发表于 2007-08-06 17:28
新手上路　发帖 6　积分 15
怎么没人帮忙看下呀....... 我自己顶下!