|
Syntax
|
Net.GetCaps(type [,localname$])
|
|
Description
|
Returns an Integer specifying information about the network and its capabilities.
|
|
Comments
|
The Net.GetCaps method takes the following parameters:
|
|
|
Parameter
|
Description
|
|
|
type
|
Integer specifying what type of information to retrieve. This parameter is different from platform to platform.
|
|
|
localname$
|
String specifying the name of the local device to which is attached to the network device to be queried. If this parameter is missing, then information about the first network device is returned.
|
|
|
A runtime error will result if no network is present.
|
|
|
The type parameter can be any of the following values:
|
|
|
Value
|
Description
|
|
|
1
|
Always returns 0.
|
|
|
2
|
Network type:
|
|
|
|
0
|
No network is installed.
|
|
|
|
1
|
Microsoft Network
|
|
|
|
2
|
Microsoft LAN Manager.
|
|
|
|
3
|
Novell NetWare.
|
|
|
|
4
|
Banyan Vines
|
|
|
|
5
|
10Net
|
|
|
|
6
|
Locus
|
|
|
|
7
|
SunSoft PC NFS.
|
|
|
|
8
|
LanStep
|
|
|
|
9
|
9 Titles.
|
|
|
|
10
|
Articom Lantastic
|
|
|
|
11
|
IBM AS/400
|
|
|
|
12
|
FTP Software FTP NFS.
|
|
|
|
13
|
DEC Pathworks
|
|
|
Version of the network with the major version in the high byte and the minor version in the low byte:
Major = Net.GetCaps(2) \ 256
Minor = Net.GetCaps(2) And &H00FF
|
|
Example
|
Sub Main()
'This example checks the type of network.
If Net.GetCaps(2) = 768 Then _
MsgBox "This is a Novell network."
'This checks whether the net supports retrieval of the
'user name.
If Net.GetCaps(4) And 1 Then _
MsgBox "User name is: " & Net.User$
'This checks whether this net supports the Browse dialog
'boxes.
If Net.GetCaps(6) And &H0010 Then MsgBox Net.Browse$(1)
End Sub
|