orlandorocks
asked on
Converting vbs to Innosetup to create a scheduled task
I have a script that I would like to convert from vbs to Inno setup (like delphi)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=imper sonate}!\\ " & strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_S cheduledJo b")
errJobCreated = objNewJob.Create ("Notepad.exe", "********123000.000000-420 ", True , 1 OR 4 OR 16, , , JobID)
Wscript.Echo errJobCreated
to something like this...
var
oWMI: Variant;
oJob: Variant;
ErrCode: Integer;
begin
try
begin
oWMI := CreateOleObject('winmgmts: {impersona tionlevel= impersonat e}!\\abs1\ root\cimv2 ');
oJob := oWMI.Get('Win32_ScheduledJ ob');
ErrCode := oJob.Create('Notepad.exe', '********123000.000000-420 ', True , 1 OR 4 OR 16, , , JobID);
end;
except;
finally;
I get various syntax errors etc
This code will be compiled by the Inno setup compiler. www.innosetup.com
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=imper
Set objNewJob = objWMIService.Get("Win32_S
errJobCreated = objNewJob.Create ("Notepad.exe", "********123000.000000-420
Wscript.Echo errJobCreated
to something like this...
var
oWMI: Variant;
oJob: Variant;
ErrCode: Integer;
begin
try
begin
oWMI := CreateOleObject('winmgmts:
oJob := oWMI.Get('Win32_ScheduledJ
ErrCode := oJob.Create('Notepad.exe',
end;
except;
finally;
I get various syntax errors etc
This code will be compiled by the Inno setup compiler. www.innosetup.com
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Do you still need help with this?