vb.net获取计算机域 vbnet获取当前目录下文件名

用vb获取计算机信息

模块

Public Function CheckComm()

On Error Resume Next

Set wshshell = CreateObject("wscript.shell")

wshshell.run ("%comspec% /c net start winmgmt"), 0

'用一个文本来记录硬件信息

'Set WshNetwork = CreateObject("WScript.Network")

'ComputerName = WshNetwork.ComputerName

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")

'主板

Set board = objWMIService.ExecQuery("select * from win32_baseboard")

For Each item In board

board2 = "主板:" item.Product

Next

'CPU

Set cpu = objWMIService.ExecQuery("select * from win32_processor")

For Each item In cpu

cpu2 = "cpu:" item.Name

Next

'内存

Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory", , 48)

Dim memory1

For Each objItem In colItems

a = objItem.capacity / 1048576

temp = temp + Val(objItem.capacity)

If InStr(memory1, "1条" a "M") 0 Then

memory1 = Replace(memory1, "1条" a "M", "2条" a "M")

ElseIf InStr(memory1, "2条" a "M") 0 Then

memory1 = Replace(memory1, "2条" a "M", "3条" a "M")

ElseIf InStr(memory1, "3条" a "M") 0 Then

memory1 = Replace(memory1, "3条" a "M", "4条" a "M")

Else

memory1 = memory1 "1条" a "M"

End If

n = n + 1

Next

memory = temp / 1048576

If n = 1 Then

memory2 = "内存条:" memory1

Else

memory2 = "内存条:" memory1 " 总计" memory "M"

End If

'硬盘

Set disk = objWMIService.ExecQuery("select * from win32_diskdrive")

For Each item In disk

disk2 = "硬盘:" item.Model

Next

'显卡

Set video = objWMIService.ExecQuery("select * from win32_videocontroller", , 48)

For Each item In video

video2 = "显卡:" item.Description

Next

'网卡

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter", , 48)

For Each objItem In colItems

If (Left(objItem.NetConnectionID, 4) = "本地连接") Then

lanname = "网卡:" objItem.Name

End If

Next

lan2 = lanname

Dim thecomputer(6)

thecomputer(0) = board2

thecomputer(1) = cpu2

thecomputer(2) = memory2

thecomputer(3) = disk2

thecomputer(4) = video2

thecomputer(5) = lan2

CheckComm = thecomputer

End Function

代码

Private Sub Form_Load()

List4.Clear

List4.AddItem "Computer Info" ' vbCrLf

List4.AddItem "***********************" ' vbCrLf

Dim I As Integer, c

c = CheckComm

For I = 0 To 5

List4.AddItem c(I)

Next

Dim s, System, item, d() As String

Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")

For Each item In System 'List1.AddItem item.cputype

's = "Computer Info" vbCrLf

's = s "***********************" vbCrLf

s = s "计算机名称: " item.Name vbCrLf

s = s "状态: " item.Status vbCrLf

s = s "类型: " item.SystemType vbCrLf

s = s "生产厂家: " item.Manufacturer vbCrLf

s = s "型号: " item.Model vbCrLf

s = s "内存: ~" item.totalPhysicalMemory \ 1024000 "mb" vbCrLf

s = s "域: " item.domain vbCrLf

's = s "工作组" item.Workgroup vbCrLf '获得工作组和域vb.net获取计算机域的选项不能同时用

s = s "当前用户: " item.UserName vbCrLf

s = s "启动状态" item.BootupState vbCrLf

s = s "该计算机属于" item.PrimaryOwnerName vbCrLf

s = s "系统类型" item.CreationClassName vbCrLf

s = s "计算机类类型" item.Description vbCrLf

On Error GoTo 1

For I = 0 To 1 '这里假设安装vb.net获取计算机域了两个系统

s = s Chr(5) "启动选项" I " :" item.SystemStartupOptions(I) _

vbCrLf

Next I

1:

Next

d = Split(s, vbCrLf)

For I = 0 To UBound(d)

List4.AddItem d(I)

Next

End Sub

要求一个list4

相关问答

Q1: vb.net访问局域网指定计算机上的文件

如果你有该永动机的登陆用户名和密码.那简单了.

Shell("c:\windows\system32\cmd.exe /c net use \\192.168.0.199 """"" " /user:" """guest""")

里面冒号太多了.你可以通过CHR去转换里面中的一些冒号.

这句话可以不要人为去输入用户名和密码.

另外如果你可以使用

My.Computer.Network.DownloadFile()

函数去进行文件下载.这个比较方便 .

Q2: vb.net 获取局域网计算机的当前用户名和计算机型号等信息

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub GetName()

Dim sJM As String

Dim sMC As String

Dim sIP As String

Dim s As String

s = String(128, Chr(0))

GetComputerName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sJM = s'计算机名称

s = String(128, Chr(0))

GetUserName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sMC = s‘当前用户名称

End Sub

'用这种方法在远程获得再发回本机就可以吧

'取计算机型号暂时不会

Q3: 求大神指点vb.net 怎么判断 网络是否连接 和取本机局域网IP和互联网IP

你这段代码可以获得该主机名下的所有ip，每个ip地址都是有类型簇的，可以区别本地地址和网络地址、ip6地址。

你获取索引为0的ip，不一定是正确的网络地址，它有时顺序在中间，在后面。

应该获取所有ip，再通过ip地址簇类型区分

判断连接本身有一个函数，不过有时没联网也是真。

可以用ping，ping百度、ping访问速度快、不经常维护断线的网络主机。

关于vb.net获取计算机域和vbnet获取当前目录下文件名的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。