VBS远程管理技术学习

1.利用VBS查看远程主机硬盘信息脚本

REM 修改对应的计算机名称或IP即可远程查看,适用于公司server 2k3
REM 客户端必须关闭防火墙，启动WMI服务
Dim name,msg
msg="输入您要查看的远程计算机的名称:           客户端必须关闭防火墙，启动WMI服务"
strComputer =Inputbox(msg,"剩余空间查询")
Wscript.Echo "ComputerName: " & strComputer
Const HARD_DISK = 3
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
For Each objDisk in colDisks
    Wscript.Echo "DeviceID: "& vbTab &  objDisk.DeviceID 
    Wscript.Echo "Free Disk Space: "& vbTab & objDisk.FreeSpace /1024/1024/1024
Next

2.