***copy below
on error resume next
Dim DecDDNumber,DecMMNumber,DecYYYYNumber
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("outputCTXRebootSchedule.txt", True)
Set objServerlist = objFSO.OpenTextFile("listofcitrixservers.txt", 1)
Const HKEY_LOCAL_COMPUTER = &H80000002
Do Until objServerList.AtEndOfStream
strComputer = objServerList.ReadLine
strKeySchedule = "SOFTWARE\Wow6432Node\Policies\Citrix\IMA\Restart Options\Schedule"
strScheduleDate = "RestartSchedule_Date"
strScheduleFrequency = "RestartSchedule_Frequency"
strMinutes = "RestartSchedule_Minutes"
strRebootsEnabled = "RestartScheduleEnabled"
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
objReg.GetDWordValue HKEY_LOCAL_COMPUTER, strKeySchedule, strScheduleDate, VDE
objReg.GetDWordValue HKEY_LOCAL_COMPUTER, strKeySchedule, strScheduleFrequency, strFreq
objReg.GetDWordValue HKEY_LOCAL_COMPUTER, strKeySchedule, strMinutes, strMins
objReg.GetDWordValue HKEY_LOCAL_COMPUTER, strKeySchedule, strRebootsEnabled, strEnabled
TTRHour = strMins \ 60 & ":" & strMins Mod 60
DecDDNumber = VDE and 255
DecMMNumber = (VDE and 65280) /256
DecYYYYNumber = (VDE / 65535) and 65535
dtmRebootDate = DecMMNumber & "/" & DecDDNumber & "/" & DecYYYYNumber
dtmDayOfWeek = DatePart("w", dtmRebootDate)
Select Case dtmDayOfWeek
Case 1 strDayofReboot = "Sunday"
Case 2 strDayofReboot = "Monday"
Case 3 strDayofReboot = "Tuesday"
Case 4 strDayofReboot = "Wednesday"
Case 5 strDayofReboot = "Thursday"
Case 6 strDayofReboot = "Friday"
Case 7 strDayofReboot = "Saturday"
End Select
objFile.WriteLine strComputer &","& strDayofReboot &","& dtmRebootDate &","& strFreq &","& TTRHour &","& strEnabled
Loop
wscript.echo "End"
***copy above
