Programming Tool Box/SIMS_2.iso/vb_code1/nivb_src/fse.frm

Text File | 1993-06-03 | 12KB | 341 lines

VERSION 2.00
Begin Form FSEForm
   Caption         =   "File Server Environment Services Test"
   Height          =   4845
   Left            =   990
   LinkTopic       =   "Form1"
   ScaleHeight     =   4440
   ScaleWidth      =   5895
   Top             =   1185
   Width           =   6015
   Begin Frame Frame2
      Caption         =   "Server Information Structure"
      Height          =   1695
      Left            =   120
      TabIndex        =   14
      Top             =   2160
      Width           =   5655
      Begin Label Label16
         Alignment       =   1  'Right Justify
         Caption         =   "Internet bridge support:"
         Height          =   255
         Left            =   3000
         TabIndex        =   34
         Top             =   1320
         Width           =   2055
      End
      Begin Label Label15
         Alignment       =   1  'Right Justify
         Caption         =   "Security level:"
         Height          =   255
         Left            =   3720
         TabIndex        =   33
         Top             =   1080
         Width           =   1335
      End
      Begin Label Label12
         Alignment       =   1  'Right Justify
         Caption         =   "Virtual console version:"
         Height          =   255
         Left            =   3000
         TabIndex        =   32
         Top             =   840
         Width           =   2055
      End
      Begin Label Label11
         Alignment       =   1  'Right Justify
         Caption         =   "Print server version:"
         Height          =   255
         Left            =   3240
         TabIndex        =   31
         Top             =   600
         Width           =   1815
      End
      Begin Label Label10
         Alignment       =   1  'Right Justify
         Caption         =   "Queuing version:"
         Height          =   255
         Left            =   3600
         TabIndex        =   30
         Top             =   360
         Width           =   1455
      End
      Begin Label Label9
         Alignment       =   1  'Right Justify
         Caption         =   "VAP version:"
         Height          =   255
         Left            =   720
         TabIndex        =   29
         Top             =   1320
         Width           =   1215
      End
      Begin Label Label3
         Alignment       =   1  'Right Justify
         Caption         =   "Accounting version:"
         Height          =   255
         Left            =   120
         TabIndex        =   28
         Top             =   1080
         Width           =   1815
      End
      Begin Label InternetBridgeSupportLabel
         Height          =   255
         Left            =   5280
         TabIndex        =   27
         Top             =   1320
         Width           =   255
      End
      Begin Label Label14
         Alignment       =   1  'Right Justify
         Caption         =   "TTS level:"
         Height          =   255
         Left            =   960
         TabIndex        =   26
         Top             =   840
         Width           =   975
      End
      Begin Label Label13
         Alignment       =   1  'Right Justify
         Caption         =   "SFT level:"
         Height          =   255
         Left            =   960
         TabIndex        =   25
         Top             =   600
         Width           =   975
      End
      Begin Label Label8
         Alignment       =   1  'Right Justify
         Caption         =   "Version:"
         Height          =   255
         Left            =   1200
         TabIndex        =   24
         Top             =   360
         Width           =   735
      End
      Begin Label SecurityLevelLabel
         Height          =   255
         Left            =   5280
         TabIndex        =   23
         Top             =   1080
         Width           =   255
      End
      Begin Label VirtualConsoleVersionLabel
         Height          =   255
         Left            =   5280
         TabIndex        =   22
         Top             =   840
         Width           =   255
      End
      Begin Label PrintServerVersionLabel
         Height          =   255
         Left            =   5280
         TabIndex        =   21
         Top             =   600
         Width           =   255
      End
      Begin Label QueueVersionLabel
         Height          =   255
         Left            =   5280
         TabIndex        =   20
         Top             =   360
         Width           =   255
      End
      Begin Label VAPVersionLabel
         Height          =   255
         Left            =   2040
         TabIndex        =   19
         Top             =   1320
         Width           =   255
      End
      Begin Label AccountingVersionLabel
         Height          =   255
         Left            =   2040
         TabIndex        =   18
         Top             =   1080
         Width           =   255
      End
      Begin Label TTSLevelLabel
         Height          =   255
         Left            =   2040
         TabIndex        =   17
         Top             =   840
         Width           =   855
      End
      Begin Label SFTLevelLabel
         Height          =   255
         Left            =   2040
         TabIndex        =   16
         Top             =   600
         Width           =   855
      End
      Begin Label VersionLabel
         Height          =   255
         Left            =   2040
         TabIndex        =   15
         Top             =   360
         Width           =   855
      End
   End
   Begin Frame Frame1
      Caption         =   "Server Description Strings"
      Height          =   1455
      Left            =   120
      TabIndex        =   5
      Top             =   600
      Width           =   5655
      Begin Label Label4
         Alignment       =   1  'Right Justify
         Caption         =   "Company:"
         Height          =   252
         Left            =   960
         TabIndex        =   13
         Top             =   240
         Width           =   972
      End
      Begin Label Label5
         Alignment       =   1  'Right Justify
         Caption         =   "Revision:"
         Height          =   252
         Left            =   960
         TabIndex        =   12
         Top             =   480
         Width           =   972
      End
      Begin Label Label6
         Alignment       =   1  'Right Justify
         Caption         =   "Revision date:"
         Height          =   252
         Left            =   600
         TabIndex        =   11
         Top             =   720
         Width           =   1332
      End
      Begin Label Label7
         Alignment       =   1  'Right Justify
         Caption         =   "Copyright notice:"
         Height          =   252
         Left            =   480
         TabIndex        =   10
         Top             =   960
         Width           =   1452
      End
      Begin Label CompanyLabel
         Height          =   252
         Left            =   2040
         TabIndex        =   9
         Top             =   240
         Width           =   3372
      End
      Begin Label RevisionLabel
         Height          =   252
         Left            =   2040
         TabIndex        =   8
         Top             =   480
         Width           =   3372
      End
      Begin Label RevisionDateLabel
         Height          =   252
         Left            =   2040
         TabIndex        =   7
         Top             =   720
         Width           =   3372
      End
      Begin Label CopyrightLabel
         Height          =   444
         Left            =   2040
         TabIndex        =   6
         Top             =   960
         Width           =   3372
      End
   End
   Begin CommandButton OKButton
      Caption         =   "&OK"
      Height          =   375
      Left            =   2520
      TabIndex        =   0
      Top             =   3960
      Width           =   855
   End
   Begin Label ServerTimeLabel
      Height          =   252
      Left            =   2160
      TabIndex        =   4
      Top             =   360
      Width           =   2652
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Server date and time:"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   360
      Width           =   1935
   End
   Begin Label ServerNameLabel
      Height          =   252
      Left            =   2160
      TabIndex        =   2
      Top             =   120
      Width           =   2532
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      Caption         =   "Default file server:"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   1815
   End
