cd D:\tools\putty
D:
pscp -pw 888888 root@192.1.51.195:/root/script/time_solidify.sh ./
updateDate.vbs
pscp -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 currentdate




Function 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 Select
End Function