设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › [已解决]bat批处理文件，生成下面这个vbs代码文件。哪些 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 30611|回复: 2

[系统相关] [已解决]bat批处理文件，生成下面这个vbs代码文件。哪些地方，需要注意加上特殊符号？

[复制链接]
ygqiang
发表于 2014-12-16 23:28:07 | 显示全部楼层 |阅读模式
本帖最后由 ygqiang 于 2014-12-17 00:26 编辑

[已解决]通过bat批处理文件，生成下面这个vbs代码文件。哪些地方，需要注意加上特殊符号？

比如echo i = i + ^1>>c:\diskpart.vbs
  1. Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
  2. Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")

  4. For Each objDisk in colDisks
  5.     i = i + 1
  6.     s = s & "硬盘" & i & ":" & vbTab
  7.     s = s & "大小:" & GetSize(objDisk.Size) & vbTab
  8.     s = s & "型号:" & objDisk.Caption & vbCrLf
  9.     strDiskID = Replace(objDisk.DeviceID, "", "\")

  11.     Set colPartitions = objWMI.ExecQuery _
  12.     ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _
  13.     & " where AssocClass=Win32_DiskDriveToDiskPartition")

  15.     For Each objPartition in colPartitions
  16.         strPartId = objPartition.DeviceID

  18.         Set colLogicalDisks = objWMI.ExecQuery _
  19.         ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """}  where AssocClass=Win32_LogicalDiskToPartition")

  21.         For Each objLogicalDisk in colLogicalDisks
  22.             size = objLogicalDisk.Size
  23.             free = objLogicalDisk.Freespace
  24.             used = FormatNumber((size - free) / size * 100, 2, true) & "%"
  25.             s = s & "分区" & objLogicalDisk.DeviceID & vbTab
  26.             s = s & "大小:" & GetSize(size) & vbTab
  27.             s = s & "剩余:" & GetSize(free) & vbTab
  28.             s = s & "使用率:" & used & vbCrLf
  29.         Next
  30.     Next
  31.     s = s & vbCrLf
  32. Next

  34. Set fso = CreateObject("Scripting.FileSystemObject")
  35. fso.OpenTextFile("c:\diskpart.txt", 2, true).Write s

  37. Function GetSize(intSize)
  38.     If intSize/1024/1024 > 1024 Then
  39.         GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"
  40.     Else
  41.         Getize = FormatNumber(intSize/1024/1024, 2, true) & "MB"
  42.     End If
  43. End Function
复制代码

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

回复

举报

ygqiang
 楼主| 发表于 2014-12-17 00:25:01 | 显示全部楼层
解决了。。。


  3. @echo off

  5. ———————————————————————————————————————
  6. del /q c:\diskinfo.* >nul 2>nul


  9. ———————————————————————————————————————
  10. echo Set objWMI = GetObject("winmgmts:\\.\root\cimv2")>>c:\diskinfo.vbs
  11. echo Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%%'")>>c:\diskinfo.vbs

  13. echo For Each objDisk in colDisks>>c:\diskinfo.vbs
  14. echo     i = i + ^1>>c:\diskinfo.vbs
  15. echo     s = s ^& "硬盘" ^& i ^& ":" ^& vbTab>>c:\diskinfo.vbs
  16. echo     s = s ^& "大小:" ^& GetSize(objDisk.Size) ^& vbTab>>c:\diskinfo.vbs
  17. echo     s = s ^& "型号:" ^& objDisk.Caption ^& vbCrLf>>c:\diskinfo.vbs
  18. echo     strDiskID = Replace(objDisk.DeviceID, "", "\")>>c:\diskinfo.vbs

  20. echo     Set colPartitions = objWMI.ExecQuery _>>c:\diskinfo.vbs
  21. echo     ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" ^& strDiskID ^& """}" _>>c:\diskinfo.vbs
  22. echo     ^& " where AssocClass=Win32_DiskDriveToDiskPartition")>>c:\diskinfo.vbs

  24. echo     For Each objPartition in colPartitions>>c:\diskinfo.vbs
  25. echo         strPartId = objPartition.DeviceID>>c:\diskinfo.vbs

  27. echo         Set colLogicalDisks = objWMI.ExecQuery _>>c:\diskinfo.vbs
  28. echo         ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" ^& strPartId ^& """}  where AssocClass=Win32_LogicalDiskToPartition")>>c:\diskinfo.vbs

  30. echo         For Each objLogicalDisk in colLogicalDisks>>c:\diskinfo.vbs
  31. echo             size = objLogicalDisk.Size>>c:\diskinfo.vbs
  32. echo             free = objLogicalDisk.Freespace>>c:\diskinfo.vbs
  33. echo             used = FormatNumber((size - free) / size * 100, 2, true) ^& "%%">>c:\diskinfo.vbs
  34. echo             s = s ^& "分区" ^& objLogicalDisk.DeviceID ^& vbTab>>c:\diskinfo.vbs
  35. echo             s = s ^& "大小:" ^& GetSize(size) ^& vbTab>>c:\diskinfo.vbs
  36. echo             s = s ^& "剩余:" ^& GetSize(free) ^& vbTab>>c:\diskinfo.vbs
  37. echo             s = s ^& "使用率:" ^& used ^& vbCrLf>>c:\diskinfo.vbs
  38. echo         Next>>c:\diskinfo.vbs
  39. echo     Next>>c:\diskinfo.vbs
  40. echo     s = s ^& vbCrLf>>c:\diskinfo.vbs
  41. echo Next>>c:\diskinfo.vbs

  43. echo Set fso = CreateObject("Scripting.FileSystemObject")>>c:\diskinfo.vbs
  44. echo fso.OpenTextFile("c:\diskinfo.txt", 2, true).Write s>>c:\diskinfo.vbs

  46. echo Function GetSize(intSize)>>c:\diskinfo.vbs
  47. echo     If intSize/1024/1024 ^> 1024 Then>>c:\diskinfo.vbs
  48. echo         GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) ^& "GB">>c:\diskinfo.vbs
  49. echo     Else>>c:\diskinfo.vbs
  50. echo         Getize = FormatNumber(intSize/1024/1024, 2, true) ^& "MB">>c:\diskinfo.vbs
  51. echo     End If>>c:\diskinfo.vbs
  52. echo End Function>>c:\diskinfo.vbs


  55. ping 127.0.0.1 -n 2 >nul 2>nul


  58. ———————————————————————————————————————
  59. start c:\diskinfo.vbs
  60. ping 127.0.0.1 -n 2 >nul 2>nul

  62. cls
  63. type c:\diskinfo.txt

  65. ping 127.0.0.1 -n 15 >nul 2>nul & del /q c:\diskinfo.* & exit/b

