Set objNetwork = CreateObject("WScript.Network")

Set CheckDrive = objNetwork.EnumNetworkDrives()

objNetwork.MapNetworkDrive "X:", "\10.0.1.5share"

А отключить сетевой диск можно с помощью команды:

Листинг 2. Отключение сетевого диска

WScript.Sleep 3000

objNetwork.RemoveNetworkDrive CheckDrive.Item(0), true

Обратите внимание на то, что операционная система не всегда может подключить сетевой диск и практически сразу его отключить, иногда на это требуется определенное время. Для решения данной проблемы используется команда WScript.Sleep, которая останавливает работу сценария на N/1000 секунд. В данном случае указаны три секунды.

Конечно, если в вашей сети уже используются сетевые диски или после подключения сетевого ресурса вам не нужно отключать его (так как он может использоваться еще для каких либо целей), то вы можете не использовать данные команды и сразу перейти к написанию сценария, описанного ниже.

Ключевым моментом нашего сценария является цикл, обходящий ветку реестра Uninstall:

Листинг 3. Обходим ветку реестра и сохраняем данные в файл

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

………………………

For Each objItem in objDictionary2

strKeyPath = objDictionary2.Item(objItem)

objReg.GetStringValue HKLM ,strKeyPath, unValueName, strValue

'сохраняем нужное значение в файл

objTextFile2.WriteLine (strValue)

If Err Then

objDictionary2.Remove(objItem)

End If

Next