You are here:
ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > Services for UNIX > NFS
Quicklinks
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSClient_Perf")
For Each objItem in colItems
Wscript.Echo "AutoTuning: " & objItem.AutoTuning
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "Defaults: " & objItem.Defaults
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Mount Type: " & objItem.MountType
Wscript.Echo "Prefer TCP: " & objItem.PreferTCP
Wscript.Echo "Read Buffer: " & objItem.ReadBuffer
Wscript.Echo "Retries: " & objItem.Retries
Wscript.Echo "Timeout: " & objItem.Timeout
Wscript.Echo "Write Buffer: " & objItem.WriteBuffer
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSClient_Authenticate")
For Each objItem in colItems
Wscript.Echo "Authentication Type: " & objItem.AuthType
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "NIS Domain: " & objItem.NISDomain
Wscript.Echo "NIS Server: " & objItem.NISServer
Wscript.Echo "NT Domain: " & objItem.NTDomain
Wscript.Echo "PC NFSD Server: " & objItem.PCNFSDServer
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSClient_Files")
For Each objItem in colItems
Wscript.Echo "Access: " & objItem.Access
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSClient_Reg")
For Each objItem in colItems
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Read Configuration: " & objItem.ReadConfig
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSClient_MapSvr")
For Each objItem in colItems
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Map Server: " & objItem.MapSvr
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSClient_PreferTCP")
For Each objItem in colItems
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Prefer TCP: " & objItem.PreferTCP
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSClient_Security")
For Each objItem in colItems
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Security: " & objItem.Security
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_SvSet")
For Each objItem in colItems
Wscript.Echo "Case Sensitive: " & objItem.CaseSensitive
Wscript.Echo "CDFS Case: " & objItem.CdfsCase
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "Directory Cache Pages: " & _
objItem.DirectoryCachePages
Wscript.Echo "Dot Files Hidden: " & objItem.DotFilesHidden
Wscript.Echo "FAT Case: " & objItem.FatCase
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Logon TimeOut: " & objItem.LogonTimeOut
Wscript.Echo "Maximum Handle Cache Size: " & _
objItem.MaxHandleCacheSize
Wscript.Echo "NTFS Case: " & objItem.NtfsCase
Wscript.Echo "RdWr Handle LifeTime: " & _
objItem.RdWrHandleLifeTime
Wscript.Echo "Register TCP: " & objItem.RegisterTcp
Wscript.Echo "Register Version 3: " & _
objItem.RegisterVersion3
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_Auditing")
For Each objItem in colItems
Wscript.Echo "Audit: " & objItem.Audit
Wscript.Echo "Audit Bits: " & objItem.AuditBits
Wscript.Echo "Check Space: " & objItem.CheckSpace
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "File Maximum Size: " & objItem.FileMaxSize
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Log File: " & objItem.LogFile
Wscript.Echo "Minimum Space: " & objItem.MinSpace
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_Authenticate")
For Each objItem in colItems
Wscript.Echo "Authentication Type: " & objItem.AuthType
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "NIS Domain: " & objItem.NISDomain
Wscript.Echo "NIS Server: " & objItem.NISServer
Wscript.Echo "NT Domain: " & objItem.NTDomain
Wscript.Echo "PC NFSD Server: " & objItem.PCNFSDServer
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_SvSet_CharTran")
For Each objItem in colItems
Wscript.Echo "Character Translation: " & objItem.CharacterTranslation
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_Reg")
For Each objItem in colItems
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Read Configuration: " & objItem.ReadConfig
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_Files")
For Each objItem in colItems
Wscript.Echo "Case: " & objItem.Case
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "Grace Period: " & objItem.GracePeriod
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Timeout: " & objItem.Timeout
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_MapSvr")
For Each objItem in colItems
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Map Server: " & objItem.MapSvr
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_Security")
For Each objItem in colItems
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Security: " & objItem.Security
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_CurrentVersion")
For Each objItem in colItems
Wscript.Echo "Default: " & objItem.Default
Wscript.Echo "Key Name: " & objItem.KeyName
Wscript.Echo "Path Name: " & objItem.PathName
Wscript.Echo
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSClient_Perf Where KeyName = 'Defaults'")
For Each objItem in colItems
objItem.Retries = 2
objItem.Put_
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_Auditing Where KeyName = 'Parameters'")
For Each objItem in colItems
objItem.Audit = 1
objItem.Put_
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")
Set colItems = objWMIService.ExecQuery _
("Select * from NFSServer_SvSet Where KeyName = 'Parameters'")
For Each objItem in colItems
objItem.CaseSensitive = 0
objItem.Put_
Next