2024年3月18日发(作者：)

DowithChange

FlmDate = CrtDate

End If

End if

'‘**********update vbs*****

'If (ists(getAbpath(strAuditPath) & "")) Then

'le getAbpath(strAuditPath) & "",GetAbpath(GetCPath) & ""

'end if

'***************************

'end if

'***************************************

if Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("11:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("12:00:00")) then

AlearB=true

end if

if Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("15:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("14:00:00")) then

AlearB=true

end if

if Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("7:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("8:00:00")) then

AlearB=true

end if

'test

if Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("11:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("12:00:00")) then

AlearB=True

end if

if AlearB=true Then

if hour(FormatDateTime(Now(),4))-hour(AlearT)>1 then

msgbox "pls Compress the NLPV and RESTART the computer"

else

AlearB=false

end if

end if

10000

Loop

End Sub

Sub Getformat()

strFormats=ShowFilesList(pathFormat)

Const ForReading = 1, ForWriting = 2

Set fso = CreateObject("stemObject")

Set f = xtFile(GetAbPath(strAuditPath) & CELL & " " & ComputerName & ".txt", ForWriting, True)

for i=0 to UBound(strFormats)

ine left(strFormats(i),len(strFormats(i))-4)

next

ine cell

ine ComputerName

'

clect =true

End sub

Function ShowFilesList(folderspec)

Dim fso, f, f1, s(), sf,i

i=0

redim s(i)

Set fso = CreateObject("stemObject")

Set f = der(folderspec)

Set fc =

For Each f1 in fc

redim Preserve s(i)

s(i)=

i=i+1

Next

ShowFilesList=s

End Function

Function ShowFolderList(folderspec)

Dim fso, f, f1, s(), sf,i

i=0

redim s(i)

Set fso = CreateObject("stemObject")

Set f = der(folderspec)

Set sf = ders

For Each f1 in sf

redim Preserve s(i)

s(i)=

i=i+1

Next

ShowFolderList=s

End Function

'Format(FormatDateTime(Now(),4), "HH:mm:ss")

Sub GetSetting()

Dim Lsp

Lsp=GetCPath() & "peLogosetting " & Getcomputername() & ".txt"

If (Not ists(lsp)) Then

WriteHistory InputBox("Pls enter the Auditing path"),Lsp

WriteHistory InputBox("Pls enter the Local graphics path"),Lsp

WriteHistory InputBox("Pls enter the CELL"),Lsp

End If

str=ReadLineTextFile(Lsp)

strLocalpath=str(1)

strAuditPath=str(0)

'if right(strAuditPath,1)<>"" then strAuditPath=strAuditPath & ""

Cell=str(2)

call AutoRun()

End Sub

Sub DowithChange()

oN ERROR RESUME NEXT

Dim i, j

For i = 0 To UBound(strReadFolders)

For j = 0 To UBound(strLocalFolders)

If UCase(strReadFolders(i)) = UCase(strLocalFolders(j)) Then

lder GetAbPath(strAuditPath) & strReadFolders(i), GetAbPath(strLocalpath), True

WriteHistory (strReadFolders(i) & "" & ComputerName & "" & Cell & "" & FormatDateTime(Now(),4)),GetAbPath(strAuditPath) &

""

End If

Next

Next

End Sub

Sub WriteHistory(hisChars, path)

Const ForReading = 1, ForAppending = 8

Dim fso, f

Set fso = CreateObject("stemObject")

Set f = xtFile(path, ForAppending, True)

ine hisChars

End Sub

Function ReadLineTextFile (path)

Const ForReading = 1, ForWriting = 2

Dim fso, MyFile,sFolders(),i

Set fso = CreateObject("stemObject")

i=0

redim sfolders(i)

Set MyFile = xtFile(path, ForReading)

Do While fLine <> True

redim Preserve sFolders(i)

sFolders(i) = ne

i=i+1

Loop

ReadLineTextFile=sFolders

End Function

Sub AutoRun()

set r=object("")

yuan = FullName

te "HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionRunOncePeLogoUpdate",yuan

end sub

Function GetAbPath(path)

If Right(path, 1) <> "" Then

GetAbPath = path & ""

Exit Function

end if

GetAbPath = path

End Function

Function Getcomputername()

Dim a

Set a = CreateObject("k")

Getcomputername= erName

End Function

function GetCPath()

Set objShell = CreateObject("")

strPath = FullName

Set objFSO = CreateObject("stemObject")

Set objFile = e(strPath)

Getcpath = entFolderName(objFile)

end Function