Hallo,
das Einlesen von Arrays ist für mich neu, darum nicht ganz einfach.
Hier benötige ich noch etwas Unterstützung.
Folgende vbs-Datei lese ich ein:
' Create a Scheduled Task
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
("Notepad.exe", "********013000.000000-420", _
True , 16 , , , JobID)
If Err.Number = 0 Then
Wscript.Echo "neuer Task wurde erstellt : " & JobID
Else
Wscript.Echo "Fehler, kein Task geplant: " & errJobCreated
End If
Was möchte ich tun?
1.) Auslesen des Arrays in Spalte "notepad.exe", Suchen der Zahl "0130" und ersetzen gegen den Inhalt von $zeit1 (Aarray[7])
2.) Auslesen des Arrays in Spalte "True, 16...." und Ersatz der Zahl 16 gegen $tag (Aarray[8])
3.) Einspielen der veränderten String in den Array an gleiche Steller
4.) Erzeugen einer neuen vbs-Datei mit _FileWriteFromArray
Und hier mein bisheriges Script:
Spoiler anzeigen
Dim $ziel1 = "C:\BKU\ToDo"
Dim $aArray
Dim $zeit1 = Random(9,13,1) & ":" & StringRight("0" & Random(00,59,1),2) &":" & StringRight("0" & Random(00,59,1),2);Startzeit des Tasks
Dim $tag = Random(1,5,1) ; *** Zufallsgenerator ***
Dim $wtag ; *** Festlegung der Tage für das vbs-Script, welches eine Task planen soll ***
Dim $wochentag
#comments-start
So sieht die einzulesende vbs-Datei aus:
' Create a Scheduled Task
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
("Notepad.exe", "********013000.000000-420", _
True , 16 , , , JobID)
If Err.Number = 0 Then
Wscript.Echo "neuer Task wurde erstellt : " & JobID
Else
Wscript.Echo "Fehler, kein Task geplant: " & errJobCreated
End If
Was möchte ich machen:
1.) Auslesen des Arryas in Spalte "notepad.exe", Suchen der Zahl "0130" und ersetzen gegen den Inhalt von $zeit1 (Aarray[7])
2.) Auslesen des Arryas in Spalte "True, 16...." und Ersatz der Zahl 16 gegen $tag (Aarray[8])
3.) Einspielen der veränderten String in den Array an gleicher Steller
4.) Erzeugen einer neuen vbs-Datei mit _FileWriteFromArray
#comments-end
[/autoit] [autoit][/autoit] [autoit]; *** Definition der Variablen zur Verteilung der Netzwerklast auf verschiedene Tage ***
; *** Festlegung der Wochentage für das vbs-Script
Select
Case $Tag = 1
$WTag = "1" ; *** Für die spätere Übergabe an das Array --> vbs-Datei
$Wochentag = "Montag" ;*** für die spätere Meldung per "msgbox" zur Information des Users
Case $Tag = 2
$WTag = "2"
$Wochentag = "Dienstag"
Case $Tag = 3
$WTag = "4"
$Wochentag = "Mittwoch"
Case $Tag = 4
$WTag = "8"
$Wochentag = "Donnerstag"
Case $Tag = 5
$WTag = "16"
$Wochentag = "Freitag"
EndSelect
; *** Einlesen der ganzen Datei ein ein Array
_FileReadToArray ($ziel1&"\scheduled.vbs",$aArray )
; *** Hier schauen wir zum testen, wie die einzelnen Arrays aussehen
For $x = 1 to $aArray[0]
Msgbox(0,'Record:' & $x, $aArray[$x])
Next