如果你有该永动机的登陆用户名和密码.那简单了.
创新互联建站是一家专注于成都网站建设、成都网站设计与策划设计,博兴网站建设哪家好?创新互联建站做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:博兴等地区。博兴做网站价格咨询:13518219792
Shell("c:\windows\system32\cmd.exe /c net use \\192.168.0.199 """"" " /user:" """guest""")
里面冒号太多了.你可以通过CHR去转换里面中的一些冒号.
这句话可以不要人为去输入用户名和密码.
另外如果你可以使用
My.Computer.Network.DownloadFile()
函数去进行文件下载.这个比较方便 .
你这段代码可以获得该主机名下的所有ip，每个ip地址都是有类型簇的，可以区别本地地址和网络地址、ip6地址。
你获取索引为0的ip，不一定是正确的网络地址，它有时顺序在中间，在后面。
应该获取所有ip，再通过ip地址簇类型区分
判断连接本身有一个函数，不过有时没联网也是真。
可以用ping，ping百度、ping访问速度快、不经常维护断线的网络主机。
模块
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 '获得工作组和域的选项不能同时用
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 '这里假设安装了两个系统
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
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
'用这种方法在远程获得再发回本机就可以吧
'取计算机型号暂时不会
