Народ плиз помогите. Нужно написать скрипт каторый позволялял бы запускать другой скрипт периодично раз в 3 часа. Скрипт №2 делает копирование папки с файлами из сетевого диска на сервере на локальный компутер пользователя. Шатдулер не подходит ибо требует ввода пароля пользователя.Как решить проблему. Желательноб конечто чтоб ето делал один скрипт. Заранеее спасибка.

sorrу за ламерство я в скриптовых языках новичок, но непонятна функцыя
sub TimerFunc()
mysample.innerText=time
end sub
2 строчка

На залогиненой. Сам посебе он уже работает листинг
Set objNetwork = CreateObject("WScript.Network")
Set oDrives=objNetwork.EnumNetworkDrives
mydrv = "X:"
mapped = false
myshare = "\\server\1\1"
For i = 0 to oDrives.Count - 1 Step 2
If oDrives.Item(i)=mydrv Then mapped = true
Next
If Not mapped Then objNetwork.MapNetworkDrive mydrv, myshare, "true"


Set fso = CreateObject("Scripting.FileSystemObject")

Set UFolder = fso.getfolder("X:\1\N")
set UFile = UFolder.files
Set OFolder = fso.getfolder("C:\1\k\1")
Set OFile = OFolder.files

If (fso.FileExists("C:\LOG\copy.log")) Then
Set MyFile = fso.OpenTextFile("C:\LOG\copy.log", 8, True)
Else
Set MyFile = fso.CreateTextFile("C:\LOG\copy.log")
end if

For Each f1 in UFile
FileToCopy = UFolder&"\"&f1.Name
For Each f2 in OFile

fso.CopyFile FileToCopy, OFolder&"\"&f1.Name
MyFile.WriteLine(Cstr(Date)&" "&Cstr(Time)&" Файл "&f1.Name&" обновлен. Размер "&f1.Size)



Next
Next
WScript.Sleep(10000)

MyFile.Close

Нужно его просто запускать периодично/
Система вин 2000

На залогиненой. Сам посебе он уже работает листинг
Set objNetwork = CreateObject("WScript.Network")
Set oDrives=objNetwork.EnumNetworkDrives
mydrv = "X:"
mapped = false
myshare = "\\server\1\1"
For i = 0 to oDrives.Count - 1 Step 2
If oDrives.Item(i)=mydrv Then mapped = true
Next
If Not mapped Then objNetwork.MapNetworkDrive mydrv, myshare, "true"


Set fso = CreateObject("Scripting.FileSystemObject")

Set UFolder = fso.getfolder("X:\1\N")
set UFile = UFolder.files
Set OFolder = fso.getfolder("C:\1\k\1")
Set OFile = OFolder.files

If (fso.FileExists("C:\LOG\copy.log")) Then
Set MyFile = fso.OpenTextFile("C:\LOG\copy.log", 8, True)
Else
Set MyFile = fso.CreateTextFile("C:\LOG\copy.log")
end if

For Each f1 in UFile
FileToCopy = UFolder&"\"&f1.Name
For Each f2 in OFile

fso.CopyFile FileToCopy, OFolder&"\"&f1.Name
MyFile.WriteLine(Cstr(Date)&" "&Cstr(Time)&" Файл "&f1.Name&" обновлен. Размер "&f1.Size)



Next
Next
WScript.Sleep(10000)

MyFile.Close

Нужно его просто запускать периодично/
Система вин 2000