Grootte van subdirectorys remote computer

Hallo,
Ik heb een vbscript gemaakt voor de groote van een subdirectorys weer te geven en deze vervolgens in een word-document te zetten.
Dit werkt echter alleen voor mijn locaal systeem.
Ik zou dit graag op een remote systeem willen uitvoeren.
Kan iemand mij daar misschien mee helpen.

Dim oFSO
Dim of
Dim oDrive
Dim sPath
Dim colFolders
Dim strComputer
Dim objWMIService


strComputer = InputBox("What Computer do you want to document (default=localhost)","Select Target",".")

Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()

Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,1,2
Set objTable = objDoc.Tables(1)


x=1




sPath ="c:winnt"
Set oFSO = WScript.CreateObject("Scripting.FileSystemobject")
Set oF =oFSO.GetFolder(sPath)
Set colFolders = oF.SubFolders

'objSelection.TypeText "User data report"
For Each subFolder In colFolders

If x > 1 Then
objTable.Rows.Add()
End If
objTable.Cell(x, 1).Range.Text = Subfolder.Name
objTable.Cell(x, 2).Range.text = round(Subfolder.Size/1048576)
x = x + 1
Next

Hey Takamine,

Only very few people who visit this forum understand dutch. In order to get answers to your questions, you beter describe your problem in english...

[url="http://www.microsoft.com/technet/scriptcenter/resources/qanda/nov04/hey1118.mspx"]This[/url] column of the Microsoft Scripting Guys handles about how to determine the size of a folder on a remote system.

HTH

To determine the size of a directory including all sub-directories, you could try the following.
If the directory is located on a remote box, you could simply use the C$ admin share.
=============================================================================================

Option Explicit
Dim fso, folder
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Program Files")
WScript.Echo folder.Size

======================================================

Set folder = fso.GetFolder("\\server\c$\Program Files")
WScript.Echo folder.Size