Contact Info

Crumbtrail

ActiveXperts.com » Administration » VBScript Collection » Services for UNIX » NFS

Services for UNIX - NFS Scripting

List NFS Client Performance Information
List NFS Client Authentication Settings
List NFS Client File Settings
List NFS Client Global Settings
List NFS Client Mapping Server Settings
List NFS Client Prefer TCP Settings
List NFS Client Security Settings
List NFS Server Settings
List NFS Server Auditing Settings
List NFS Server Authentication Settings
List NFS Server Character Translation Settings
List NFS Server Global Settings
List NFS Server File Settings
List NFS Server Mapping Server Settings
List NFS Server Security Settings
List the NFS Server Version
Modify NFS Client Performance Settings
Modify NFS Server Auditing Settings
Modify NFS Server Settings


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.



List NFS Client Performance Information


Displays Services for UNIX NFS client performance information.
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
	

List NFS Client Authentication Settings


Displays Services for UNIX NFS client authentication settings.
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
	

List NFS Client File Settings


Displays Services for UNIX NFS client file settings.
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
	

List NFS Client Global Settings


Displays Services for UNIX NFS client global settings.
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
	

List NFS Client Mapping Server Settings


Displays Services for UNIX NFS client mapping server settings.
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
	

List NFS Client Prefer TCP Settings


Displays Services for UNIX NFS client TCP preference information.
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
	

List NFS Client Security Settings


Displays Services for UNIX NFS client security settings.
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
	

List NFS Server Settings


Displays Services for UNIX NFS server settings.
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
	

List NFS Server Auditing Settings


Displays Services for UNIX NFS server auditing settings.
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
	

List NFS Server Authentication Settings


Displays Services for UNIX NFS server authentication settings
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
	

List NFS Server Character Translation Settings


Displays Services for UNIX NFS server character translation settings.
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
	

List NFS Server Global Settings


Displays Services for UNIX NFS server global settings.
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
	

List NFS Server File Settings


Displays Services for UNIX NFS server file settings.
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
	

List NFS Server Mapping Server Settings


Displays Services for UNIX NFS server mapping server settings.
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
	

List NFS Server Security Settings


Displays Services for UNIX NFS server security settings.
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
	

List the NFS Server Version


Displays Services for UNIX NFS server version.
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
	

Modify NFS Client Performance Settings


Displays Services for UNIX NFS client performance settings.
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
	

Modify NFS Server Auditing Settings


Demonstration script that modifies a Services for UNIX NFS server auditing setting.
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
	

Modify NFS Server Settings


Demonstration script that modifies a Services for UNIX NFS server setting.
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