Automation

1function TExportTool.ExportExcelToPDF(aFileName, aNewFileName: String): Boolean;
2// reference : http://embarcadero.newsgroups.archived.at/public.delphi.oleautomation/200811/081103142.html
3// unluckily the link above is dead
4{- Sheet is counted from 1 and upwards !! }
5Var
6  App,oWB,oSheet : OleVariant;
7begin
8  Result := False;
9  App:= CreateOleObject('Excel.Application');
10  Try
11    App.Visible:= 0;
12    oWb := App.WorkBooks.Open(ExpandUNCFileName(afilename),1);  // Open read only
13    Try
14     oSheet := oWB.ActiveSheet;
15     oSheet.ExportAsFixedFormat(0,  //xlTypePDF is constant 0
16                            aNewFileName,
17                            EmptyParam, 
18                            EmptyParam, 
19                            EmptyParam, // this should be IgnorePrintAreas
20                            EmptyParam,
21                            EmptyParam,
22                            EmptyParam,
23                            EmptyParam
24                            );
25    Finally
26    End;
27    Result := True;
28  Finally
29    App.Quit;
30    App:= UnAssigned;
31  End;
32end;
33
34// IMPROVED WORKING CODE FOLLOWS
35
36function TExportTool.ExportExcelToPDF(aFileName, aNewFileName: String): Boolean;
37// reference : http://embarcadero.newsgroups.archived.at/public.delphi.oleautomation/200811/081103142.html
38{- Sheet is counted from 1 and upwards !! }
39
40procedure RestoreOriginalPrintArea (oSheet: OleVariant);
41// Excel loses print area settings in non-English version of application when file is opened using automation:
42// https://stackoverflow.com/questions/71379893/exportasfixedformats-ignoreprintareas-parameter-seems-not-to-have-effect
43var
44  i:Integer;
45begin
46  for  i:= 1 to oSheet.Names.Count do
47  begin
48   if VarToStr(oSheet.Names.Item(i).Name).EndsWith('!Print_Area') then
49   begin
50     oSheet.PageSetup.PrintArea:='Print_area';
51     Break;
52   end;
53  end;
54end;
55
56Var
57  App,oWB,oSheet : OleVariant;
58  i:Integer;
59begin
60  Result := False;
61  App:= CreateOleObject('Excel.Application');
62  Try
63    App.Visible:= 0;
64    oWb := App.WorkBooks.Open(ExpandUNCFileName(afilename),1);  // Open read only
65    Try
66     oSheet := oWB.ActiveSheet;
67     RestoreOriginalPrintArea(oSheet);  // workaround
68     oSheet.ExportAsFixedFormat(0,  //xlTypePDF is constant 0
69                            aNewFileName,
70                            0, // standard quality = 0, Max quality = 1
71                            false, //include doc properties
72                            false, //ignore print area
73                            EmptyParam,
74                            EmptyParam,
75                            EmptyParam,
76                            EmptyParam
77                            );
78    Finally
79    End;
80    Result := True;
81  Finally
82    oWB.Close(false); // better to close the WorkBook too
83    App.Quit;
84    App:= UnAssigned;
85  End;
86end;
87

1$password = ConvertTo-SecureString “Password+++” -AsPlainText -Force
2$Cred = New-Object System.Management.Automation.PSCredential ("Admin", $password)
3$FileLocale = Split-Path -Parent -Path $MyInvocation.MyCommand.Definition
4Write-Output $FileLocale
5$AntFile = "$FileLocale\StartApps.ps1"
6Write-Output $AntFile
7Start-Process PowerShell.exe -ArgumentList "-command &$AntFile -UserCredential $Cred"  
8

1Class MyValidValuesAttribute : System.Management.Automation.IValidateSetValuesGenerator {
2    [string[]] GetValidValues() { return [string[]]'MyValidValueA','MyValidValueB' }
3}
4

1Class MyValidValuesAttribute : System.Management.Automation.IValidateSetValuesGenerator {
2    [string[]] GetValidValues() { return [string[]]'MyValidValueA','MyValidValueB' }
3}
4$X = [MyValidValuesAttribute]::new()
5$Y = $X.GetValidValues()
6

1    name: Dependabot auto-approve
2    on: pull_request_target
3    
4    permissions:
5      contents: write
6      pull-requests: write
7    
8    jobs:
9      dependabot:
10        runs-on: ubuntu-latest
11        if: ${{ github.actor == 'dependabot[bot]' }}
12        steps:
13
14          - name: Approve a PR
15            run: gh pr review --approve "$PR_URL"
16            env:
17              PR_URL: ${{github.event.pull_request.html_url}}
18              GITHUB_TOKEN: ${{secrets.GITHUB_TOKEN}}
19
20          - name: Enable auto-merge for Dependabot PRs
21            run: gh pr merge --auto --merge "$PR_URL"
22            env:
23              PR_URL: ${{github.event.pull_request.html_url}}
24              # The documentation incorrectly forgets `GITHUB_TOKEN` here.
25              GITHUB_TOKEN: ${{secrets.GITHUB_TOKEN}}
26

