Contact Info

Crumbtrail

ActiveXperts.com » Administration » VBScript Collection » Services for UNIX » Basic Information

Services for UNIX - Basic Scripts

List SFU Component Information
List SFU Domain Information
List SFU Dummy Information
List SFU Global Settings
List SFU Mapper Settings
List SFU Mapping Server Settings
List the SFU Product Version
List SFU Remote Settings
List SFU Version Information
List the SFU Windows Directory
Modify SFU Mapper 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 SFU Component Information


Displays information about Services for UNIX components.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from SFU_Component")

For Each objItem in colItems
    Wscript.Echo "Component: " & objItem.Component
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo "Tab Number: " & objItem.TabNum
    Wscript.Echo
Next
	

List SFU Domain Information


Displays information about Services for UNIX domains.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from SFU_Domain")

For Each objItem in colItems
    Wscript.Echo "DC: " & objItem.DC
    Wscript.Echo "Default: " & objItem.Default
    Wscript.Echo "Domain: " & objItem.Domain
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo "Maps: " & objItem.Maps
    Wscript.Echo
Next
	

List SFU Dummy Information


Displays Services for UNIX dummy information.
On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from SFU_Dummy")

For Each objItem in colItems
    Wscript.Echo "Dummy: " & objItem.Dummy
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo
Next
	

List SFU Global Settings


Displays global Services for UNIX settings.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from GlobalSettings_Reg")

For Each objItem in colItems
    Wscript.Echo "Dummy: " & objItem.Dummy
    Wscript.Echo "Key Name: " & objItem.KeyName
    For Each strServer in objItem.MappingServers      
        Wscript.Echo "Mapping Server: " & strServer
    Next
    Wscript.Echo
Next
	

List SFU Mapper Settings


Displays mapper settings for Services for UNIX.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from Mapper_Settings")

For Each objItem in colItems
    Wscript.Echo "Additional Map Definitions: " & _
        objItem.AdditionalMapDefinitions
    Wscript.Echo "Advanced Group Maps: " & _
        objItem.AdvancedGroupMaps
    Wscript.Echo "Advanced User Maps: " & _
        objItem.AdvancedUserMaps
    Wscript.Echo "Anonymous GID: " & objItem.AnonymousGid
    Wscript.Echo "Anonymous UID: " & objItem.AnonymousUid
    Wscript.Echo "Anonymous Unix User: " & _
        objItem.AnonymousUnixUser
    Wscript.Echo "Authentication Type: " & objItem.AuthType
    Wscript.Echo "Backup File Name: " & objItem.BackupFileName
    Wscript.Echo "Default: " & objItem.Default
    Wscript.Echo "Group File Name: " & objItem.GroupFileName
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo "Logging Level: " & objItem.LoggingLevel
    Wscript.Echo "Map File Name: " & objItem.MapFileName
    Wscript.Echo "NIS Domain: " & objItem.NisDomain
    Wscript.Echo "NIS Server: " & objItem.NisServer
    Wscript.Echo "NT Domain: " & objItem.NTDomain
    Wscript.Echo "NT Domain2: " & objItem.NTDomain2
    Wscript.Echo "Password File Name: " & objItem._
        PasswdFileName
    Wscript.Echo "Refresh Interval: " & _
        objItem.RefreshInterval
    Wscript.Echo "Restore File Name: " & _
        objItem.RestoreFileName
    Wscript.Echo "Security: " & objItem.Security
    Wscript.Echo "Server Type: " & objItem.ServerType
    Wscript.Echo "Write Block: " & objItem.WriteBlock
    Wscript.Echo
Next
	

List SFU Mapping Server Settings


Displays mapping server settings for Services for UNIX.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from MapServer_Reg")

For Each objItem in colItems
    Wscript.Echo "Default: " & objItem.Default
    Wscript.Echo "KeyName: " & objItem.KeyName
    Wscript.Echo "ReadConfig: " & objItem.ReadConfig
    Wscript.Echo
Next
	

List the SFU Product Version


Displays the Services for UNIX product version.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery("Select * from ProductVer")

For Each objItem in colItems
    Wscript.Echo "KeyName: " & objItem.KeyName
    Wscript.Echo "Operating System Version: " & objItem.OsVersion
    Wscript.Echo "Software Type: " & objItem.SoftwareType
    Wscript.Echo
Next
	

List SFU Remote Settings


Displays Services for UNIX remote settings.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from SFU_Remote")

For Each objItem in colItems
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo "Machine: " & objItem.Machine
    Wscript.Echo "Path: " & objItem.Path
    Wscript.Echo
Next
	

List SFU Version Information


Displays Services for UNIX version information.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from version_info")

For Each objItem in colItems
    Wscript.Echo "Current release: " & objItem.curRel
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo "PUD: " & objItem.pid
    Wscript.Echo "Version: " & objItem.Version
    Wscript.Echo
Next
	

List the SFU Windows Directory


Displays the Services for UNIX Windows directory.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from SFU_Windir")

For Each objItem in colItems
    Wscript.Echo "Default: " & objItem.default
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo "Windows directory: " & objItem.windir
    Wscript.Echo
Next
	

Modify SFU Mapper Settings


Displays Services for UNIX mapper settings.
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\sfuadmin")

Set colItems = objWMIService.ExecQuery _
    ("Select * from Mapper_Settings Where KeyName = 'CurrentVersion'")

For Each objItem in colItems
    objItem.LoggingLevel = 1
    objItem.Put_
Next