title image


Smiley Habs gefunden
Hallo,



Hab gefunden woran es lag.......



War ein bisschen blöd von mir... hab die Uhrzeitz im Format HH:MM eingegeben, aber er erwartet ja das Format HHMM (Ohne:) Jetzt gehts... hier nochmal der Code:



strComputer = "."



txtStd = txtStd.Text

txtMin = txtMin.Text



If txtUhr = "HH" Then

MsgBox "Bitte geben die Stunden ein in denen der Task ausgeführt werden soll", vbInformation, "Uhrzeit"

Else

If txtMin = "MM" Then

MsgBox "Bitte geben die Minuten ein in denen der Task ausgeführt werden soll", vbInformation, "Uhrzeit"

Else

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set objNewJob = objWMIService.Get("Win32_ScheduledJob")

errJobCreated = objNewJob.Create _

("Sicherung.vbs", "********" & txtStd & txtMin & "00.000000+120", _

True, 1, , , True, JobId)

If errJobCreated 0 Then

MsgBox "Task nicht erstellt", vbCritical, "Achtung"

Else

MsgBox "Task erfolgreich erstellt", vbInformation, "Erfolgreich!"

End If

End If

End If





Gruß

Xorx
It´s not a bug, it´s a feature

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: