中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何用VBS做进度框

huanglsh
新手上路

积分 15
发帖 6
注册 2007-6-10
状态离线

『楼主』: 如何用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 ]

2007-8-4 18:46

huanglsh
新手上路

积分 15
发帖 6
注册 2007-6-10
状态离线

『第 2 楼』:

怎么没人帮忙看下呀.......
我自己顶下!

2007-8-6 17:28

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: