cd D:\tools\puttyD:pscp -pw 888888 root@192.1.51.195:/root/script/time_solidify.sh ./updateDate.vbspscp -l root -pw 888888 ./time_solidify.sh 192.1.51.195:/root/script/time_solidify.sh

‘  读指定的文件         Dim  pathway         Dim fso,myfile,newfile,i,flag,currentdate         pathway = "D:\tools\putty\time_solidify.sh"         new_pathway = "D:\tools\putty\new_time_solidify.sh"         flag = 1   Set fso = CreateObject ("Scripting.FileSystemObject")   If fso.FileExists (pathway) Then            Set myfile = fso.OpenTextFile (pathway,1,false)            If fso.FileExists (new_pathway) Then                      ‘ 清空                             fso.DeleteFile (new_pathway)            end if            Set newfile = fso.CreateTextFile (new_pathway,false)   else                   flag = 0         End If         Set regEx = New RegExp         regEx.Pattern = ".*\d{4}-\d{2}-\d{2}.*"    If flag=1 Then                   do                            txt = myfile.ReadLine()                            If regEx.Test(txt) Then                                     ‘ 取得日期                                     vartxt = txt                                     currentdate = mid(txt,instr(txt,chr(34))+1,10)                                     currentdate = DateAdd("d",1,currentdate)                                     currentdate = format_time(currentdate,2)                                     temptxt = "date -s "&chr(34)&currentdate&" "&chr(34)&"${now_time}"                                     ‘ 修改后的日期进行添加新的文件当中                                     newfile.WriteLine(temptxt)                                     else                                     ‘  添加内容                                     newfile.WriteLine(txt)                            End If                   loop while (not myfile.AtEndOfStream)         End If         ‘  旧的文件删掉         ‘fso.DeleteFile(pathway)         ‘  新的文件更名         fso.CopyFile new_pathway,pathway         ‘fso.DeleteFile(new_pathway)         Set myfile = nothing         Set newfile = nothing         Set fso = nothing         Set regEx = nothing‘currentdate = DateAdd("d",1,"2014-10-31")‘msgbox currentdateFunction Format_Time(s_Time, n_Flag)         Dim y, m, d, h, mi, s         Format_Time = ""         If IsDate(s_Time) = False Then Exit Function         y = cstr(year(s_Time))         m = cstr(month(s_Time))         If len(m) = 1 Then m = "0" & m         d = cstr(day(s_Time))         If len(d) = 1 Then d = "0" & d         h = cstr(hour(s_Time))         If len(h) = 1 Then h = "0" & h         mi = cstr(minute(s_Time))         If len(mi) = 1 Then mi = "0" & mi         s = cstr(second(s_Time))         If len(s) = 1 Then s = "0" & s         Select Case n_Flag         Case 1         ‘ yyyy-mm-dd hh:mm:ss         Format_Time = y  & m & d         Case 2         ‘ yyyy-mm-dd         Format_Time = y & "-" & m & "-" & d         Case 3         ‘ hh:mm:ss         Format_Time = h & ":" & mi & ":" & s         Case 4         ‘ yyyy年mm月dd日         Format_Time = y & "年" & m & "月" & d & "日"         Case 5         ‘ yyyymmdd         Format_Time = y & m & d         End SelectEnd Function