Damberg Online

Extract productcode from MSI

Damberg 4th March 2019 0 Comments

Here is a script you can use to extract productcode from msi-file it´s raw…

param(

  [Parameter(ValueFromPipeline = $true,HelpMessage = 'Enter CSV path')]
  [String[]]$Path = $null
)

if($Path -eq $null) 
{
  Add-Type -AssemblyName System.Windows.Forms

  $Dialog = New-Object -TypeName System.Windows.Forms.OpenFileDialog
  $Dialog.InitialDirectory = "$InitialDirectory"
  $Dialog.Title = 'Select MSI File'
  $Dialog.Filter = 'MSI File|*.MSI'        
  $Dialog.Multiselect = $true
  $Result = $Dialog.ShowDialog()

  if($Result -eq 'OK') 
  {
    Try 
    {
      $Path = $Dialog.FileNames
    }

    Catch 
    {
      $Path = $null
      Break
    }
  }

  else 
  {
    #Shows upon cancellation of Save Menu
    Write-Host -ForegroundColor Yellow -Object 'Notice: No file(s) selected.'
    Break
  }
}

$Path = $Dialog.FileName

$comObjWI = New-Object -ComObject WindowsInstaller.Installer
$MSIDatabase = $comObjWI.GetType().InvokeMember('OpenDatabase','InvokeMethod',$null,$comObjWI,@($Path, 0))
$Query = "SELECT Value FROM Property WHERE Property = 'ProductCode'"
$View = $MSIDatabase.GetType().InvokeMember('OpenView','InvokeMethod',$null,$MSIDatabase,($Query))
$View.GetType().InvokeMember('Execute', 'InvokeMethod', $null, $View, $null)
$Record = $View.GetType().InvokeMember('Fetch','InvokeMethod',$null,$View,$null)
$Value = $Record.GetType().InvokeMember('StringData','GetProperty',$null,$Record,1)

$Value

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

param(

[Parameter(ValueFromPipeline = $true,HelpMessage = 'Enter CSV path')]

[String[]]$Path = $null

)

if($Path -eq $null)

