Set CheckDrive = objNetwork.EnumNetworkDrives()

' А это уже путь, где будет создан файл с информацией о приложениях

strPath = "x:"

strComputer = "localhost" ' Проверяем локальный компьютер

' Подключаем сетевой диск

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

' Запускаем процедуру сбора информации

GetInstalledSoftware()

' Отключаем сетевой диск

If CheckDrive.Item(intDrive) <> strDriveLetter  Then objNetwork.RemoveNetworkDrive CheckDrive.Item(0), bforce

Sub GetInstalledSoftware()

On Error Resume next

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & _

strComputer & " ootdefault:StdRegProv")

If Err <> "0" Then

Exit Sub

End If

' Путь к разделу реестра Uninstall, содержащему информацию об установленных компонентах

unKeyPath = "SoftwareMicrosoftWindowsCurrentVersionUninstall"

unValueName = ("DisplayName")

objReg.EnumKey HKLM, unKeyPath, arrSubKeys

i=0

For Each Subkey in arrSubKeys

objDictionary2.Add i, unKeyPath & ""& subkey & (Enter)

i=i+1

Next

pcName = "SYSTEMCurrentControlSetControlComputerNameActiveComputerName"