MFCOM Script to send message to everyone on one server before scheduled reboot

<package>
	<job id="MFCOM_Send_Message">
	<comment>
	  File: MFCOM_Send_Message.wsf
	  Description: Send Message to users who have active sessions on the server.
	  Requirements: WSH 5.5 or higher.
	  Created: 20/5/2008
	  Author: Paullo
	 
	  
	  SendMessage Parameters:
	 
	  ServerName
	  SessionID
	  UserName
	  ClientName
	  Title
	  Message
	  MessageStyle 0 = OK Button Only
	  Timeout Display time in milliseconds
	  WaitingTime Waiting for response time in milliseconds
	 
	</comment>
	<runtime>
	    <description>
	      Send Message to users.
	    </description>
	    <example>
	      CScript //nologo MFCOM_Send_Message.wsf SERVERNAME
	    </example>
	</runtime>
	<reference object="MetaFrameCOM.MetaFrameFarm"/>
	<script language="VBScript">
	Dim ArgObj, ServerName, ObjServer, ObjSessions, ObjSession
	 
	Set ArgObj = WScript.Arguments
	ServerName = ArgObj(0)
	 
	WScript.Echo "Server Name: " & ServerName
	 
	Set ObjServer = CreateObject("MetaFrameCOM.MetaFrameServer")
	ObjServer.Initialize 6, ServerName
	 
	For Each ObjSession in ObjServer.Sessions
	    SessionID = ObjSession.SessionID
	    UserName = ObjSession.Username
	    ClientName = ObjSession.ClientName
	    strTitle = "System Maintenance Reminder"
	    strMsg = "Please log off in 5 minutes due to regular system maintenance."
	    SessionState = ObjSession.SessionState
	 
	    ' WScript.echo "SessionID = " & SessionID & "; UserName = " & UserName & "; ClientName = " & ClientName & "; SessionState = " & SessionState & ";"
	  
	    If UserName = "" Then
	        ' When listing sessions for a server, it is listing the listening sessions as well.
	    Elseif SessionState <> 1 Then
	        ' Only send message to Active Sessions
	    Else
	        ObjSession.SendMessage ServerName,SessionID, UserName, ClientName, strTitle, strMsg, 0, 120000, 120000
	    End If
	Next
	 
	 
	</script>
	</job>
	</package>