Lage Planlagte oppgaver med vbs

[ilpostino]

Jeg holder påå lage et script som starter Planlagte oppgaver på maskinen. oppgavene som scriptet lager får navn At1, At2, Atx...

 

noen som vet hvordan jeg kan gi oppgavene andre navn? dette fordi jeg vil sjekke om disse finnes fra før av når scriptet kjøres...

 

scriptet ser slik ut så langt: (jeg regner med jeg kommer til å endre det noe før det er ferdig).

 

'Denne delen kopierer BAT-filen
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\lexmark\slett_temp_mapper.bat" , "C:\", OverwriteExisting

'Denne delen legger inn en ny Planlagt oppgave som sletter temporære filer. dette skal skje hver onsdag klokken 0300
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
   & strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
   ("c:\slett_temp_mapper.bat", "********180000.000000-420", True , 4, , True, JobId) 
If errJobCreated <> 0 Then
Wscript.Echo "Error on task creation (Delete files)"
Else
Wscript.Echo "Task created (Delete files)"
End If

'Denne delen legger inn en ny Planlagt oppgave som defragmenterer hardiskene. Dette skal skje hver tirsdag klokken 0300
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
   & strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
   ("C:\Windows\system32\defrag.exe", "********180000.000000-420", True , 2, , True, JobId) 
If errJobCreated <> 0 Then
Wscript.Echo "Error on task creation (Defragmentation)"
Else
Wscript.Echo "Task created (Defragmentation)"
End If

[eiden84]

Det er dessverre en god del begrensninger på Task Scheduleren via WMI.

 

Her kan du lese litt mer om det:

http://www.microsoft.com/technet/scriptcen...04/hey0922.mspx

 

Jeg ville heller laget det i C#

Endret 26. juli 2007 av eiden84