1<Project Sdk="Microsoft.NET.Sdk.Worker">
2
3  <PropertyGroup>
4      <OutputType>Exe</OutputType>
5      <TargetFramework>net6.0-windows</TargetFramework>
6      <UseWindowsForms>true</UseWindowsForms>
7    <Nullable>enable</Nullable>
8    <ImplicitUsings>enable</ImplicitUsings>
9    <UserSecretsId>dotnet-SocketService-04A4D71F-C305-4A5B-BD0B-529C28B25DAD</UserSecretsId>
10    <PlatformTarget>AnyCPU</PlatformTarget>
11    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
12  </PropertyGroup>
13
14  <ItemGroup>
15    <PackageReference Include="Microsoft.Extensions.Hosting" Version="6.0.0" />
16    <PackageReference Include="Microsoft.Extensions.Hosting.WindowsServices" Version="6.0.0" />
17    <PackageReference Include="Microsoft.PowerShell.SDK" Version="7.2.1" />
18    <PackageReference Include="Microsoft.Toolkit.Uwp.Notifications" Version="7.1.2" />
19    <PackageReference Include="System.Management" Version="6.0.0" />
20    <PackageReference Include="System.Management.Automation" Version="7.2.1" />
21  </ItemGroup>
22
23  <ItemGroup>
24    <Folder Include="Speedtest\" />
25  </ItemGroup>
26
27  <ItemGroup>
28    <None Update="Speedtest\speedtest.exe">
29      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
30    </None>
31  </ItemGroup>
32</Project>
33

1<Project Sdk="Microsoft.NET.Sdk.Worker">
2
3  <PropertyGroup>
4      <OutputType>Exe</OutputType>
5      <TargetFramework>net6.0-windows</TargetFramework>
6      <UseWindowsForms>true</UseWindowsForms>
7    <Nullable>enable</Nullable>
8    <ImplicitUsings>enable</ImplicitUsings>
9    <UserSecretsId>dotnet-SocketService-04A4D71F-C305-4A5B-BD0B-529C28B25DAD</UserSecretsId>
10    <PlatformTarget>AnyCPU</PlatformTarget>
11    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
12  </PropertyGroup>
13
14  <ItemGroup>
15    <PackageReference Include="Microsoft.Extensions.Hosting" Version="6.0.0" />
16    <PackageReference Include="Microsoft.Extensions.Hosting.WindowsServices" Version="6.0.0" />
17    <PackageReference Include="Microsoft.PowerShell.SDK" Version="7.2.1" />
18    <PackageReference Include="Microsoft.Toolkit.Uwp.Notifications" Version="7.1.2" />
19    <PackageReference Include="System.Management" Version="6.0.0" />
20    <PackageReference Include="System.Management.Automation" Version="7.2.1" />
21  </ItemGroup>
22
23  <ItemGroup>
24    <Folder Include="Speedtest\" />
25  </ItemGroup>
26
27  <ItemGroup>
28    <None Update="Speedtest\speedtest.exe">
29      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
30    </None>
31  </ItemGroup>
32</Project>
33public static string CMD(string script)
34{
35    string errorMsg = "";
36    string output;
37
38  
39    ps.AddScript(script);
40
41    //Make sure return values are outputted to the stream captured by C#
42    ps.AddCommand("Out-String");
43
44    PSDataCollection<PSObject> outputCollection = new PSDataCollection<PSObject>();
45    ps.Streams.Error.DataAdded += (object sender, DataAddedEventArgs e) =>
46    { errorMsg = ((PSDataCollection<ErrorRecord>)sender)[e.Index].ToString(); };
47
48    IAsyncResult result = ps.BeginInvoke<PSObject, PSObject>(null, outputCollection);
49    ps.EndInvoke(result);
50
51    //while (!result.IsCompleted)
52    //    Thread.Sleep(300);
53
54    StringBuilder stringBuilder = new StringBuilder();
55    foreach (PSObject outputItem in outputCollection)
56    {
57        stringBuilder.AppendLine(outputItem.BaseObject.ToString());
58    }
59    output = stringBuilder.ToString();
60
61    //Clears commands added to runspace
62    ps.Commands.Clear();
63
64    if (!string.IsNullOrEmpty(errorMsg))
65        return string.Empty;
66
67    return output.Trim();
68}
69

