Const ForReading = 1 Set objFSO = CreateObject(“Scripting.FileSystemObject”) Set objOutputFile = objFSO.CreateTextFile(“output.txt”) strComputer = “.” Set objWMIService = GetObject(“winmgmts:\” & strComputer & “rootcimv2”) Set FileList = objWMIService.ExecQuery _ (“ASSOCIATORS OF {Win32_Directory.Name=’c:temp’} Where ” _ & “ResultClass = CIM_DataFile”) For Each objFile In FileList Set objTextFile = objFSO.OpenTextFile(objFile.Name, ForReading) strText = objTextFile.ReadAll objTextFile.Close objOutputFile.WriteLine strText Next […]
Setting the following keys will allow app-v packages to be installed from the packages MSI (if the option is ticked for said package when sequencing) this should then allow for the packages to be run in offline / disconnect mode indefinitely. MSI Install Example: msiexec.exe /i “app-v msi package” sftpath=”path to matching package sft file” Registry […]
‘vbscriptOption ExplicitDim objCommand, objConnection, strBase, strFilter, strAttributes, objUserDim strQuery, objRecordset, strdistinguishedName, strTSPath, strCN, objFSO, Set objCommand = CreateObject(“ADODB.Command”)Set objConnection = CreateObject(“ADODB.Connection”)objConnection.Provider = “ADsDSOObject”objConnection.Open “Active Directory Provider”objCommand.ActiveConnection = objConnectionConst ForWriting = 2‘…set the base DNstrBase = “<ldap://DC=domain,DC=/local>”strFilter = “(&(objectCategory=person)(objectClass=user))”strAttributes = “sAMAccountName,cn,distinguishedName”strQuery = strBase & “;” & strFilter & “;” & strAttributes & “;subtree”objCommand.CommandText = strQueryobjCommand.Properties(“Page Size”) […]