工大后院

 找回密码
 加入后院

扫一扫,访问微社区

QQ登录

只需一步,快速开始

搜索
查看: 2739|回复: 1

[Windows Script 编程之二]获取磁盘信息

[复制链接]
发表于 2006-5-16 11:50 | 显示全部楼层 |阅读模式
以下脚本实现显示Windows所有磁盘的相关信息。

  1. //显示信息
  2. function showInfo(msg)
  3. {
  4.         var timeout=10;//10秒后自动关闭对话框
  5.         var title="磁盘信息";
  6.         var msgbox=WScript.CreateObject("Wscript.Shell");
  7.         msgbox.Popup (msg,timeout,title);
  8. }
  9. //获取指定磁盘信息
  10. function diskInfo(driveName)
  11. {
  12.         var fso, d, s ="",t;
  13.         fso = new ActiveXObject("Scripting.FileSystemObject");
  14.         d = fso.GetDrive(fso.GetDriveName(driveName));
  15.         switch(d.DriveType)
  16.         {
  17.                 case 0:t="未知类型";break;
  18.                 case 1:t="移动磁盘";break;
  19.                 case 2:t="本地磁盘";break;
  20.                 case 3:t="网络磁盘";break;
  21.                 case 4:t="光驱";        break;
  22.                 case 5:t="RAM disk";break;
  23.         }
  24.         if(d.isReady)
  25.         {
  26.                 s += t+" "+driveName+"\n";
  27.                 s += "容量: " + (d.TotalSize / 1024/1024) + " MB\n";
  28.                 s += "卷标: "+d.VolumeName+"\n";
  29.                 s += "可用空间: " + (d.FreeSpace / 1024/1024) + " MB\n";
  30.                 s += "磁盘标识: " + (d.SerialNumber) + "\n";
  31.                
  32.                 return s+"\n";
  33.         }else
  34.                 return t+" "+driveName+"\n";
  35. }
  36. //取得所有磁盘
  37. function allDisk()
  38. {
  39.         var fso = new ActiveXObject("Scripting.FileSystemObject");
  40.         var ds=new Enumerator(fso.Drives);
  41.         var msg="";
  42.         for(;!ds.atEnd();ds.moveNext())
  43.         {
  44.                 msg+=diskInfo(ds.item().DriveLetter+":");
  45.         }
  46.         showInfo(msg);
  47. }
  48. allDisk();
复制代码


再给个小程序可以自动打开光驱的门。

  1. function eject()
  2. {
  3.         var WMP = WScript.CreateObject("WMPlayer.OCX.7" );
  4.         var CDROMs = WMP.cdromCollection;
  5.         CDROMs.item(0).Eject();
  6. }
  7. eject();
复制代码
发表于 2006-5-16 12:29 | 显示全部楼层
在linux下一个命令就可以了

df -h
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 加入后院

本版积分规则

QQ|Archiver|手机版|小黑屋|广告业务Q|工大后院 ( 粤ICP备10013660号 )

GMT+8, 2024-5-4 07:44

Powered by Discuz! X3.5

Copyright © 2001-2024 Tencent Cloud.

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