首页 > Other > 查看远程计算机磁盘剩余空间脚本

查看远程计算机磁盘剩余空间脚本

2006年10月25日
阅读评论 发表评论

搞了N久，终于给搞出来了，离预期的效果还是有一定的距离，暂时凑合着用吧！Rickfang不要我！

正常运行此脚本需要有域管理员权限！

‘ 技术中国 http://www.mstc.com.cn/ 
‘ Made by 付林. 
‘ 要正常运行此脚本需要有域管理员权限
‘ ************************************************ 
ON ERROR RESUME NEXT
Const HARD_DISK = 3
Const GB = 1073741824
Dim FreeSpace
Dim Remote_Computer
  Remote_Computer = InputBox("使用说明："&vbCr&vbCr&"   本脚本程序将查询远程计算机的磁盘剩余空间，请将IP地址填写到下面空格中。"&vbCr&"By:碎片   Www.Mstc.Com.Cn"&vbCr&vbCr&"请输入合法IP地址：","远程磁盘空间查看脚本","")
  if Remote_Computer="" then
  Wscript.quit
  end if
strComputer = Remote_Computer
Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set Disks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
For Each objDisk in Disks
    GetFreeSpace
Next
FreeSpace = FreeSpace
/GB
FreeSpace = FormatNumber(FreeSpace,0,False,False,True)
Wscript.Echo "剩余磁盘空间: " & FreeSpace & " GB"
Sub GetFreeSpace
    FreeSpace = CDbl(FreeSpace) + CDbl(objDisk.FreeSpace)
End Sub
  if err <> 0 then
    Wscript.echo "脚本运行失败，请确认您的输入无误！"
    Err.Clear
  end if





声明  :  转载请注明出处: 碎片IT资讯





作者: 碎片 分类: Other 标签:
  1. 下里巴人
    2006年11月7日15:56 | #1
    回复 | 引用

    不会说你什么的！
    不过，才知道你搬家了，看来链接也要换下啦。
    有个提议：可以做成，就像上次提供你那个一样的东东，这样子，用脚本来调用一个文本，里面有不同的对应的IP，用户名和密码，也许会更爽，应用工作组方面较方便些的。

  1. 本文目前尚无任何 trackbacks 和 pingbacks.