Printer and PhoneBook

Some Scripts used for Management of ActFax Servers

ActiveFax/CopyPhoneBook/CopyPhoneBook.vbs

@@ -0,0 +1,27 @@
+' CopyPhoneBooks.vbs - Copy ActFax PhoneBook Files to Backup Folder
+' Run Daily at 5am from Task Scheduler
+
+' v1.0 - 29.10.2020 - Initial Release
+
+' Define Constants for Environment on Server
+  Const strPhoneBookFolder = "E:\ActiveFax\Server\Data\PhoneP\"
+  Const strBackupFolder = "E:\PhoneBookBackups\"
+
+' File System Object
+  Dim objFSO
+  Set objFSO = CreateObject("Scripting.FileSystemObject")
+
+' Define actual Backup Folder
+  strActualBackupFolder = strBackupFolder & fncDateString(now())
+
+' Check, whether Target Folder exists
+  If Not objFSO.FolderExists(strActualBackupFolder) Then
+     objFSO.CreateFolder strActualBackupFolder
+  End If
+' Move Files  
+  objFSO.CopyFile strPhoneBookFolder & "*.*", strActualBackupFolder
+
+  Function fncDateString(datDate)
+' Format the Date as yyyymmdd
+  fncDateString = Year(datDate)& right("0" & Month(datDate),2) & right("0" & Day(datDate),2) 
+    End Function

ActiveFax/EnumPrinter/EnumPrinter.vbs

@@ -0,0 +1,62 @@
+' EnumPrinters.vbs - Enumerate Printers on ActFax Server
+' This uses the same Windows Function as the ActFax Server uses, if a printer is missing
+' in ActFax, it is also missing here!
+
+' To test the Script, change the Value needed for intPrinter in line 29
+
+' v1.0 - 29.10.2020 - Initial Release
+
+' Variables
+  Dim objNetwork, objPrinter, intPrinter, txtBody
+
+' Enumerate the mapped Printers
+  Set objNetwork = CreateObject("WScript.Network")
+  Set objPrinter = objNetwork.EnumPrinterConnections
+
+' Error when no printer is mapped
+  If objPrinter.Count = 0 Then
+     txtBody "No Printers mapped on Server"
+     fncSendMail
+     Wscript.Quit(0)
+  End If
+
+' Read Array of Printers
+  For intPrinter = 0 To (objPrinter.Count -1) Step 2 ' use Step 2 as M$ stores a Printer in 2 Lines
+     txtBody = txtBody & objPrinter.Item(intPrinter) & " = " & objPrinter.Item(intPrinter +1) & " : " & intPrinter & vbCrLf
+  Next
+
+' Send Mail when Printer is missing (66 on 29.10.2020)
+  If intPrinter < 66 then 
+     fncSendMail
+     Wscript.Quit(0)
+  end if 
+
+' Normal End
+  Wscript.Quit(1)
+
+  Function fncSendMail
+' Create the objects require for sending email using CDO
+  Set objMail = CreateObject("CDO.Message")
+  Set objConf = CreateObject("CDO.Configuration")
+  Set objFlds = objConf.Fields
+
+' Set Properties of CDO object
+  objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
+  objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "[NAMEOFMAILSERVER]" 
+  objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'default port for email
+  objFlds.Update
+
+' Create Mail
+  objMail.Configuration = objConf
+  objMail.From = "[ADDRESSOFSENDER]"
+  objMail.To = "[ADDRESSOFRECIPIENT]"
+  objMail.Subject = "ActFax Printers missing!"
+  objMail.TextBody = txtBody
+  objMail.Send
+
+' Destroy Objects
+  Set objFlds = Nothing
+  Set objConf = Nothing
+  Set objMail = Nothing
+
+  End Function