forum.clarionlife.net

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

            mOcx = Create(0, CREATE:ole)
            mOcx{PROP:Create} = 'ADSystemInfo'
            If mOcx{PROP:Object} Then
              tcs = mOcx{'UserName'}
              mOcx{PROP:Release} = 1
              mOcx{PROP:deactivate} = 1
            End
            Destroy(mOcx)
            if clip(tcs)<>''
              objConnection = Create(0, CREATE:ole)
              objConnection{PROP:Create} = 'ADODB.Connection'
              If objConnection{PROP:Object} Then 
                objConnection{'Provider'} = 'ADsDSOObject'
                objConnection{'Open'}
                objRecordset = objConnection{'Execute("SELECT sAMAccountName, CN FROM ''LDAP://' & clip(tcs) &'''")'}
                LOC:UserName=clip(objConnection{objRecordset &'.Fields.Item("sAMAccountName").Value'})
                objConnection{PROP:Release} = 1
                objConnection{PROP:deactivate} = 1
              end
            end
            Destroy(objConnection)

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

GLO:TempPath = GETTEMPPATH()
LOC:TempString = ''
GetRegSubKeys(REG_LOCAL_MACHINE , 'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces' , LOC:RegSubKeysQueue)
loop i#=1 to records(LOC:RegSubKeysQueue)
  get(LOC:RegSubKeysQueue , i#)
  s" = GetReg(REG_LOCAL_MACHINE , 'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\' & clip(LOC:RegSubKeysQueue.LOC:RegSubKeyName), 'IPAddress')
  if s"[1:7]<>'0.0.0.0'
    LOC:TempString = clip(LOC:TempString) & ' ' & clip(s")
  end  
  s" = GetReg(REG_LOCAL_MACHINE , 'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\' & clip(LOC:RegSubKeysQueue.LOC:RegSubKeyName), 'DhcpIPAddress')
  if s"[1:7]<>'0.0.0.0'
    LOC:TempString = clip(LOC:TempString) & ' ' & clip(s")
  end  
end  
LOC:TempString = LOC:TempString[2:len(clip(LOC:TempString))]
GLO:IPAddresses = LOC:TempString
GLO:UserName = GetUserName() 
GLO:ComputerName = GetReg(REG_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters' , 'NV Hostname')
GLO:Domain = GetReg(REG_LOCAL_MACHINE , 'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters' , 'NV Domain')