[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2014-12-16 23:28 | 只看该作者

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

本帖最后由 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%'")

  3. 

  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, "\", "\\")

  10. 

  11.     Set colPartitions = objWMI.ExecQuery _

  12.     ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _

  13.     & " where AssocClass=Win32_DiskDriveToDiskPartition")

  14. 

  15.     For Each objPartition in colPartitions

  16.         strPartId = objPartition.DeviceID

  17. 

  18.         Set colLogicalDisks = objWMI.ExecQuery _

  19.         ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """}  where AssocClass=Win32_LogicalDiskToPartition")

  20. 

  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

  33. 

  34. Set fso = CreateObject("Scripting.FileSystemObject")

  35. fso.OpenTextFile("c:\diskpart.txt", 2, true).Write s

  36. 

  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
复制代码
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
2楼
发表于 2014-12-17 00:25 | 只看该作者
解决了。。。
  1. @echo off

  2. 

  3. ———————————————————————————————————————

  4. del /q c:\diskinfo.* >nul 2>nul

  5. 

  6. 

  7. ———————————————————————————————————————

  8. echo Set objWMI = GetObject("winmgmts:\\.\root\cimv2")>>c:\diskinfo.vbs

  9. echo Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%%'")>>c:\diskinfo.vbs

  10. 

  11. echo For Each objDisk in colDisks>>c:\diskinfo.vbs

  12. echo     i = i + ^1>>c:\diskinfo.vbs

  13. echo     s = s ^& "硬盘" ^& i ^& ":" ^& vbTab>>c:\diskinfo.vbs

  14. echo     s = s ^& "大小:" ^& GetSize(objDisk.Size) ^& vbTab>>c:\diskinfo.vbs

  15. echo     s = s ^& "型号:" ^& objDisk.Caption ^& vbCrLf>>c:\diskinfo.vbs

  16. echo     strDiskID = Replace(objDisk.DeviceID, "\", "\\")>>c:\diskinfo.vbs

  17. 

  18. echo     Set colPartitions = objWMI.ExecQuery _>>c:\diskinfo.vbs

  19. echo     ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" ^& strDiskID ^& """}" _>>c:\diskinfo.vbs

  20. echo     ^& " where AssocClass=Win32_DiskDriveToDiskPartition")>>c:\diskinfo.vbs

  21. 

  22. echo     For Each objPartition in colPartitions>>c:\diskinfo.vbs

  23. echo         strPartId = objPartition.DeviceID>>c:\diskinfo.vbs

  24. 

  25. echo         Set colLogicalDisks = objWMI.ExecQuery _>>c:\diskinfo.vbs

  26. echo         ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" ^& strPartId ^& """}  where AssocClass=Win32_LogicalDiskToPartition")>>c:\diskinfo.vbs

  27. 

  28. echo         For Each objLogicalDisk in colLogicalDisks>>c:\diskinfo.vbs

  29. echo             size = objLogicalDisk.Size>>c:\diskinfo.vbs

  30. echo             free = objLogicalDisk.Freespace>>c:\diskinfo.vbs

  31. echo             used = FormatNumber((size - free) / size * 100, 2, true) ^& "%%">>c:\diskinfo.vbs

  32. echo             s = s ^& "分区" ^& objLogicalDisk.DeviceID ^& vbTab>>c:\diskinfo.vbs

  33. echo             s = s ^& "大小:" ^& GetSize(size) ^& vbTab>>c:\diskinfo.vbs

  34. echo             s = s ^& "剩余:" ^& GetSize(free) ^& vbTab>>c:\diskinfo.vbs

  35. echo             s = s ^& "使用率:" ^& used ^& vbCrLf>>c:\diskinfo.vbs

  36. echo         Next>>c:\diskinfo.vbs

  37. echo     Next>>c:\diskinfo.vbs

  38. echo     s = s ^& vbCrLf>>c:\diskinfo.vbs

  39. echo Next>>c:\diskinfo.vbs

  40. 

  41. echo Set fso = CreateObject("Scripting.FileSystemObject")>>c:\diskinfo.vbs

  42. echo fso.OpenTextFile("c:\diskinfo.txt", 2, true).Write s>>c:\diskinfo.vbs

  43. 

  44. echo Function GetSize(intSize)>>c:\diskinfo.vbs

  45. echo     If intSize/1024/1024 ^> 1024 Then>>c:\diskinfo.vbs

  46. echo         GetSize = FormatNumber(intSize/1024/1024/1024, 2, true) ^& "GB">>c:\diskinfo.vbs

  47. echo     Else>>c:\diskinfo.vbs

  48. echo         Getize = FormatNumber(intSize/1024/1024, 2, true) ^& "MB">>c:\diskinfo.vbs

  49. echo     End If>>c:\diskinfo.vbs

  50. echo End Function>>c:\diskinfo.vbs

  51. 

  52. 

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

  54. 

  55. 

  56. ———————————————————————————————————————

  57. start c:\diskinfo.vbs

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

  59. 

  60. cls

  61. type c:\diskinfo.txt

  62. 

  63. ping 127.0.0.1 -n 15 >nul 2>nul & del /q c:\diskinfo.* & exit/b
复制代码

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14786 
积分
45962 
技术
847  
捐助
745  
注册时间
2008-6-9 
3楼
发表于 2014-12-17 09:26 | 只看该作者
我来提供一个不需要转义的方案
  1. @echo off

  2. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (

  3.     more +%%i "%~f0" > new.vbs

  4. )

  5. goto :eof

  6. 

  7. :DynamicScript

  8. Set objWMI = GetObject("winmgmts:\\.\root\cimv2")

  9. Set colDisks = objWMI.ExecQuery("select * from Win32_DiskDrive where MediaType like 'fixed%'")

  10. 

  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, "\", "\\")

  17. 

  18.     Set colPartitions = objWMI.ExecQuery _

  19.     ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strDiskID & """}" _

  20.     & " where AssocClass=Win32_DiskDriveToDiskPartition")

  21. 

  22.     For Each objPartition in colPartitions

  23.         strPartId = objPartition.DeviceID

  24. 

  25.         Set colLogicalDisks = objWMI.ExecQuery _

  26.         ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & strPartId & """}  where AssocClass=Win32_LogicalDiskToPartition")

  27. 

  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

  40. 

  41. Set fso = CreateObject("Scripting.FileSystemObject")

  42. fso.OpenTextFile("c:\diskpart.txt", 2, true).Write s

  43. 

  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
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表