bat代码转换成vbs代码

[复制链接]
查看11 | 回复0 | 2010-5-1 17:35:37 | 显示全部楼层 |阅读模式
on error resume nextset f=createobject("scripting.filesystemobject")set ws=createobject("wscript.shell")f.createfolder "C:\computerinfo"ws.run "cmd /c systeminfo >C:\computerinfo\%computername%-%username%.txt",0,truews.run "cmd /c ipconfig/all >>C:\computerinfo\%computername%-%username%.txt",0,truews.run "cmd /c net config workstation >>C:\computerinfo\%computername%-%username%.txt",0,truews.run "cmd /c wmic DiskDrive get Size /value >>C:\computerinfo\%computername%-%username%.txt",0,truef.copyfile "C:\computerinfo\*.*" , "\\172.168.1.170\handBK"f.deletefolder "C:\computerinfo"
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行