1<Project Sdk="Microsoft.NET.Sdk.Worker">
2
3  <PropertyGroup>
4      <OutputType>Exe</OutputType>
5      <TargetFramework>net6.0-windows</TargetFramework>
6      <UseWindowsForms>true</UseWindowsForms>
7    <Nullable>enable</Nullable>
8    <ImplicitUsings>enable</ImplicitUsings>
9    <UserSecretsId>dotnet-SocketService-04A4D71F-C305-4A5B-BD0B-529C28B25DAD</UserSecretsId>
10    <PlatformTarget>AnyCPU</PlatformTarget>
11    <GeneratePackageOnBuild>True</GeneratePackageOnBuild>
12  </PropertyGroup>
13
14  <ItemGroup>
15    <PackageReference Include="Microsoft.Extensions.Hosting" Version="6.0.0" />
16    <PackageReference Include="Microsoft.Extensions.Hosting.WindowsServices" Version="6.0.0" />
17    <PackageReference Include="Microsoft.PowerShell.SDK" Version="7.2.1" />
18    <PackageReference Include="Microsoft.Toolkit.Uwp.Notifications" Version="7.1.2" />
19    <PackageReference Include="System.Management" Version="6.0.0" />
20    <PackageReference Include="System.Management.Automation" Version="7.2.1" />
21  </ItemGroup>
22
23  <ItemGroup>
24    <Folder Include="Speedtest\" />
25  </ItemGroup>
26
27  <ItemGroup>
28    <None Update="Speedtest\speedtest.exe">
29      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
30    </None>
31  </ItemGroup>
32</Project>
33public static string CMD(string script)
34{
35    string errorMsg = "";
36    string output;
37
38  
39    ps.AddScript(script);
40
41    //Make sure return values are outputted to the stream captured by C#
42    ps.AddCommand("Out-String");
43
44    PSDataCollection<PSObject> outputCollection = new PSDataCollection<PSObject>();
45    ps.Streams.Error.DataAdded += (object sender, DataAddedEventArgs e) =>
46    { errorMsg = ((PSDataCollection<ErrorRecord>)sender)[e.Index].ToString(); };
47
48    IAsyncResult result = ps.BeginInvoke<PSObject, PSObject>(null, outputCollection);
49    ps.EndInvoke(result);
50
51    //while (!result.IsCompleted)
52    //    Thread.Sleep(300);
53
54    StringBuilder stringBuilder = new StringBuilder();
55    foreach (PSObject outputItem in outputCollection)
56    {
57        stringBuilder.AppendLine(outputItem.BaseObject.ToString());
58    }
59    output = stringBuilder.ToString();
60
61    //Clears commands added to runspace
62    ps.Commands.Clear();
63
64    if (!string.IsNullOrEmpty(errorMsg))
65        return string.Empty;
66
67    return output.Trim();
68}
69Unhandled exception. System.IO.FileNotFoundException: Could not load file or assembly 'Microsoft.Management.Infrastructure, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'. Den angivne fil blev ikke fundet.
70File name: 'Microsoft.Management.Infrastructure, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'
71   at System.Management.Automation.Runspaces.AsyncResult.EndInvoke()
72   at System.Management.Automation.PowerShell.EndInvoke(IAsyncResult asyncResult)
73   at SocketService.PowerShellHandler.CMD(String script) in C:\Users\Blue\source\repos\SocketClientProject\Clientside\Handlers\PowershellHandler.cs:line 35
74   at SocketService.Classes.SystemInfo..ctor() in C:\Users\Blue\source\repos\SocketClientProject\Clientside\Classes\SystemInfo.cs:line 21
75   at SocketService.CommandHandler.Initialize() in C:\Users\Blue\source\repos\SocketClientProject\Clientside\Handlers\CommandHandler.cs:line 31
76   at SocketService.SocketService..ctor() in C:\Users\Blue\source\repos\SocketClientProject\Clientside\SocketService.cs:line 27
77   at SocketService.WindowsBackgroundService.StartAsync(CancellationToken cancellationToken) in C:\Users\Blue\source\repos\SocketClientProject\Clientside\WindowsBackgroundService.cs:line 17
78   at Microsoft.Extensions.Hosting.Internal.Host.StartAsync(CancellationToken cancellationToken)
79   at Microsoft.Extensions.Hosting.HostingAbstractionsHostExtensions.RunAsync(IHost host, CancellationToken token)
80   at Microsoft.Extensions.Hosting.HostingAbstractionsHostExtensions.RunAsync(IHost host, CancellationToken token)
81   at Program.<Main>$(String[] args) in C:\Users\Blue\source\repos\SocketClientProject\Clientside\Program.cs:line 14
82   at Program.<Main>(String[] args)
83
84[process exited with code 3762504530]
85

1  VarClear(arrData);
2  FreeAndNil(arrData);
3

1  VarClear(arrData);
2  FreeAndNil(arrData);
3  VarClear(arrData);
4  arrData.Free;
5

1$sess = New-CimSession -Credential $admincred
2