Sign up today to participate, stay informed, earn points and establish a reputation for yourself!Sign up! or login
On Error Resume Next
Dim FSO : Set FSO = CreateObject("Scripting.FilesystemObject")
For Each oSub in FSO.GetFolder("C:\Documents and Settings").SubFolders
If oSub.Name <> "NetworkService" And oSub.Name <> "LocalService" Then
If Not FSO.FolderExists(oSub & "\Application Data\Adobe\AIR") Then
FSO.CreateFolder oSub & "\Application Data\Adobe\AIR"
Set oFile = FSO.CreateTextFile(oSub & "\Application Data\Adobe\AIR\eulaAccepted", True)
Set oFile = FSO.CreateTextFile(oSub & "\Application Data\Adobe\AIR\UpdateDisabled", True)
Just wanted to add to the nuri's post above that for Adobe AIR v2.0.2 the UpdateDisabled file should stay empty as it was, but the EulaAccepted file must contain "2" as the only character.
View inventory records anonymously contributed by opt-in users of the K1000 Systems Management Appliance.