{

Add-Type -AssemblyName System.Windows.Forms

$Dialog = New-Object -TypeName System.Windows.Forms.OpenFileDialog

$Dialog.InitialDirectory = "$InitialDirectory"

$Dialog.Title = 'Select MSI File'

$Dialog.Filter = 'MSI File|*.MSI'

$Dialog.Multiselect = $true

$Result = $Dialog.ShowDialog()

if($Result -eq 'OK')

{

Try

{

$Path = $Dialog.FileNames

}

Catch

{

$Path = $null

Break

}

else

{

#Shows upon cancellation of Save Menu

Write-Host -ForegroundColor Yellow -Object 'Notice: No file(s) selected.'

Break

}

$Path = $Dialog.FileName

$comObjWI = New-Object -ComObject WindowsInstaller.Installer

$MSIDatabase = $comObjWI.GetType().InvokeMember('OpenDatabase','InvokeMethod',$null,$comObjWI,@($Path, 0))

$Query = "SELECT Value FROM Property WHERE Property = 'ProductCode'"

$View = $MSIDatabase.GetType().InvokeMember('OpenView','InvokeMethod',$null,$MSIDatabase,($Query))

$View.GetType().InvokeMember('Execute', 'InvokeMethod', $null, $View, $null)

$Record = $View.GetType().InvokeMember('Fetch','InvokeMethod',$null,$View,$null)

$Value = $Record.GetType().InvokeMember('StringData','GetProperty',$null,$Record,1)

$Value

Standalone Script

I uses Appdeploy Toolkit to install Google Chrome. You download the enterprise msi-files from the following address. Enterprise download Scroll down on the page and you will find the msi-files… Hints: Row 72-73 – Add the productcode from the msi-files…
Read more

AppDeploy Toolkit

Import-ClientsToCollection

Damberg 19th August 2016 0 Comments

A function to import clients from txt-file in to collection. If the client don´t exist or already are a member of collection the function creates a logfile.

#requires -Version 2 -Modules ConfigurationManager
<#
        .Synopsis
        Import Clients into Collections
        .DESCRIPTION
        Import clients to collections from txt-fil
        .EXAMPLE
        Import-ClientsTOCollection -collectionname 'O365 test' -txtfile \\sodra.com\cm2012\source\o365\txt\textfile.txt -site sod:
   
        .EXAMPLE
   
   
#>
function Import-ClientsTOCollection
{
    [CmdletBinding()]
    [Alias()]
    [OutputType([int])]
    Param
    (
        # Param1 help description
                   
        [Parameter(Mandatory = $true,
                ValueFromPipelineByPropertyName = $true,
        Position = 1)]
        $Collectionname,

        
        # Param2 help description
        [Parameter(Mandatory = $true,
                ValueFromPipelineByPropertyName = $true,
        Position = 2)]
        
               
        $txtfile,
        
        # Param3 help description
        [Parameter(Mandatory = $true,
                ValueFromPipelineByPropertyName = $true,
        Position = 3)]
        
               
        $site
        
    )

    Begin
    {

    }
    Process
    {

        Set-Location -Path \\sodra.com\cm2012\Source\O365\txt


        $importfile = Get-Content $txtfile


        Set-Location -Path $site

        foreach($computer in $importfile) 

        {
            try 
            {
                Add-CMDeviceCollectionDirectMembershipRule  -CollectionName $Collectionname -ResourceId $(Get-CMDevice -Name $computer).ResourceID
            }
  
  
            catch 
            {
                "Invalid client or direct membership rule may already exist: $computer" | Out-File -FilePath "c:\$Collectionname`_invalid.log" -Append
            }

            Set-Location -Path $site
        }

        Set-Location $myPShome


    }
    End
    {
        $checkfile = (Test-Path -Path "c:\$Collectionname`_invalid.log")
        if ($checkfile -eq $true)
        {
            Invoke-Item -Path "c:\$Collectionname`_invalid.log"
            Copy-Item -Path "c:\$Collectionname`_invalid.log" -Destination \\sodra.com\cm2012\source\O365\logs -Force
        }

        if ($checkfile -eq $false)
        {
            Write-Host -Object 'Allt gick bra, inga fel.' -ForegroundColor white -BackgroundColor Green
        }

    
    }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

#requires -Version 2 -Modules ConfigurationManager

<#

.Synopsis

Import Clients into Collections

.DESCRIPTION

Import clients to collections from txt-fil

.EXAMPLE

Import-ClientsTOCollection -collectionname 'O365 test' -txtfile \\sodra.com\cm2012\source\o365\txt\textfile.txt -site sod:

.EXAMPLE

#>

function Import-ClientsTOCollection

{

[CmdletBinding()]

[Alias()]

[OutputType([int])]

Param

(

# Param1 help description

[Parameter(Mandatory = $true,

ValueFromPipelineByPropertyName = $true,

Position = 1)]

$Collectionname,

# Param2 help description

[Parameter(Mandatory = $true,

ValueFromPipelineByPropertyName = $true,

Position = 2)]

$txtfile,

# Param3 help description

[Parameter(Mandatory = $true,

ValueFromPipelineByPropertyName = $true,

Position = 3)]

$site

)

Begin

{

}

Process

{

Set-Location -Path \\sodra.com\cm2012\Source\O365\txt

$importfile = Get-Content $txtfile

Set-Location -Path $site

foreach($computer in $importfile)

{

try

{

Add-CMDeviceCollectionDirectMembershipRule -CollectionName $Collectionname -ResourceId $(Get-CMDevice -Name $computer).ResourceID

}

catch

{

"Invalid client or direct membership rule may already exist: $computer" | Out-File -FilePath "c:\$Collectionname`_invalid.log" -Append

}

Set-Location -Path $site

}

Set-Location $myPShome

}

End

{

$checkfile = (Test-Path -Path "c:\$Collectionname`_invalid.log")

if ($checkfile -eq $true)

{

Invoke-Item -Path "c:\$Collectionname`_invalid.log"

Copy-Item -Path "c:\$Collectionname`_invalid.log" -Destination \\sodra.com\cm2012\source\O365\logs -Force

}

if ($checkfile -eq $false)

{

Write-Host -Object 'Allt gick bra, inga fel.' -ForegroundColor white -BackgroundColor Green

}

ConfigMgr Script

Get-computergroups

Damberg 9th August 2016 0 Comments

A function to list ad-groups for an client based on computername.

#requires -Version 2 -Modules ActiveDirectory
<#
        .Synopsis
        Get Computergroups based on computername

        .DESCRIPTION
        Get info about the AD-groups that the computer belongs to.

        .EXAMPLE
        get-computergroups mycomputer


#>
function get-Computergroups
{
    [CmdletBinding()]
    [Alias()]
    [OutputType([int])]
    Param
    (
        # Param1 help description
        [Parameter(Mandatory = $true,
                ValueFromPipelineByPropertyName = $true,
        Position = 0)]
        $displayname
    )

    Begin
    {
   
    }
    Process
    {
        Get-ADComputer $displayname -Properties memberof |
        Select-Object -Property memberof |
        Select-Object -ExpandProperty memberof |
        Get-ADGroup -Properties name |
        Select-Object -Property name |
        Format-Table -AutoSize
    }
    End
    {
    }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

#requires -Version 2 -Modules ActiveDirectory

<#

.Synopsis

Get Computergroups based on computername

.DESCRIPTION

Get info about the AD-groups that the computer belongs to.

.EXAMPLE

get-computergroups mycomputer

#>

function get-Computergroups

{

[CmdletBinding()]

[Alias()]

[OutputType([int])]

Param

(

# Param1 help description

[Parameter(Mandatory = $true,

ValueFromPipelineByPropertyName = $true,

Position = 0)]

$displayname

)

Begin

{

}

Process

{

Get-ADComputer $displayname -Properties memberof |

Select-Object -Property memberof |

Select-Object -ExpandProperty memberof |

Get-ADGroup -Properties name |

Select-Object -Property name |

Format-Table -AutoSize

}

End

{

}

Active Directory, Standalone Script

Get-UserGroups

Damberg 9th August 2016 0 Comments

A function to get a list on all AD-groups for an user i AD (by typing the username after the function.

<#
.Synopsis
   Get Usergroups based on username

.DESCRIPTION
   Get info about the AD-groups that the users belongs to.

.EXAMPLE
   get-usergroups chida


#>
function get-Usergroups
{
    [CmdletBinding()]
    [Alias()]
    [OutputType([int])]
    Param
    (
        # Param1 help description
        [Parameter(Mandatory=$true,
                   ValueFromPipelineByPropertyName=$true,
                   Position=0)]
        $displayname
    )

    Begin
    {
   
    }
    Process
    {
    get-aduser $displayname -Properties memberof | select -Property memberof | select -ExpandProperty memberof | Get-ADGroup -Properties name | Select-Object name | FT -AutoSize
    }
    End
    {
    }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

<#

.Synopsis

Get Usergroups based on username

.DESCRIPTION

Get info about the AD-groups that the users belongs to.

.EXAMPLE

get-usergroups chida

#>

function get-Usergroups

{

[CmdletBinding()]

[Alias()]

[OutputType([int])]

Param

(

# Param1 help description

[Parameter(Mandatory=$true,

ValueFromPipelineByPropertyName=$true,

Position=0)]

$displayname

)

Begin

{

}

Process

{

}

End

{

}

Active Directory, Standalone Script

How to uninstall KB-article with powershell remotely

Damberg 16th June 2016 0 Comments

If you get an update that you what to uninstall the best way is to use powershell. This function uninstalls the kb-article you ask for if it is installed on the system. To use it you have to run it…
Read more

Standalone Script

Get-UserInfo

Damberg 9th February 2016 0 Comments

An function to search Active Direcgory on user. If you wonder what info you can get….

get-aduser "username" -properties *

1	get-aduser "username" -properties *

<#
.Synopsis
   Get Userinfo based on displayname

.DESCRIPTION
   Get info about Lastname, Givenname, UPN and mailnickname, description

.EXAMPLE
   get-userinfo -displayname Damberg

.EXAMPLE
   get-userinfo dam

#>
function get-Userinfo
{
    [CmdletBinding()]
    [Alias()]
    [OutputType([int])]
    Param
    (
        # Param1 help description
        [Parameter(Mandatory=$true,
                   ValueFromPipelineByPropertyName=$true,
                   Position=0)]
        $displayname
    )

    Begin
    {
    #add wildcards to search
    $displaynameFix ="*$displayname*"
    }
    Process
    {
    get-aduser -filter {displayname -like $displaynamefix } -SearchBase 'OU=Employee,OU=Users,OU=department,DC=company,DC=com' -Properties Surname, givenname, UserPrincipalName, mailnickname, description | select surname, givenname, UserPrincipalName, mailnickname, description | FT -AutoSize
    }
    End
    {
    }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

<#

.Synopsis

Get Userinfo based on displayname

.DESCRIPTION

Get info about Lastname, Givenname, UPN and mailnickname, description

.EXAMPLE

get-userinfo -displayname Damberg

.EXAMPLE

get-userinfo dam

#>

function get-Userinfo

{

[CmdletBinding()]

[Alias()]

[OutputType([int])]

Param

(

# Param1 help description

[Parameter(Mandatory=$true,

ValueFromPipelineByPropertyName=$true,

Position=0)]

$displayname

)

Begin

{

#add wildcards to search

$displaynameFix ="*$displayname*"

}

Process

{

get-aduser -filter {displayname -like $displaynamefix } -SearchBase 'OU=Employee,OU=Users,OU=department,DC=company,DC=com' -Properties Surname, givenname, UserPrincipalName, mailnickname, description | select surname, givenname, UserPrincipalName, mailnickname, description | FT -AutoSize

}

End

{

}

Active Directory, Standalone Script

Get-UserComputer

Damberg 9th February 2016 0 Comments

Made my first function (basic) It search in the Active Directory in description on what you type, you do not need to write any wildcards. The thing you need to change is were it search in Active Directory Line 36…
Read more

Active Directory, Standalone Script

Latest Posts

Extract productcode from MSI

Google Chrome install

Import-ClientsToCollection

Get-computergroups

Get-UserGroups

How to uninstall KB-article with powershell remotely

Get-UserInfo

Get-UserComputer

Post navigation