The server will not fully power down. It attempts to (sputters)and then the fans just run and the lights on the front just flicker, no alarms. AMI Megaplex 2 mother board 2816 MB ram DB 960 2 power supplies Trimm 9u case already tried replacing the cmos battery thinking that that might be the problem, because if I remove power ie unplug the cmos resets its self and I have to correct the time, date, etc,etc,
Computers & Internet - AMI - MegaPlex II 9U (S657820000000) Server
We would issue remote shutdown commands and sometimes the system wouldn't completely shutdown and it went into the undead state. Anyone connected to the machine still worked but no new connections allowed and no access to the console. Found out from Microsoft the shutdown command isn't the greatest and so I wrote a VBScript that has resolved the issue.
This isn't the greatest code in the world, I should correct it so the values are all defined in the variables section but use it if you find value to it.
Answers & Comments
We would issue remote shutdown commands and sometimes
the system wouldn't completely shutdown and it went into the undead state.
Anyone connected to the machine still worked but no new connections allowed
and no access to the console. Found out from Microsoft the shutdown command
isn't the greatest and so I wrote a VBScript that has resolved the issue.
This isn't the greatest code in the world, I should correct it so the values
are all defined in the variables section but use it if you find value to it.
Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''
' Program - RemoteReboot.vbs '
' Author - Paul Bergson '
' Date Written - 08/15/07 '
' Description - Is a more drastic remote reboot '
''''''''''''''''''''''''''''''''''''''''''''''''''
Dim OpSysSet
Dim OpSys
Dim strComputer
Dim iMsg
Dim iConf
Dim Flds
Dim strSubject
Dim strHTML
on error resume next
strComputer = WScript.Arguments.Item(0) 'Get server name
If WScript.Arguments.Count = 1 Then
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}\\" _
& strComputer _
& "\root\cimv2").ExecQuery("select * from Win32_OperatingSystem where
Primary=true")
For Each OpSys in OpSysSet
OpSys.Reboot()
Next
Else
Wscript.Echo "Server Name required. Reboot operation Aborted!"
Wscript.Quit
End If
'Send out an e-mail on the reboot
set imsg = createobject("cdo.message")
set iconf = createobject("cdo.configuration")
Set Flds = iConf.Fields
With Flds
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"Yoursmtp.YourDomain.com"
..Update
End With
strHTML = strComputer & " has been automatically rebooted by YourServerName"
_
& " on " & FormatDateTime(Date(),1) & ", " & FormatDateTime(Time(),3)
strSubject = strComputer & " has been rebooted"
With iMsg
Set .Configuration = iConf
..To = "Notification [email protected]" ' Destination e-mail address
..From = "[email protected]"
..Subject = strSubject
..HTMLBody = strHTML
..Send
End With
set imsg = Nothing
set iconf = Nothing