Вот такую библиотеку накалякал. Кому пригодится - пользуйтесь. Брать
здесь .
Код:
Func _FileGetFileName($path) ; выделяет из полного пути и возвращает имя файла
Func _FileGetDirPath($path) ; выделяет из полного пути и возвращает имя директории
Func _GetDocumentsAndSettingsDir() ; возвращает полный путь к папке "Documents And Settings"
Func _GetProfilesPath() ; возвращает массив строк с полными ключами к профилям пользователей этого компьютера
Func _LocalGroupExist($us) ; Проверяет, существует ли ЛОКАЛЬНАЯ ГРУППА С ТАКИМ ИМЕНЕМ. возвращает ИСТИНУ/ЛОЖЬ
Func _LocalUserExist($us) ; Проверяет, существует ли ЛОКАЛЬНЫЙ ПОЛЬЗОВАТЕЛЬ С ТАКИМ ИМЕНЕМ. возвращает ИСТИНУ/ЛОЖЬ
Func _GetDomainOrWorkGroup() ; ВЕРНЕТСЯ ИМЯ ДОМЕНА, если не в домене - то рабочей группы.
Func _GetWorkgroup() ; ТОЛЬКО РАБОЧАЯ ГРУППА, ДЛЯ ДОМЕННОГО КОМПА ВЕРНЕТСЯ ПУСТАЯ СТРОКА
Func _JOINWORKGROUP($WG) ; вводит компьютер в Рабочую группу (имя передается параметром)
Func _ShareFolder($dir,$name, $comment = '') ; создает общий ресурс.
Func _GetShareInfoByNumber($i) ; Возвращает массив с инфой о шаре № $i или 0, если шар больше нет. В массиве по порядку ИМЯ, ПУТЬ, ТИП
Func _GetShareInfoByName($name) ; Возвращает массив с инфой о шаре с данным именем или 0, если шар больше нет. В массиве по порядку ИМЯ, ПУТЬ, ТИП
Func _GetShareInfoByPath($path) ; Возвращает массив с инфой о шаре данного каталога или 0, если шар больше нет. В массиве по порядку ИМЯ, ПУТЬ, ТИП
Func _NoActiveStaticIP() ; возвращает истину/ложь. Если нет IP на рабочей, подключенной и т.п. карте
Func _AllNetworkDevicesDisabled() ; возращает истину-ложь
Func _RunVBS($vbs) ; запускает VBS-скрипт , переданный ему в кач-ве параметра.
Func _RenameComputer($name) ; переименовывает компьютер
Func _GetShortUserName($_user) ; возвращает короткое имя пользователя - т.е. для tega@office.local или OFFICE\tega результатом будет tega
Func _CreateLocalGroup($gn) ; создает локальную группу с указанным именем
Func _CreateLocalUser($us,$passw='') ; создает локального пользователя с указанным именем и паролем
Func _ListLocalGroups($username) ; Возвращает массив со списком локальных групп, членом которых является указанный пользователь
Func _JoinLocalgroup($us,$gr) ; добавляет пользователя в указанную локальную группу.
Func _DomainUserInLocalGroup($UserName, $InGroup, $Domain='') ; проверяет, является ли пользователь членом локальной группы
Func _GetStartedServicesAndDrivers() ; возвращает массив из имен запущенных сервисов и драйверов.
Func _GetStartedServices() ; возвращает массив из имен запущенных сервисов.
Func _GetStartedDrivers() ; возвращает массив из имен запущенных системных драйверов.
Func _HostIsOk($host_) ; проверяет, пингуется ли хост. Возвр. истину-ложь
Func _TCPServiceIsOk($_addr,$_port=0); Проверяет порт путем установления к нему соединения.возращает истину-ложь .
Func _UDPServiceIsOk($_addr,$_port=0) ; Проверяет порт путем установления к нему соединения.возращает истину-ложь .
Func _GetDns(ByRef $_dns1,ByRef $_dns2) ; заполняет переменные значениями и возвращает 0. В случае ошибки возвращает -1
Func _GetGateWay() ; возвращает адрес шлюза по умолчанию
Func _GetIEProxy() ; возвращает настройки прокси-сервера из Internet Explorer в виде строка "ip-адрес:порт"
Func _StringIsIp($str) ; проверяет, является ли строка ip-адресом. Возвр. истину-ложь
Func _StringIsEmpty($str) ; проверяет, является ли строка пустой. Возвр. истину-ложь
Func _HTTPget($url, $ProxyServer='', $ProxyUser = '' , $ProxyPass = '', $UseIntegratedSecurity = False) ; возвращает текст, полученный методом get протокола HTTP. Устанавливает флаг ошибки @error=0 в случае успеха, -1 в случае неудачи.
Func _HTTPSetTimeOuts($tResolve = 30000,$tConnection = 30000,$tSendTimeout = 30000,$tReceive = 30000) ; устнавливает таймауты для HTTP-запроса
