Can anyone tell me why the below script works using the local computer
name, but will not work using a remote computer name ?
Thanks in advance,
Mark.
strComputer = "mark"
folder = "c:\documents and settings"
dim folder_array(20)
dim folder_array_2(20)
i = -1
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colSubfolders = objWMIService.ExecQuery ("Associators of
{Win32_Directory.Name='" & folder & "'} Where AssocClass =
Win32_Subdirectory ResultRole = PartComponent")
For Each objFolder in colSubfolders
folder = split(objFolder.Name,"\",-1,1)
moz_folder = "\\" & strComputer & "\c$\documents and settings" & "\"
& folder(2) & "\application data\mozilla\firefox\profiles"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(moz_folder) Then
i = i + 1
folder_array(i) = objFolder.Name & "\application
data\mozilla\firefox\profiles"
folder_array_2(i) = moz_folder
end if
Next
For i = 0 to UBound(folder_array)
Set colSubfolders2 = objWMIService.ExecQuery ("Associators of
{Win32_Directory.Name='" & folder_array(i) & "'} Where AssocClass =
Win32_Subdirectory ResultRole = PartComponent")
For Each objFolder2 in colSubfolders2
split_folder = split(objFolder2.Name,"\",-1,1)
wscript.echo "Returned (local) directory"
wscript.echo objFolder2.Name
wscript.echo "--------------------------"
moz_folder_2 = folder_array_2(i) & "\" & split_folder(7) &
"\extensions\Extensions.rdf"
wscript.echo "Calculated remote filename"
wscript.echo moz_folder_2
wscript.echo "--------------------------"
Set objTextFile = objFSO.OpenTextFile(moz_folder_2, 1)
Do Until objTextFile.AtEndOfStream
input_string = objTextFile.ReadLine
MyPos = Instr(1, input_string, "<RDF:Description")
if MyPos > 0 then
Do Until objTextFile.AtEndOfStream
input_string2 = objTextFile.ReadLine
MyPos2 = Instr(1, input_string2, "</RDF:Description>")
if MyPos2 > 0 then exit do
MyArray = Split(input_string2, chr(34), -1, 1)
if Instr(1, MyArray(0), "em:version=") then version =
MyArray(1)
if Instr(1, MyArray(0), "em:name=") then name = MyArray(1)
if Instr(1, MyArray(0), "em:description=") then description =
MyArray(1)
if Instr(1, MyArray(0), "em:creator=") then creator =
MyArray(1)
if Instr(1, MyArray(0), "em:homepageURL=") then homepage =
MyArray(1)
Loop
wscript.echo "--------------------"
wscript.echo "Name: Mozilla Firefox Extension - " & name
wscript.echo "Version: " & version
wscript.echo "Description: " & description
wscript.echo "Creator: " & creator
wscript.echo "Homepage: " & homepage
name = ""
version = ""
description = ""
creator = ""
homepage = ""
end if
Loop
Next
Next