get ip address with VB.net

Module Module1

Sub Main()
Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
Console.WriteLine(CType(h.AddressList.GetValue(0), Net.IPAddress).ToString)
End Sub

End Module

Bookmark It

Hide Sites

opening and reading a file using the FileStream with VB.net

Imports System.IO

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim objStream As New IO.FileStream("d:\BOOT.txt", IO.FileMode.Open)
Dim objReader As New IO.StreamReader(objStream)
Dim strBuffer As String

strBuffer = objReader.ReadToEnd

objReader.Close()
objStream.Close()

MsgBox(strBuffer)
End Sub
End Class

Bookmark It

Hide Sites

display monitor properties using WMI and C Sharp

Private Sub Form_Load()

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor", , 48)
For Each objItem In colItems
Form1.Print "Availability: " & objItem.Availability
Form1.Print "Caption: " & objItem.Caption
Form1.Print "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
Form1.Print "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
Form1.Print "CreationClassName: " & objItem.CreationClassName
Form1.Print "Description: " & objItem.Description
Form1.Print "MonitorManufacturer: " & objItem.MonitorManufacturer
Form1.Print "MonitorType: " & objItem.MonitorType
Form1.Print "Name: " & objItem.Name
Form1.Print "PixelsPerXLogicalInch: " & objItem.PixelsPerXLogicalInch
Form1.Print "PixelsPerYLogicalInch: " & objItem.PixelsPerYLogicalInch
Form1.Print "PNPDeviceID: " & objItem.PNPDeviceID
Form1.Print "ScreenHeight: " & objItem.ScreenHeight
Form1.Print "ScreenWidth: " & objItem.ScreenWidth
Form1.Print "Status: " & objItem.Status
Form1.Print "SystemCreationClassName: " & objItem.SystemCreationClassName
Form1.Print "SystemName: " & objItem.SystemName
Next
End Sub

Bookmark It

Hide Sites

free disk space, wmi version with C Sharp

using System;
using System.Management;
class DiskSpace
{
public static void Main (string[] argv)
{
ManagementObject disk = new ManagementObject("win32_logicaldisk.deviceid=\"c:\"");
disk.Get();
Console.WriteLine("Logical Disk Size = " + disk["Size"] + " bytes");
Console.WriteLine("Logical Disk FreeSpace = " + disk["FreeSpace"]+ " bytes");
}
}

Bookmark It

Hide Sites