Sun Ray
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: А че так не передается что ли??? | Да, затупил, но вот так что-то не хотит Код: Dim l_lReturn as Long Dim l_sSource as String Dim l_sDestination as String Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\testfile.txt", ForReading) l_sSource = f.ReadAll f.close l_lReturn = oemtochar(l_sSource, l_sDestination) Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True) l_sDestination = f.Write f.Close | Еще вопросец, как на терминальном сервере можно прочитать IP-адрес подключенного клиента и в зависимости от подсети, к примеру 192.168.10.20 свистнуть переменную окружения NUM=16, а 192.168.35.24 NUM=82, ...etc.. p.s. Посдесть класса С, т.ч. следить нужно на значением 3 октета и в заданных значениях выдввать нужную переменную окружения. |