复制代码
回复

举报

Batcher
发表于 2014-12-17 09:26:58 | 显示全部楼层
我来提供一个不需要转义的方案
  1. @echo off
  2. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (
  3.     more +%%i "%~f0" > new.vbs
  4. )
  5. goto :eof

  7. :DynamicScript
  8. Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
  9. Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")

  11. For Each objDisk in colDisks
  12.     i = i + 1
  13.     s = s & "硬盘" & i & ":" & vbTab
  14.     s = s & "大小:" & GetSize(objDisk.Size) & vbTab
  15.     s = s & "型号:" & objDisk.Caption & vbCrLf
  16.     strDiskID = Replace(objDisk.DeviceID, "", "\")

  18.     Set colPartitions = objWMI.ExecQuery _
  19.     ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _
  20.     & " where AssocClass=Win32_DiskDriveToDiskPartition")

  22.     For Each objPartition in colPartitions
  23.         strPartId = objPartition.DeviceID

  25.         Set colLogicalDisks = objWMI.ExecQuery _
  26.         ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """}  where AssocClass=Win32_LogicalDiskToPartition")

  28.         For Each objLogicalDisk in colLogicalDisks
  29.             size = objLogicalDisk.Size
  30.             free = objLogicalDisk.Freespace
  31.             used = FormatNumber((size - free) / size * 100, 2, true) & "%"
  32.             s = s & "分区" & objLogicalDisk.DeviceID & vbTab
  33.             s = s & "大小:" & GetSize(size) & vbTab
  34.             s = s & "剩余:" & GetSize(free) & vbTab
  35.             s = s & "使用率:" & used & vbCrLf
  36.         Next
  37.     Next
  38.     s = s & vbCrLf
  39. Next

  41. Set fso = CreateObject("Scripting.FileSystemObject")
  42. fso.OpenTextFile("c:\diskpart.txt", 2, true).Write s

  44. Function GetSize(intSize)
  45.     If intSize/1024/1024 > 1024 Then
  46.         GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) & "GB"
  47.     Else
  48.         Getize = FormatNumber(intSize/1024/1024, 2, true) & "MB"
  49.     End If
  50. End Function
复制代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 02:50 , Processed in 0.010714 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表