schtasks.exe /create

[sotghalz]

I have a list of computers in wslist.txt and after the first computer every other computer gets a different logon account then identified in the vbs. Here is what I have so far:

Dim ru, rp

ru = "domain\account"
rp = "password"

Set WshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each strComputer In Split(oFSO.OpenTextFile("wslist.txt").ReadAll, vbNewLine)
	WshShell.Run "schtasks.exe /create /s \\" & strcomputer & " /tn CleanUp1 /tr \\Path\cleanup.vbs /sc monthly /st 02:00:00 /ru " & ru & " /rp " & rp & ""
	WshShell.Run "schtasks.exe /create /s \\" & strComputer & " /tn Defrag1 /tr \\path\defrag.vbs /sc monthly /st 04:00:00 /ru " & ru & " /rp " & rp & ""
Next

Thanks for your help.

 

[ITPangaeaArchitect]

youre going to have to add the username/password combinations into the answer file. Maybe comma separated..then do a split to determine the values for the username/password variables so that it is dynamic.

Only problem is, this method is going to send the username and password combo in clear text across the line unless you are using IPSec....

- Brandon Wilson
MCSE:Security00/03; MCSA:Security03
MCSA:Messaging00; MCP; A+
IT Pangaea (

http://it-pangaea.com)