Imports System.Management
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'连接远程服务器的地址和用户名密码
Dim serverAddress As String = "remoteServerName"
Dim username As String = "admin"
Dim password As String = "password"
'使用WMI类来连接远程服务器
Dim options As ConnectionOptions = New ConnectionOptions()
options.Username = username
options.Password = password
Dim scope As ManagementScope = New ManagementScope("\\" + serverAddress + "\root\cimv2", options)
scope.Connect()
'执行命令来查看磁盘使用情况
Dim query As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_LogicalDisk")
Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query)
Dim queryCollection As ManagementObjectCollection = searcher.Get()
'输出结果
For Each m As ManagementObject In queryCollection
Console.WriteLine("Drive: " & m("DeviceID").ToString())
Console.WriteLine("Free Space: " & m("FreeSpace").ToString())
Console.WriteLine("Total Space: " & m("Size").ToString())
Console.WriteLine()
Next
End Sub
End Class
请注意，要在远程服务器上执行命令，需要具有足够的权限。如果无法连接到远程服务器或无法执行命令，请检查权限和网络连接。