On Error Resume Next
Dim FSO : Set FSO = CreateObject("Scripting.FilesystemObject")
Dim oFile
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"
End If
Set oFile = FSO.CreateTextFile(oSub & "\Application Data\Adobe\AIR\eulaAccepted", True)
oFile.Close
Set oFile = FSO.CreateTextFile(oSub & "\Application Data\Adobe\AIR\UpdateDisabled", True)
oFile.Close
End If
Next
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.