Developing.ru

Код: Выделить всё

function domaincomp
 Dim $list, $objDomain, $objComputername, $filter[0]
 $domain=@DOMAIN
 $filter[0]='Computer'
 $objDomain = GetObject('WinNT://' + $domain + ',domain')
  if @ERROR
    exit @ERROR
  endif
 $objDomain.Filter=$filter
 if @ERROR
   exit @ERROR
 endif
 For Each $objComputername In $objDomain
    redim preserve $list[ubound($list)+1]
    $list[ubound($list)] = $objComputername.Name
    ? "Комп"+$objComputername.Name;
 Next
endfunction

Код: Выделить всё

Function OSInfo(optional $Computer)
  Dim $Syst,$
  if not $Computer $Computer = "." endif
  For Each $Syst In GetObject('winmgmts:{impersonationLevel=impersonate}!//' + $Computer + '\root\cimv2' ).ExecQuery('select * from Win32_OperatingSystem', , 48)
   ? 'Ось'+$Syst.Caption+'Версия'+$Syst.Version+'СервисПак'+$Syst.CSDVersion
  Next
EndFunction

Код: Выделить всё

function getobject(const name:string;accs:dword=STGM_default):variant;
var err:HResult;
  bo:tBINDOPTS;
  res:IDispatch;
  nm:widestring;
begin nm := name; fillchar(bo,sizeof(bo),0);
    with bo do begin cbStruct := sizeof(bo);
      grfFlags := BIND_MAYBOTHERUSER;
      grfMode := accs;
    end;
err:=CoGetObject(  @nm[1] , @bo , IDispatch , @res );
OleCheck(err);
result:=res;
end;