End

Sub Form_Load ()
    Dim dateAndTime As DATE_AND_TIME
    Dim serverInfo As FILE_SERV_INFO

    fileServerName$ = String$(48, 0)
    fileServerName$ = GetDefaultFileServerName()
    ServerNameLabel.Caption = fileServerName$

    GetFileServerDateAndTime dateAndTime
    temp$ = Format$(Asc(dateAndTime.month), "00") + "/" + Format$(Asc(dateAndTime.date), "00") + "/" + Format$(Asc(dateAndTime.year), "00")
    temp$ = temp$ + " " + Format$(Asc(dateAndTime.hour), "00") + ":" + Format$(Asc(dateAndTime.minute), "00") + ":" + Format$(Asc(dateAndTime.second), "00")
    ServerTimeLabel.Caption = temp$

    companyName$ = String$(80, 0)
    revision$ = String$(80, 0)
    revisionDate$ = String$(24, 0)
    copyrightNotice$ = String$(80, 0)
    ccode% = GetFileServerDescriptionStrings(companyName$, revision$, revisionDate$, copyrightNotice$)
    If (ccode% = SUCCESSFUL) Then
        CompanyLabel.Caption = companyName$
        RevisionLabel.Caption = revision$
        RevisionDateLabel.Caption = revisionDate$
        CopyrightLabel.Caption = copyrightNotice$
    Else
        MsgBox "Unable to get file server description strings", MB_OK, "Error"
    End If

    ccode% = GetServerInformation(Len(serverInfo), serverInfo)
    If (ccode% = SUCCESSFUL) Then
        VersionLabel.Caption = Format$(Asc(serverInfo.netwareVersion)) + "." + Format$(Asc(serverInfo.netwareSubVersion)) + Chr$(Asc(serverInfo.revisionLevel) + Asc("a"))
        SFTLevelLabel.Caption = Format$(Asc(serverInfo.SFTLevel))
        TTSLevelLabel.Caption = Format$(Asc(serverInfo.TTSLevel))
        AccountingVersionLabel.Caption = Format$(Asc(serverInfo.accountingVersion))
        VAPVersionLabel.Caption = Format$(Asc(serverInfo.VAPversion))
        QueueVersionLabel.Caption = Format$(Asc(serverInfo.queueingVersion))
        PrintServerVersionLabel.Caption = Format$(Asc(serverInfo.printServerVersion))
        VirtualConsoleVersionLabel.Caption = Format$(Asc(serverInfo.virtualConsoleVersion))
        SecurityLevelLabel.Caption = Format$(Asc(serverInfo.securityRestrictionLevel))
        InternetBridgeSupportLabel = Format$(Asc(serverInfo.internetBridgeSupport))
    Else
        MsgBox "Unable to get file server information structure", MB_OK, "Error"
    End If
End Sub

Sub OKButton_Click ()
    Unload FSEForm
End Sub