Renz
Осваивающий
- Сообщения
- 63
- Репутация
- 37
При запуске скрипта нет MsgBox-а, похоже что-то с передачей параметров. :wacko: Уже весь моск себе вынес, может кто подскажет в чем ошибка?
Скрипт:
Вот описание функции:
http://msdn.microsoft.com/ru-ru/library/bb525387
Скрипт:
Код:
$MAX_PREFERRED_LENGTH = 0xFFFFFFFF
$zapr =Binary("0x"&Hex(502,8))
Dim $Buf,$er=0,$tr=0,$resume=0
$ip = ""
;~ $_SHARE_INFO_1 = DllStructCreate("str;dword;str")
$dll = DllOpen("Netapi32.dll")
;~ MsgBox(0,"DllOpen",@error)
$result = DllCall($dll,"str","NetShareEnum","str" ,$ip,"dword", $zapr,"ptr",$Buf,"dword",$MAX_PREFERRED_LENGTH,"dword", $er,"dword",$tr,"dword",$resume)
MsgBox(0,"DllCall",@error)
DllClose($dll)
Вот описание функции:
http://msdn.microsoft.com/ru-ru/library/bb525387