I\u00a0had a task to find out what versions of PowerShell we have installed on the computers in the domain.
\nPowerShell version is stored in HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\PowerShell\\1\\PowerShellEngine\\
\nThere is a a string called PowerShell version and the value of the string is the version of the PowerShell that is installed on the computer.
\nAfter looking around I came up with the following script:<\/p>\n
On Error Resume Next<\/em><\/p>\n Dim objGroup, objFSO, strFile, objFile<\/em><\/p>\n Const HKEY_LOCAL_MACHINE = &H80000002<\/em> strFile = “c:\\powershell.txt”<\/em> Set objConnection = CreateObject(“ADODB.Connection”)<\/em> objCommand.Properties(“Page Size”) = 1000<\/em> objCommand.CommandText = _<\/em> Set objRecordSet = objCommand.Execute<\/em><\/p>\n objRecordSet.MoveFirst<\/em><\/p>\n Do Until objRecordSet.EOF<\/em> objOU.Filter = Array(“Computer”)<\/em><\/p>\n For Each objItem in objOU<\/em> strKeyPath = “SOFTWARE\\Microsoft\\PowerShell\\1\\PowerShellEngine”<\/em> If IsNull(strValue) Then<\/em> objRecordSet.MoveNext<\/em> objFile.Close<\/em><\/p>\n The script scans OUs in AD for computer accounts and then tries to connect to the computer to read the value of the registry.\u00a0Script outputs the computer name and the value of the string\u00a0to poweshell.txt file on your C: drive. If the registry does not exist it writes No entry <\/em>id the computer cannot be reached then there will be nothing next to the computer name. Here is an example of an output file: This script can be used to check any registry key with small modifications. Also if you keep all you computers in the Computers container then change the line from “objectCategory=’organizationalUnit'” <\/em>to “objectCategory=’container'”<\/em><\/em><\/p>\n Now you need to change the path to the registry key: And also change the string valeu name: If the value that you are trying to read is not stored in string but lets same in\u00a0DWORD or BINARY format then you’ll need to change: Well that is it.<\/p>\n PS. When copying text directly from the blog beware that sometime the quotes ” change and the script fails. Just delete them and replace with anew ones.<\/p>\n","protected":false},"excerpt":{"rendered":" I\u00a0had a task to find out what versions of PowerShell we have installed on the computers in the domain. PowerShell version is stored in HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\PowerShell\\1\\PowerShellEngine\\ There is a a string called PowerShell version and the value of the string is the version of the PowerShell that is installed on the computer. After looking around I […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[4,5],"tags":[],"_links":{"self":[{"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/posts\/666"}],"collection":[{"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/comments?post=666"}],"version-history":[{"count":2,"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/posts\/666\/revisions"}],"predecessor-version":[{"id":668,"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/posts\/666\/revisions\/668"}],"wp:attachment":[{"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/media?parent=666"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/categories?post=666"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/tags?post=666"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nConst ForWriting = 2<\/em>
\nConst OpenAsASCII = 0<\/em>
\nConst CreateIfNotExist = True<\/em>
\nConst ADS_SCOPE_SUBTREE = 2<\/em><\/p>\n
\n
\nSet objFSO = CreateObject(“Scripting.FileSystemObject”)<\/em>
\nSet objFile = objFSO.OpenTextFile(strFile, _<\/em>
\nForWriting, CreateIfNotExist, OpenAsASCII)<\/em><\/p>\n
\nSet objCommand = CreateObject(“ADODB.Command”)<\/em>
\nobjConnection.Provider = “ADsDSOObject”<\/em>
\nobjConnection.Open “Active Directory Provider”<\/em>
\nSet objCommand.ActiveConnection = objConnection<\/em><\/p>\n
\nobjCommand.Properties(“Searchscope”) = ADS_SCOPE_SUBTREE <\/em><\/p>\n
\n“SELECT ADsPath FROM ‘LDAP:\/\/dc=domain,dc=local’ WHERE ” & _<\/em>
\n“objectCategory=’organizationalUnit'” <\/em><\/p>\n
\nSet objOU = GetObject(objRecordSet.Fields(“ADsPath”).Value)<\/em><\/p>\n
\nstrComputer = objItem.CN<\/em>
\nSet objRegistry = GetObject(“winmgmts:\\\\” & _<\/em>
\nstrComputer & “\\root\\default:StdRegProv”)<\/em><\/p>\n
\nstrValueName = “PowerShellVersion”<\/em>
\nobjRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue<\/em><\/p>\n
\nobjFile.WriteLine strComputer & “, No entry”<\/em>
\nElse<\/em>
\nobjFile.WriteLine strComputer & “, ” & strValue<\/em>
\nEnd If<\/em>
\nNext<\/em><\/p>\n
\nLoop<\/em><\/p>\n
\nCOMP_1,<\/em>
\nCOMP_2,<\/em>
\nCOMP_3, 2.0<\/em>
\nCOMP_4, No entry<\/em><\/p>\n
\nFirst you need to change the following line to enter your domain:
\n“SELECT ADsPath FROM ‘LDAP:\/\/dc=domain,dc=local’ WHERE ” & _<\/em><\/p>\n
\nstrKeyPath = “SOFTWARE\\Microsoft\\PowerShell\\1\\PowerShellEngine”<\/em><\/p>\n
\nstrValueName = “PowerShellVersion”<\/em><\/p>\n
\nobjRegistry.GetStringValue <\/em><\/em>to objRegistry.GetDwordValue <\/em>or objRegistry.GetBinaryValue<\/em><\/p>\n