Beezwax Buzz

Categories

• filemaker (18)
• rails (9)
• ruby (10)
• web 2.0 (1)
• intranet (1)
• filemaker add-ons (5)
• filemaker news (2)
• filemaker utilities (5)
• filemaker tips (4)
• custom functions (3)
• iPhone (1)

1. Wim Decorte 1 day later:

   The article fails to mention that the best practice is to first - disconnect all clients - then close all files before attempting to stop filemaker server (database engine). Almost never should you try to stop FMS from hosting by stopping the underlying OS service or daemon.

   Disconnecting clients and closing files can also be done from the command line using the “fmsadmin” command. Below is a VBscript that does just that:

   ’ Author: Wim Decorte ’ Version: 2.0 ’ Description: Uses the FileMaker Server 10 command line to disconnect ’ all users And close all hosted files ’ ’ This is a basic example. This script is not meant as a finished product, ’ its only purpose is as a learning & demo tool. ’ ’ This script does not have full Error handling. ’ For instance, it will break if there are spaces in the FM file names. ’ The script also does not handle infinite loops in disconnecting clients ’ or closing files. ’ ’ This script is provided as is, without any implied warranty or support.

   Const WshFinished = 1 q = Chr(34) ’ the ” character, needed to wrap around paths with spaces

   ‘——————————————————————————————– ’ Change these variables to match your setup

   theAdminUser = “” theAdminPW = “” pathToSAtool = “C:\Program Files\FileMaker\FileMaker Server\Database Server\fmsadmin.exe”

   ‘——————————————————————————————–

   SAT = “cmd /c ” & q & pathToSAtool & q & ” ” ’ watch the trailing space

   callFMS = SAT If Len(theAdminUser) > 0 Then

   callFMS = callFMS & " -u " & theAdminUser
   

   End If If Len(theAdminPW) > 0 Then

   callFMS = callFMS & " -p " & theAdminPW
   

   End If

   listClients = callFMS & ” list clients” disconnectClients = callFMS & ” disconnect client -y” listfiles = callFMS & ” list files -s” closeFiles = callFMS & ” close file ” stopServer = callFMS & ” stop server -y -t 15”

   ’ hook into the Windows shell Set sh = WScript.CreateObject(“wscript.shell”)

   ’ get a list of all clients and force kick them off clientIDs = getCurrentClients() clientCount = UBound(clientIDs)

   ’ loop through the clients and kick them off If clientCount > 0 Then

       fullCommand = disconnectClients
       Set oExec = sh.Exec(fullCommand)
       ' give FMS some time and then requery the list of clients
       Do Until oExec.Status = WshFinished
           WScript.Sleep 50
       Loop
       Do Until clientCount = 0
           WScript.Sleep 1000
           Debug.WriteLine "Waiting for clients to disconnect..."
           clientIDs = getCurrentClients()
           clientCount = UBound(clientIDs)
       Loop
   

   End If

   ’ get list of files and close them fileIDs = getCurrentFiles() fileCount = UBound(fileIDs)

   ’ loop through the files and close them If fileCount > 0 Then

   Do Until fileCount = 0
       fullCommand = closeFiles & fileIDs(0) & " -y"
       Set oExec = sh.Exec(fullCommand)
       ' give FMS some time and then requery the list of files
       Do Until oExec.Status = WshFinished
           WScript.Sleep 50
       Loop
       fileIDs = getCurrentFiles()
       fileCount = UBound(fileIDs)
   
   Loop
   

   End If

   ’ all clients and files stopped ’ shut down the database sever (does not stop the FMS service!) fullCommand = stopServer Set oExec = sh.Exec(fullCommand) Do Until oExec.Status = WshFinished

   WScript.Sleep 50
   

   Loop

   ’ done, exit the script Set sh = Nothing WScript.Quit ’ ——————————————————————————

   Function getCurrentClients()

   tempCount = 0
   Dim tempArray()
   Set oExec = sh.Exec(listClients)
   
   ' in case there are no clients...
   If oexec.StdOut.AtEndOfStream Then Redim temparray(0)
   
   ' read the output of the command
   Do While Not oExec.StdOut.AtEndOfStream
       strText = oExec.StdOut.ReadLine()
       strText = Replace(strtext, vbTab, "")
       Do Until InStr(strtext, "  ") = 0
           strText = Replace (strtext, "  ", " ")
       Loop
       If InStr(strText, "Client ID User Name Computer Name Ext Privilege") > 0 OR _
           InStr(strText, "ommiORB") > 0 OR _
           InStr(strText, "IP Address Is invalid Or inaccessible") > 0 Then
           ' do nothing
           Redim temparray(0)
       Else
           tempClient = Split(strtext, " ")
           tempCount = tempCount + 1
           Redim Preserve tempArray(tempCount)
           tempArray(tempCount-1) = tempClient(0)
       End If
   Loop
   
   getCurrentClients = tempArray
   

   End Function

   Function getCurrentFiles()

   tempCount = 0
   Dim tempArray()
   Set oExec = sh.Exec(listfiles)
   
   ' in case there are no files...
   If oexec.StdOut.AtEndOfStream Then Redim temparray(0)
   
   ' read the output of the command
   Do While Not oExec.StdOut.AtEndOfStream
       strText = oExec.StdOut.ReadLine()
       strText = Replace(strtext, vbTab, "")
       Do Until InStr(strtext, "  ") = 0
           strText = Replace (strtext, "  ", " ")
       Loop
       If InStr(strText, "ID File Clients Size Status Enabled Extended Privileges") > 0 OR _
           InStr(strText, "ommiORB") > 0 OR _
           InStr(strText, "IP Address Is invalid Or inaccessible") > 0 OR _
           Left(strtext, 2) = "ID" Then
           ' do nothing
           Redim temparray(0)
       Else
           tempFile = Split(strtext, " ")
           status = LCase(tempFile(4))
           If status = "normal" Then
               tempCount = tempCount + 1
               Redim Preserve tempArray(tempCount)
               tempArray(tempCount - 1) = tempFile(1) & ".fp7"
           End If
       End If
   Loop
   
   getCurrentFiles = tempArray
   

   End Function