架构研究室

On Error Resume Next
'Write by john.lv
'e-mail:lvming104@hotmail.com
'if you have any questions, please contact me.
'get date
  mydate=now
  my_day = day(mydate)
  my_month = month(mydate)
  my_year=year(mydate)
my_date = my_year &  my_month & my_day

'读取磁盘驱动器
Set fso = CreateObject("Scripting.FileSystemObject") 
if fso.DriveExists("d:\")="True" then
getfso=fso.GetDrive("d:")
else
getfso=fso.GetDrive("e:")
end if

'判断log文件夹是否存在
if fso.folderExists(getfso&"\log")=Flase then
fso.CreateFolder(getfso&"\log")
end if

'判断reboot.log是否存在，保存在d:\log\或者e:\log\下
if fso.fileExists(getfso&"\log\reboot_"&my_date&".log")=Flase then
fso.CreateTextFile(getfso&"\log\reboot_"&my_date&".log")
set objNF=fso.OpenTextFile(getfso&"\log\reboot_"&my_date&".log",8)
'打开reboot_my_date.log文件
else
set objNF=fso.OpenTextFile(getfso&"\log\reboot_"&my_date&".log",8)
end if

'读取数据库密码
set objshell=CreateObject("WScript.Shell")
Input1 = InputBox("请输入重启服务器所需密码","身份验证")
'判断是否为空
if input1="" then
wscript.quit
else
checksum=input1
end if

Set objFSO = CreateObject("Scripting.FileSystemObject")
set objlocator=createobject("wbemscripting.swbemlocator")
Const SHUTDOWN = 1

'定义链接数据库信息
hosts="DSN=syslog;uid=syslog;pwd="&checksum
'uid登录数据库的用户名，pwd：密码
Set DbConn = CreateObject("ADODB.Connection")
DbConn.Open hosts

'记log
if CStr(Err.Number)<>"0" then
objNF.writeline "Error No:" & CStr(Err.Number) & " " & Err.Description
objNF.writeline ""
msgbox "Error No:" & CStr(Err.Number) & " " & Err.Description
wscript.quit
end if
'读取hosts中主机信息，去掉以#开头的
SQL="select ip,username,passwd from hosts where ip not like '#%'"
Set Rs=DbConn.execute(SQL)
if not(Rs.eof) Then
do while not Rs.eof
strComputer=rs(0)
username=rs(1)
password=rs(2)

'远程通过username，password连接服务器（WMI）
Set objWMIService = objlocator.connectserver(strComputer ,"root\cimv2",username,password)

'记log
if CStr(Err.Number)<>"0" then
'msgbox (strComputer&" Error No:" & CStr(Err.Number) & " " & Err.Description)
objNF.writeline "ip:"&strComputer&" Error No:" & CStr(Err.Number) & " " & Err.Description
objNF.writeline ""
else
 Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
  For Each objOperatingSystem in colOperatingSystems 
    ObjOperatingSystem.Reboot()  '重启
   Next

'记log
 if  CStr(Err.Number) ="0" then
  objNF.writeline "ip:"&strComputer&"  重启时间:"&now
  objNF.writeline ""
  else
  objNF.writeline "ip:"&strComputer&" Error No:" & CStr(Err.Number) & " " & Err.Description
  objNF.writeline ""
  end if
 End if
'下移一条记录
rs.movenext
loop

objNF.close
'提示重启结果
if CStr(Err.Number)="0" then
msgbox "重启完成" '提示重启完成
else
msgbox ("Error No:" & CStr(Err.Number) & " 重启没有完成" )
end if

else
wscript.echo "没有查到host信息，请重新确认"
End if

Err.Clear '清除错误。

Error No:-2147217843 [Microsoft][ODBC SQL Server Driver][SQL Server]用户 'syslog' 登录失败。
#表示在提示框输入的数据库密码错误
ip:192.168.1.50 Error No:-2147023174 RPC 服务器不可用。
#ip地址错误或服务器无法连接
ip:192.168.100.100 Error No:-2147024891 拒绝访问。
#用户名或密码错误
ip:192.168.100.102  重启时间:2008-9-11 12:06:09
#重启成功并记录时间

'指定系统服务名称
servicename=chr(39)&amp;"系统服务名称"&amp;chr(39)
'指定日期
mydate=now
? my_day = day(mydate)
? my_month = month(mydate)
? my_year=year(mydate)
my_date = my_year &amp;? my_month &amp; my_day
'指定分区（系统第二的磁盘分区）
Set fso = CreateObject("Scripting.FileSystemObject")?
if fso.DriveExists("d:\")="True" then
getfso=fso.GetDrive("d:")
else
getfso=fso.GetDrive("e:")
end if
'指定log目录
if fso.folderExists(getfso&amp;"\log")=Flase then
fso.CreateFolder(getfso&amp;"\log")
end if
'log文件名
if fso.fileExists(getfso&amp;"\log\service_"&amp;my_date&amp;".log")=Flase then
fso.CreateTextFile(getfso&amp;"\log\service_"&amp;my_date&amp;".log")
set objNF=fso.OpenTextFile(getfso&amp;"\log\service_"&amp;my_date&amp;".log",8)
else
set objNF=fso.OpenTextFile(getfso&amp;"\log\service_"&amp;my_date&amp;".log",8)
end if
'判断hosts列表是否存在
if fso.fileExists("hosts")=Flase then
msgbox "无法读取服务器列表"
wscript.quit
end if
Const ForReading = 1
'读取Serverlist like linux /etc/hosts
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("hosts", ForReading)
set objlocator=createobject("wbemscripting.swbemlocator")
Do Until objFile.AtEndOfStream
strLine= objFile.ReadLine
'定义＃不读取和ip以192.开始的
? If left(strLine,1)&lt;&gt;"#" and left(strLine,4)="192." Then
? strComputer=strLine
? objNF.writeline "server:"&amp;ComputerName&amp;" ip:"&amp;strComputer&amp;"? starttime:"&amp;now
? objNF.writeline ""

'关闭Services
Set objWMIService = objlocator.connectserver(strComputer ,"root\cimv2")
Set colListOfServices1 = objWMIService.ExecQuery _
("Select * from Win32_Service Where? State = 'Running' and Name = "&amp;servicename)
For Each objService1 in colListOfServices1
objService1.StopService()
Next
'开启Services
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where? State &lt;&gt; 'Running' and Name = "&amp;servicename)
For Each objService in colListOfServices
objService.ChangeStartMode "Automatic" 'Manual,Automatic,Disabled
objService.StartService()
Next
end if
Loop

objFile.Close
objNF.close
msgbox "Services Restart Complete"